summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/steps_gtk.pm6
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 }),
]),
]),