diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-07-26 10:37:06 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-07-26 10:37:06 +0000 |
| commit | d7288de3f35c398e0b0960236f1681db0f33a0f5 (patch) | |
| tree | 21d22731059caa023052259e4992b494ece9e12a /perl-install/install/steps_gtk.pm | |
| parent | 076ef23b167ce71e524a6c5ea9198672b83d253c (diff) | |
| download | drakx-backup-do-not-use-d7288de3f35c398e0b0960236f1681db0f33a0f5.tar drakx-backup-do-not-use-d7288de3f35c398e0b0960236f1681db0f33a0f5.tar.gz drakx-backup-do-not-use-d7288de3f35c398e0b0960236f1681db0f33a0f5.tar.bz2 drakx-backup-do-not-use-d7288de3f35c398e0b0960236f1681db0f33a0f5.tar.xz drakx-backup-do-not-use-d7288de3f35c398e0b0960236f1681db0f33a0f5.zip | |
(reallyChooseGroups) add "select all" & "unselect all" buttons
buttons layout should be probably enhanced later...
Diffstat (limited to 'perl-install/install/steps_gtk.pm')
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 2ed26ac34..17102b167 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -318,17 +318,20 @@ sub reallyChooseGroups { my $w = ugtk2->new(N("Package Group Selection")); my $w_size = gtknew('Label_Left', text => &$size_to_display, padding => [ 0, 0 ]); + my @entries; my $entry = sub { my ($e) = @_; - gtknew('CheckButton', + my $w = gtknew('CheckButton', text => translate($e->{label}), tip => translate($e->{descr}), active_ref => \$e->{selected}, toggled => sub { gtkset($w_size, text => &$size_to_display); }); + push @entries, $w; + $w; }; #- when restarting this step, it might be necessary to reload the compssUsers.pl (bug 11558). kludgy. if (!ref $o->{gtk_display_compssUsers}) { install::any::load_rate_files($o) } @@ -345,6 +348,8 @@ sub reallyChooseGroups { 0, gtknew('HButtonBox', layout => 'edge', children_tight => [ gtknew('Install_Button', text => N("Help"), clicked => sub { interactive::gtk::display_help($o, { interactive_help_id => 'choosePackages#choosePackagesGroups' }, $w) }), + gtknew('Button', text => N("Select All"), clicked => sub { $_->set_active(1) foreach @entries }), + gtknew('Button', text => N("Unselect All"), clicked => sub { $_->set_active(0) foreach @entries }), gtknew('Button', text => N("Next"), clicked => sub { Gtk2->main_quit }), ]), ]), |