diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-04-12 13:43:22 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-04-12 13:43:22 +0000 |
commit | e4a733279204fd41aaee08d77501c38a01b8932f (patch) | |
tree | ced3a8310e9c09145041e3f669ffd73764b90c84 | |
parent | 7286c6503ef25713045e71bbdd0b4280333d49a5 (diff) | |
download | drakx-e4a733279204fd41aaee08d77501c38a01b8932f.tar drakx-e4a733279204fd41aaee08d77501c38a01b8932f.tar.gz drakx-e4a733279204fd41aaee08d77501c38a01b8932f.tar.bz2 drakx-e4a733279204fd41aaee08d77501c38a01b8932f.tar.xz drakx-e4a733279204fd41aaee08d77501c38a01b8932f.zip |
*** empty log message ***
-rw-r--r-- | perl-install/install_steps_gtk.pm | 35 |
1 files changed, 19 insertions, 16 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 760f15122..3d3808155 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -274,28 +274,31 @@ sub reallyChooseGroups { $w_size->set(&$size_to_display); }); gtkset_tip($tips, $check, $help); - #gtkpack_(new Gtk::HBox(0,0), 0, gtkpng($file), 1, $check); - $check; + gtkpack_(new Gtk::HBox(0,0), 0, gtkpng($file), 1, $check); + #$check; }; my $entries_in_path = sub { my ($path) = @_; - $path, map { $entry->($_) } grep { $o->{compssUsers}{$_}{path} eq $path } @{$o->{compssUsersSorted}}; + $path, map { $entry->($_) } grep { !/Utilities/ && $o->{compssUsers}{$_}{path} eq $path } @{$o->{compssUsersSorted}}; }; gtkadd($w->{window}, gtkpack($w->create_box_with_title(_("Package Group Selection")), - gtkpack_(new Gtk::HBox(0,0), - 1, gtkpack(new Gtk::VBox(0,0), - $entries_in_path->('Workstation'), - $entries_in_path->('Server'), - ), - 0, gtkpack__(new Gtk::VBox(0,0), - $entries_in_path->('Graphical Environment'), - '', - $entry->('Development|Standard tools'), - $entry->('Development|Documentation'), - ), - ), - + gtkpack_(new Gtk::VBox(0,0), + 1, gtkpack_(new Gtk::HBox(0,0), + 1, gtkpack(new Gtk::VBox(0,0), + $entries_in_path->('Workstation'), + '', + $entry->('Development|Development'), + $entry->('Development|Documentation'), + ), + 0, gtkpack(new Gtk::VBox(0,0), + $entries_in_path->('Server'), + '', + $entries_in_path->('Graphical Environment'), + ), + ), + ), + '', gtkadd(new Gtk::HBox(0,0), $w_size, if_($individual, do { |