From d3607f20fc5c9d5c2bb66d6a2c9832393f63691c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 6 Feb 2003 20:36:12 +0000
Subject: add "Help" button

---
 perl-install/diskdrake/hd_gtk.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 134d79e0a..6bd61bd24 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -153,6 +153,9 @@ sub add_kind2notebook {
 sub general_action_box {
     my ($box, $nowizard) = @_;
     $_->widget->destroy foreach $box->children;
+
+    gtkadd($box, gtksignal_connect(Gtk2::Button->new(N("Help")), clicked => $in->{interactive_help})) if $in->{interactive_help};
+
     my @actions = (if_($::isInstall && !$nowizard, N_("Wizard")), 
 		   diskdrake::interactive::general_possible_actions($in, $all_hds), 
 		   N_("Done"));
-- 
cgit v1.2.1