diff options
| -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(); } |