From b0729c6d493e440cd9003f994cec9f5144957d2c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sat, 11 Oct 2008 11:18:13 +0000 Subject: (enable_sync_flush,sync_flush) split them out of wait_messageW() so that rpmdrake can get rid of some gray windows --- perl-install/interactive/gtk.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/interactive') diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 0a1cef4a2..2dea19599 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -912,9 +912,9 @@ sub wait_messageW { if_(ref($message_modifiable), 0, $message_modifiable), ]), ); - $Window->signal_connect(expose_event => sub { $Window->{displayed} = 1; 0 }); + mygtk2::enable_sync_flush($Window); $Window->{wait_messageW} = $to_modify; - mygtk2::sync($Window) while !$Window->{displayed}; + mygtk2::sync_flush($Window); $Window; } sub wait_message_nextW { -- cgit v1.2.1