diff options
| author | damien <damien@mandriva.com> | 2001-03-09 04:37:53 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-03-09 04:37:53 +0000 |
| commit | e92d47c6b3df62d9915c7b36487ef57778af8348 (patch) | |
| tree | 68f67b717b9abce46a89229a04788086b4d79356 /perl-install/interactive_gtk.pm | |
| parent | 2af607580dd3e1568f0eb5c50f6db77bed314f5b (diff) | |
| download | drakx-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/interactive_gtk.pm')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 6 |
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 { |