diff options
| -rw-r--r-- | perl-install/bootlook.pm | 4 |
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 #------------------------------------------------------------- |