From e6f37b08b1b3bd01f6669a43ec221d01bf956054 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 22 Aug 2008 14:09:53 +0000
Subject: - pop wait_messages and ensure same window is used for next
 wait_messages   (to ensure the background is not greyed,ungreyed,greyed,...)

---
 perl-install/interactive/gtk.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/interactive')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 1330fb0dd..ae07ff4e7 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -857,7 +857,8 @@ sub wait_messageW {
 
     my $Window = gtknew('MagicWindow',
 			title => $title,
-			pop_it => defined $o->{pop_wait_messages} ? $o->{pop_wait_messages} : !$::isInstall, 
+			pop_it => defined $o->{pop_wait_messages} ? $o->{pop_wait_messages} : 1, 
+			pop_and_reuse => $::isInstall,
 			modal => 1, 
 			$::isInstall ? (banner => gtknew('Install_Title', text => $message)) : (),
 			no_Window_Manager => exists $o->{no_Window_Manager} ? $o->{no_Window_Manager} : !$::isStandalone,
@@ -880,6 +881,8 @@ sub wait_message_nextW {
 }
 sub wait_message_endW {
     my ($_o, $Window) = @_;
+    $Window->{pop_and_reuse} and return;
+
     mygtk2::may_destroy($Window);
     mygtk2::flush();
 }
-- 
cgit v1.2.1