diff options
| -rw-r--r-- | perl-install/install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 6 |
2 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 23858808b..aa4d25408 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,4 @@ +- add help button for media selection step - fix/adjust some help pages (#42986) Version 11.58 - 29 September 2008 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 }), ]), ]), |