summaryrefslogtreecommitdiffstats
path: root/perl-install/bootlook.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/bootlook.pm')
-rw-r--r--perl-install/bootlook.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 1755b095b..a471f1a68 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -216,7 +216,9 @@ if ($a_mode) {
$pixmap->set($t_pixmap, $t_mask)
}
-main Gtk;
+Gtk->main_iteration while Gtk->events_pending;
+kill USR2, $::CCPID;
+Gtk->main;
#-------------------------------------------------------------
# get user names to put in combo
#-------------------------------------------------------------