From fb45c82709c532f81cc594b6daba4e35e5fd929c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Tue, 26 Aug 2014 08:35:23 +0200
Subject: prevent potential gtk warnings (like in mcc)

---
 perl-install/standalone/drakclock | 7 ++++++-
 perl-install/ugtk2.pm             | 5 ++++-
 perl-install/ugtk3.pm             | 6 ++++--
 3 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/perl-install/standalone/drakclock b/perl-install/standalone/drakclock
index 4206a11be..d1dc4758f 100755
--- a/perl-install/standalone/drakclock
+++ b/perl-install/standalone/drakclock
@@ -266,7 +266,10 @@ sub update_time() {
 }
 
 sub cal_changed() {
-    !$its_reset and $timer and Glib::Source->remove($timer);
+    if (!$its_reset and $timer) {
+	Glib::Source->remove($timer);
+	undef $timer;
+    }
     $button_reset->set_sensitive(1);
 }
 
@@ -282,6 +285,7 @@ sub changed() {
 
 sub spinned() {
     Glib::Source->remove($timer);
+    undef $timer;
     $button_reset->set_sensitive(1);
     time_to_rad($adjs->get_value, $adjm->get_value, $adjh->get_value);
     Repaint($drawing_area);
@@ -293,6 +297,7 @@ sub motion_event {
     $pressed or return;
     if ($first) {
 	Glib::Source->remove($timer);
+	undef $timer;
 	$Radian = determine_radian($event->x, $event->y);
 	$button_reset->set_sensitive(1);
     }
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index a8e50d319..fe548940e 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1154,7 +1154,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);
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});
-- 
cgit v1.2.1