diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-28 13:45:06 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-28 13:45:06 +0000 |
| commit | 9315c0fb488d947b44e8f56629e3828b43f1ff43 (patch) | |
| tree | 2f0d02d6137e9cf47ae2ba69f33b18c9f7dc5b8b /perl-install/services.pm | |
| parent | ec747dc1097a5f80d220311dc89e9d6ec32cab31 (diff) | |
| download | drakx-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.pm | 3 |
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; } |