From 4537d543f3af2d8247bb5e7dcdb7c63efbddf7eb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 10 Sep 2008 15:31:52 +0000
Subject: (_gtk__Install_Title) move upcasing title from ugtk2::new() to here
 in order to make sure that all popup titles be upcase (eg: when using default
 step title)

---
 perl-install/install/NEWS | 1 +
 perl-install/mygtk2.pm    | 1 +
 perl-install/ugtk2.pm     | 1 -
 3 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 2f3aa0aed..82b516c0b 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,6 +1,7 @@
 - libdrakX:
   o fix position of cancel button in popups
   o make advanced popup display the same title as their parents
+  o make all popup titles be upcase
 - drakboot
   o fix nolapic/lapic logic due to altered kernel settings
 - fix input devices detection in rpmsrate (broken for 3 years, #43721)
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 9f5310849..4b013b855 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -421,6 +421,7 @@ sub title1_to_markup {
 sub _gtk__Install_Title {
     my ($w, $opts) = @_;
     local $opts->{widget_name} = 'Banner';
+    $opts->{text} = uc($opts->{text}) if $::isInstall;
     gtknew('HBox', widget_name => 'Banner', children => [
         0, gtknew('Label', padding => [ 6, 0 ]),
         1, gtknew('VBox', widget_name => 'Banner', children_tight => [
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 7e5650860..6f92dcb2f 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -737,7 +737,6 @@ sub new {
 
     my $icon = find { _find_imgfile($_) } $::isInstall ? 'empty-banner' : $opts{icon};
     my $banner_title = $opts{banner_title};
-    $title = uc($title) if $::isInstall;
     $o->{transient} ||= $::main_window if $::main_window && !$opts{do_not_track_main_window};
     my $window = gtknew(
 	'MagicWindow',
-- 
cgit v1.2.1