diff options
author | David Baudens <baudens@mandriva.com> | 2004-09-30 09:12:39 +0000 |
---|---|---|
committer | David Baudens <baudens@mandriva.com> | 2004-09-30 09:12:39 +0000 |
commit | d5b9fec8ce0c4f7440ac1539ed5eb93496d7bbdd (patch) | |
tree | 8595b4da5a2d93a05b8eaa825ac1de6d6ad565dc /perl-install/share/compssUsers-discovery.pl | |
parent | 604e1987c895f8918d29cfb102ee141c1189970e (diff) | |
download | drakx-backup-do-not-use-d5b9fec8ce0c4f7440ac1539ed5eb93496d7bbdd.tar drakx-backup-do-not-use-d5b9fec8ce0c4f7440ac1539ed5eb93496d7bbdd.tar.gz drakx-backup-do-not-use-d5b9fec8ce0c4f7440ac1539ed5eb93496d7bbdd.tar.bz2 drakx-backup-do-not-use-d5b9fec8ce0c4f7440ac1539ed5eb93496d7bbdd.tar.xz drakx-backup-do-not-use-d5b9fec8ce0c4f7440ac1539ed5eb93496d7bbdd.zip |
Update
Diffstat (limited to 'perl-install/share/compssUsers-discovery.pl')
-rw-r--r-- | perl-install/share/compssUsers-discovery.pl | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/perl-install/share/compssUsers-discovery.pl b/perl-install/share/compssUsers-discovery.pl new file mode 100644 index 000000000..c234f93a9 --- /dev/null +++ b/perl-install/share/compssUsers-discovery.pl @@ -0,0 +1,51 @@ +package tmp::compssUsers; + +use common; +use ugtk2 qw(:helpers :wrappers :create); + +my $h = { + +("Discovery") => +[ + { label => ("Discovery"), + descr => (""), + flags => [ qw(OFFICE SPELLCHECK PUBLISHING PIM ARCHIVING PRINTER AUDIO VIDEO GRAPHICS NETWORKING_WWW NETWORKING_MAIL NETWORKING_NEWS COMMUNICATIONS NETWORKING_CHAT NETWORKING_FILE_TRANSFER NETWORKING_IRC NETWORKING_INSTANT_MESSAGING NETWORKING_DNS CONFIG TERMINALS TEXT_TOOLS SHELLS FILE_TOOLS KDE X BOOKS) ], + default_selected => 1, + }, +], +}; + +foreach my $path (keys %$h) { + foreach (@{$h->{$path}}) { + $_->{path} = $path; + $_->{uid} = join('|', $path, $_->{label}); + } +} + +my $compssUsers = [ map { @$_ } values %$h ]; + +my $gtk_display_compssUsers = sub { + my ($entry) = @_; + + my $entries_in_path = sub { + my ($path) = @_; + translate($path), map { $entry->($_) } @{$h->{$path}}; + }; + + gtkpack_(Gtk2::VBox->new(0, 0), + 1, gtkpack_(Gtk2::HBox->new(0, 0), + 1, gtkpack(Gtk2::VBox->new(0, 0), + $entries_in_path->('Workstation'), + '', + $entries_in_path->('Development'), + ), + 0, gtkpack(Gtk2::VBox->new(0, 0), + $entries_in_path->('Server'), + '', + $entries_in_path->('Graphical Environment'), + ), + ), + ); +}; + +$compssUsers, $gtk_display_compssUsers; |