From acbcf359e5e63583f01c06ecbc4346664c443aa0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 5 Dec 1999 23:13:43 +0000
Subject: no_comment

---
 perl-install/interactive_gtk.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/interactive_gtk.pm')

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 089b09e7f..00ec1731a 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -208,13 +208,15 @@ sub wait_messageW($$$) {
 	   gtkpack(new Gtk::VBox(0,0),
 		   @$messages,
 		   $w->{wait_messageW} = new Gtk::Label($W)));
-    $w->sync;
+    $w->{wait_messageW}->signal_connect(expose_event => sub { $w->{displayed} = 1 });
+    $w->sync until $w->{displayed};
     $w;
 }
 sub wait_message_nextW {
     my ($o, $messages, $w) = @_;
+    $w->{displayed} = 0;
     $w->{wait_messageW}->set(join "\n", @$messages);
-    $w->sync;
+    $w->flush until $w->{displayed};
 }
 sub wait_message_endW {
     my ($o, $w) = @_;
-- 
cgit v1.2.1