diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-03-14 15:27:46 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-03-14 15:27:46 +0000 |
| commit | 28bf5e837eafc9cfa913d808eb189676739aedab (patch) | |
| tree | c000d8cfb40a8cbd0537dc09ca3b1cb52da8546c /perl-install | |
| parent | c118254e2a04cf48c134762c129315072a54ccfb (diff) | |
| download | drakx-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.pm | 11 |
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(); } |