From fa03d29060fdf1675d018792351308c4ba44b237 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 30 Sep 2008 04:14:47 +0000 Subject: (ask_deselect_media__copy_on_disk) add help button for media selection step --- perl-install/install/steps_gtk.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install/install/steps_gtk.pm') diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 30c900a50..a6a5b81c3 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -701,7 +701,7 @@ sub summary_prompt { #- group by CD sub ask_deselect_media__copy_on_disk { - my ($_o, $hdlists, $o_copy_rpms_on_disk) = @_; + my ($o, $hdlists, $o_copy_rpms_on_disk) = @_; my @names = uniq(map { $_->{name} } @$hdlists); my %selection = map { $_->{name} => $_->{selected} } @$hdlists; @@ -737,7 +737,9 @@ It will then continue from the hard drive and the packages will remain available 0, gtknew('CheckButton', text => N("Copy whole CDs"), active_ref => $o_copy_rpms_on_disk), 0, gtknew('HSeparator'), ), - 0, gtknew('HButtonBox', layout => 'end', children_tight => [ + 0, gtknew('HButtonBox', layout => 'edge', children_tight => [ + gtknew('Install_Button', text => N("Help"), clicked => sub { + interactive::gtk::display_help($o, { interactive_help_id => 'choosePackages' }, $w) }), gtknew('Button', text => N("Next"), clicked => sub { Gtk2->main_quit }), ]), ]), -- cgit v1.2.1