From c18552d7a02dfc62ce43160b58db8ad606085cee Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 21 Feb 2000 17:59:09 +0000
Subject: no_comment

---
 perl-install/interactive_gtk.pm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 41338477a..4b99d47d0 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -53,13 +53,20 @@ sub ask_from_listW {
     $r or die "ask_from_list cancel";
 }
 
-sub ask_many_from_list_refW($$$$$) {
+sub ask_many_from_list_refW {
     my ($o, $title, $messages, $list, $val) = @_;
+    ask_many_from_list_with_help_refW($o, $title, $messages, $list, undef, $val)
+}
+
+sub ask_many_from_list_with_help_refW {
+    my ($o, $title, $messages, $list, $help, $val) = @_;
     my $w = my_gtk->new('', %$o);
+    my $tips = new Gtk::Tooltips;
     my $box = gtkpack(new Gtk::VBox(0,0),
 	map_index {
 	    my $i = $::i;
 	    my $o = Gtk::CheckButton->new($_);
+	    $tips->set_tip($o, $help->[$i]) if $help->[$i];
 	    $o->set_active(${$val->[$i]});
 	    $o->signal_connect(clicked => sub { invbool \${$val->[$i]} });
 	    $o;
@@ -74,7 +81,6 @@ sub ask_many_from_list_refW($$$$$) {
     $w->main && $val;
 }
 
-
 sub ask_from_entries_refW {
     my ($o, $title, $messages, $l, $val, %hcallback) = @_;
     my ($title_, @okcancel) = deref($title);
-- 
cgit v1.2.1