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/NEWS | 1 + perl-install/install/steps_gtk.pm | 8 +++++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 893308677..1e85b9594 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,4 @@ +- add help button for desktop selection step - keep soft links in HTML help directory - handle anchors in HTML help IDs 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