From 9315c0fb488d947b44e8f56629e3828b43f1ff43 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 28 Nov 2002 13:45:06 +0000
Subject: - my_gtk->main already do the kill 'USR2'   and hardcoding signal
 number was bad anyway - use gtkflush()

---
 perl-install/services.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install/services.pm')

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;
 }
-- 
cgit v1.2.1