From e92d47c6b3df62d9915c7b36487ef57778af8348 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Fri, 9 Mar 2001 04:37:53 +0000
Subject: added tooltips to create_boxradio

---
 perl-install/interactive_gtk.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index b967f6aa3..db4064625 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -40,12 +40,18 @@ sub create_boxradio {
     my $boxradio = gtkpack2__(new Gtk::VBox(0, 0),
 			      my @radios = gtkradio(@l, ''));
     $boxradio->show;
+    my $tips = new Gtk::Tooltips;
     mapn {
 	my ($txt, $w) = @_;
 	$w->signal_connect(clicked => sub {
  	    ${$e->{val}} = $txt;
 	    &$changed;
         });
+	if ($e->{help}) {
+	    $tips->set_tip($w,
+			   ref($e->{help}) eq 'HASH' ? $e->{help}{$txt} :
+			   ref($e->{help}) eq 'CODE' ? $e->{help}($txt) : $e->{help});
+	}
     } $e->{list}, \@radios;
 
     $boxradio, sub {
-- 
cgit v1.2.1