From fe57c63558450228ca52c6f3302910372be6ebb4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 13 Feb 2003 14:35:52 +0000
Subject: - set_help is deprecated - it is replaced by interactive_help_id on
 each ask_* - many set_help do not have any correspondance in help.pm
 (drakxid-*),   those are commented for now

---
 perl-install/ugtk2.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index e527fe36c..ec00ee5d9 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1052,6 +1052,10 @@ sub ask_browse_tree_info {
     } @l;
     @buttons = reverse @buttons if !$::isInstall;    
 
+    gtkpack__($box2, gtksignal_connect(Gtk2::Button->new(N("Help")), clicked => sub {
+					   ask_warn(N("Help"), $common->{interactive_help}->())
+				       })) if $common->{interactive_help};
+
     if ($common->{auto_deps}) {
 	gtkpack__($box1, gtksignal_connect(gtkset_active(Gtk2::CheckButton->new($common->{auto_deps}), $common->{state}{auto_deps}),
 					clicked => sub { invbool \$common->{state}{auto_deps} }));
-- 
cgit v1.2.1