diff options
| -rw-r--r-- | perl-install/bootlook.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm index c5f070aef..1b3100ea9 100644 --- a/perl-install/bootlook.pm +++ b/perl-install/bootlook.pm @@ -219,8 +219,11 @@ if ($a_mode) { $pixmap->set($t_pixmap, $t_mask); } +Gtk->main_iteration while Gtk->events_pending; +$::isEmbedded and kill USR2, $::CCPID; $inmain=1; -main Gtk; +Gtk->main; +Gtk->exit(0); #------------------------------------------------------------- # get user names to put in combo |