From da0234d25136a4b64becb13203e5dac4304632f1 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 13 Sep 2007 15:39:51 +0000
Subject: - for wait_message, display a banner and move "Please Wait" in the
 banner

---
 perl-install/interactive/gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/interactive')

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 306ea0c9e..2ba674a88 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -831,10 +831,10 @@ sub wait_messageW {
 			title => $title,
 			pop_it => !$::isInstall, 
 			modal => 1, 
+			$::isInstall ? (banner => Gtk2::Banner->new((get_default_step_items())[0], $message)) : (),
 			no_Window_Manager => exists $o->{no_Window_Manager} ? $o->{no_Window_Manager} : !$::isStandalone,
 			if__($::main_window, transient_for => $::main_window),
 			child => gtknew('VBox', padding => 4, border_width => 10, children => [
-			    0, Gtk2::Label->new(scalar warp_text($message)),
 			    1, $to_modify,
 			    if_(ref($message_modifiable), 0, $message_modifiable),
 			]),
-- 
cgit v1.2.1