summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/services.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/services.pm b/perl-install/services.pm
index bec3b3b29..3138959d6 100644
--- a/perl-install/services.pm
+++ b/perl-install/services.pm
@@ -249,8 +249,7 @@ sub ask_standalone_gtk {
my ($ox, $oy) = $w->window->get_deskrelative_origin;
$x = $e->{'x'}+$ox; $y = $e->{'y'}+$oy });
$b->signal_connect(button_press_event => sub { $nopop->() });
- $::isEmbedded and Gtk->main_iteration while Gtk->events_pending;
- $::isEmbedded and kill 12, $::CCPID;
+ $::isEmbedded and gtkflush();
$W->main or return;
$on_services;
}