From 21f296aacb5ee8f1f2c743679519ad0f0ed62ffd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 13 Aug 2008 09:35:32 +0000
Subject: (new,wait_messageW) do not use Banners anymore in order to render
 titles at install time

---
 perl-install/interactive/gtk.pm | 2 +-
 perl-install/ugtk2.pm           | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index 8a6b80f2e..46b103807 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -840,7 +840,7 @@ sub wait_messageW {
 			title => $title,
 			pop_it => defined $o->{pop_wait_messages} ? $o->{pop_wait_messages} : !$::isInstall, 
 			modal => 1, 
-			$::isInstall ? (banner => Gtk2::Banner->new('empty-banner', $message)) : (),
+			$::isInstall ? my $w = gtknew('Title1', text => $message, widget_name => 'Banner') : (),
 			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 => [
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index eef2efb81..d7165e98a 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -732,10 +732,10 @@ sub new {
 	'MagicWindow',
 	title => $title || '',
 	pop_it => $o->{pop_it},
-	$::isInstall ? (banner => Gtk2::Banner->new($icon, $title || (get_default_step_items()))) : (),
+	$::isInstall ? (banner => gtknew('Title1', text => $title || get_default_step_items(), widget_name => 'Banner')) : (),
 	$::isStandalone && $banner_title && $icon ? (banner => Gtk2::Banner->new($icon, $banner_title)) : (),
 	width => $opts{width}, height => $opts{height}, default_width => $opts{default_width}, default_height => $opts{default_height}, 
-	modal => !(!$o->{pop_it} && $::isInstall) && ($opts{modal} || $grab || $o->{grab}) || $o->{modal},
+	modal => (!$o->{pop_it} && !$::isInstall) && ($opts{modal} || $grab || $o->{grab}) || $o->{modal},
 	no_Window_Manager => exists $opts{no_Window_Manager} ? $opts{no_Window_Manager} : !$::isStandalone,
 	if_(!$::isInstall, icon_no_error => wm_icon()),
 	if_($o->{transient}, transient_for => $o->{transient}), 
-- 
cgit v1.2.1