From 06b9dd6eed177e55e8c6c1fd15911237996a0a62 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 25 Jul 2008 15:40:05 +0000
Subject: (new) render titles as capitals in installer

---
 perl-install/ugtk2.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index cc2b57b83..3d1ddb9d8 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -3,6 +3,7 @@ package ugtk2;
 use diagnostics;
 use strict;
 use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK @icon_paths $wm_icon $grab $border); #- leave it on one line, for automatic removal of the line at package creation
+use locale;
 
 @ISA = qw(Exporter);
 %EXPORT_TAGS = (
@@ -726,6 +727,7 @@ sub new {
 
     my $icon = find { _find_imgfile($_) } $::isInstall ? 'empty-banner' : $opts{icon};
     my $banner_title = $opts{banner_title};
+    $title = uc($title) if $::isInstall;
     my $window = gtknew(
 	'MagicWindow',
 	title => $title || '',
-- 
cgit v1.2.1