summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-03-14 15:27:46 +0000
committerOlivier Blin <oblin@mandriva.com>2008-03-14 15:27:46 +0000
commit28bf5e837eafc9cfa913d808eb189676739aedab (patch)
treec000d8cfb40a8cbd0537dc09ca3b1cb52da8546c /perl-install
parentc118254e2a04cf48c134762c129315072a54ccfb (diff)
downloaddrakx-28bf5e837eafc9cfa913d808eb189676739aedab.tar
drakx-28bf5e837eafc9cfa913d808eb189676739aedab.tar.gz
drakx-28bf5e837eafc9cfa913d808eb189676739aedab.tar.bz2
drakx-28bf5e837eafc9cfa913d808eb189676739aedab.tar.xz
drakx-28bf5e837eafc9cfa913d808eb189676739aedab.zip
use closed signal to handle default timeout action
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm11
1 files changed, 5 insertions, 6 deletions
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();
}