From 6fc2edb6d32d4c0f992ff61c7653d231f7d7dc66 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 2 Oct 2008 00:23:26 +0000 Subject: (reallyChooseDesktop) add help button for desktop selection step --- perl-install/install/steps_gtk.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (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 4ea36123f..d7062af74 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -294,7 +294,13 @@ sub reallyChooseDesktop { width => mygtk2::get_label_width(), label => $message . ' ' . N("Click on images in order to see a bigger preview")), 1, gtknew('HButtonBox', children_loose => \@l), - 0, $w->create_okcancel(N("Next"), undef), + 0, $w->create_okcancel(N("Next"), undef, '', + [ gtknew('Install_Button', text => N("Help"), + clicked => sub { + interactive::gtk::display_help( + $o, + { interactive_help_id => 'choosePackages#d4e994' }, $w); + }), undef, 1 ]) ])); $w->main; -- cgit v1.2.1