From b0729c6d493e440cd9003f994cec9f5144957d2c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
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/mygtk2.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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

diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 3107510c9..2f70efe89 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -1413,6 +1413,18 @@ sub flush() {
     Gtk2->main_iteration while Gtk2->events_pending;
 }
 
+sub enable_sync_flush {
+    my ($w) = @_;
+    $w->signal_connect(expose_event => sub { $w->{displayed} = 1; 0 });
+}
+
+sub sync_flush {
+    my ($w) = @_;
+    # hackish :-(
+    mygtk2::sync($w) while !$w->{displayed};
+}
+
+
 sub may_destroy {
     my ($w) = @_;
     return if !$w;
-- 
cgit v1.2.1