diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-08-26 08:35:23 +0200 |
|---|---|---|
| committer | Pascal Terjan <pterjan@gmail.com> | 2014-10-20 21:29:55 +0000 |
| commit | fb45c82709c532f81cc594b6daba4e35e5fd929c (patch) | |
| tree | 20d8db1711b28c67bd3c834f4f1d76e472689797 /perl-install/ugtk3.pm | |
| parent | 9c28f1e61a447052bdccb3364174745ac7cafa29 (diff) | |
| download | drakx-fb45c82709c532f81cc594b6daba4e35e5fd929c.tar drakx-fb45c82709c532f81cc594b6daba4e35e5fd929c.tar.gz drakx-fb45c82709c532f81cc594b6daba4e35e5fd929c.tar.bz2 drakx-fb45c82709c532f81cc594b6daba4e35e5fd929c.tar.xz drakx-fb45c82709c532f81cc594b6daba4e35e5fd929c.zip | |
prevent potential gtk warnings (like in mcc)
Diffstat (limited to 'perl-install/ugtk3.pm')
| -rw-r--r-- | perl-install/ugtk3.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/ugtk3.pm b/perl-install/ugtk3.pm index 518789b20..04c0fe493 100644 --- a/perl-install/ugtk3.pm +++ b/perl-install/ugtk3.pm @@ -1249,8 +1249,10 @@ sub ask_browse_tree_info_given_widgets { $w->{tree}->get_selection->signal_connect(changed => sub { my ($model, $iter) = $_[0]->get_selected; $model && $iter or return; - Glib::Source->remove($idle) if $idle; - + if ($idle) { + Glib::Source->remove($idle); + undef $idle; + } if (!$model->iter_has_child($iter)) { $curr = $model->get($iter, 0); $idle = Glib::Timeout->add(100, $common->{display_info}); |