summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-09 04:37:53 +0000
committerdamien <damien@mandriva.com>2001-03-09 04:37:53 +0000
commite92d47c6b3df62d9915c7b36487ef57778af8348 (patch)
tree68f67b717b9abce46a89229a04788086b4d79356 /perl-install
parent2af607580dd3e1568f0eb5c50f6db77bed314f5b (diff)
downloaddrakx-e92d47c6b3df62d9915c7b36487ef57778af8348.tar
drakx-e92d47c6b3df62d9915c7b36487ef57778af8348.tar.gz
drakx-e92d47c6b3df62d9915c7b36487ef57778af8348.tar.bz2
drakx-e92d47c6b3df62d9915c7b36487ef57778af8348.tar.xz
drakx-e92d47c6b3df62d9915c7b36487ef57778af8348.zip
added tooltips to create_boxradio
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/interactive_gtk.pm6
1 files changed, 6 insertions, 0 deletions
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 {