From 81383de4d1afc568825275d548bfe524278f1ee2 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 1 Oct 2004 02:12:39 +0000 Subject: dynamically choose the compssUsers based on meta_class, so now we have only one compssUsers.pl --- perl-install/share/compssUsers-discovery.pl | 51 ----------------------------- 1 file changed, 51 deletions(-) delete mode 100644 perl-install/share/compssUsers-discovery.pl (limited to 'perl-install/share/compssUsers-discovery.pl') diff --git a/perl-install/share/compssUsers-discovery.pl b/perl-install/share/compssUsers-discovery.pl deleted file mode 100644 index c234f93a9..000000000 --- a/perl-install/share/compssUsers-discovery.pl +++ /dev/null @@ -1,51 +0,0 @@ -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; -- cgit v1.2.1