From fa03d29060fdf1675d018792351308c4ba44b237 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
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/NEWS         | 1 +
 perl-install/install/steps_gtk.pm | 6 ++++--
 2 files changed, 5 insertions(+), 2 deletions(-)

(limited to 'perl-install/install')

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 }),
 		]),
 	    ]),
-- 
cgit v1.2.1