summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/ugtk2.pm')
-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();
}