diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-09-30 04:14:47 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-09-30 04:14:47 +0000 |
| commit | fa03d29060fdf1675d018792351308c4ba44b237 (patch) | |
| tree | e638eeba0efbdb089ba86c99ba5cf48b7ef5e543 /perl-install/install | |
| parent | 174c1bf4baf78d83bcbfae169af2d934748b3476 (diff) | |
| download | drakx-fa03d29060fdf1675d018792351308c4ba44b237.tar drakx-fa03d29060fdf1675d018792351308c4ba44b237.tar.gz drakx-fa03d29060fdf1675d018792351308c4ba44b237.tar.bz2 drakx-fa03d29060fdf1675d018792351308c4ba44b237.tar.xz drakx-fa03d29060fdf1675d018792351308c4ba44b237.zip | |
(ask_deselect_media__copy_on_disk) add help button for media selection step
Diffstat (limited to 'perl-install/install')
| -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 }), ]), ]), |