summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive/gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-02-10 19:37:06 +0000
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 21:28:35 +0100
commita90c75de317ece497ecd0da553c3a0666ae4fd16 (patch)
treea2e14ba9ff5f2662c8f73e13b6ca17f8bfa9f82d /perl-install/interactive/gtk.pm
parent7f3ec46de7c8c8875c56ccc9efbb10281632fc9f (diff)
downloaddrakx-a90c75de317ece497ecd0da553c3a0666ae4fd16.tar
drakx-a90c75de317ece497ecd0da553c3a0666ae4fd16.tar.gz
drakx-a90c75de317ece497ecd0da553c3a0666ae4fd16.tar.bz2
drakx-a90c75de317ece497ecd0da553c3a0666ae4fd16.tar.xz
drakx-a90c75de317ece497ecd0da553c3a0666ae4fd16.zip
(create_boxradio,create_widgets) adapt to new tooltips API
Diffstat (limited to 'perl-install/interactive/gtk.pm')
-rw-r--r--perl-install/interactive/gtk.pm6
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 03c0ea2c1..d7ce8f182 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -46,7 +46,6 @@ sub create_boxradio {
my $boxradio = gtkpack2__(Gtk3::VBox->new,
my @radios = gtkradio('', @{$e->{formatted_list}}));
- my $tips = Gtk3::Tooltips->new;
mapn {
my ($txt, $w) = @_;
# workaround infamous 6 years old gnome bug #101968:
@@ -59,7 +58,7 @@ sub create_boxradio {
$onchange_f->(sub { $txt });
});
if ($e->{help}) {
- gtkset_tip($tips, $w,
+ $w->set_tooltip_text(
ref($e->{help}) eq 'HASH' ? $e->{help}{$txt} :
ref($e->{help}) eq 'CODE' ? $e->{help}($txt) : $e->{help});
}
@@ -750,9 +749,8 @@ sub create_widgets {
my $box = create_widgets_block($o, $common, $l, $update, \$ignore);
- my $tooltips = Gtk3::Tooltips->new;
foreach my $e (@all) {
- $tooltips->set_tip($e->{w}, $e->{help}) if $e->{help} && !ref($e->{help});
+ $e->{w}->set_tooltip_text($e->{help}) if $e->{help} && !ref($e->{help});
}
$box, $set_all;