summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootlook.pm5
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