summaryrefslogtreecommitdiffstats
path: root/perl-install/services.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-11-28 13:45:06 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-11-28 13:45:06 +0000
commit9315c0fb488d947b44e8f56629e3828b43f1ff43 (patch)
tree2f0d02d6137e9cf47ae2ba69f33b18c9f7dc5b8b /perl-install/services.pm
parentec747dc1097a5f80d220311dc89e9d6ec32cab31 (diff)
downloaddrakx-9315c0fb488d947b44e8f56629e3828b43f1ff43.tar
drakx-9315c0fb488d947b44e8f56629e3828b43f1ff43.tar.gz
drakx-9315c0fb488d947b44e8f56629e3828b43f1ff43.tar.bz2
drakx-9315c0fb488d947b44e8f56629e3828b43f1ff43.tar.xz
drakx-9315c0fb488d947b44e8f56629e3828b43f1ff43.zip
- my_gtk->main already do the kill 'USR2'
and hardcoding signal number was bad anyway - use gtkflush()
Diffstat (limited to 'perl-install/services.pm')
-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;
}