From 28bf5e837eafc9cfa913d808eb189676739aedab Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Fri, 14 Mar 2008 15:27:46 +0000
Subject: use closed signal to handle default timeout action

---
 perl-install/ugtk2.pm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 2a6f5c50f..c643d089a 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -1590,12 +1590,11 @@ sub show {
                                             $self->process_next;
                                         }
                                     });
-    $self->{bubble}->set_timeout($self->{display});
-    Glib::Timeout->add($self->{display}, sub { 
-                           my $info = $self->{queue}[0];
-                           $info->{timeout}->() if $info->{timeout};
-                           $self->process_next;
-                           0 });
+    $self->{bubble}->signal_connect(closed => sub {
+                                        my $info = $self->{queue}[0];
+                                        $info->{timeout}->() if $info->{timeout};
+                                        $self->process_next;
+                                    });
     $self->{bubble}->show();
 }
 
-- 
cgit v1.2.1