summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-07-25 15:40:05 +0000
committerThierry Vignaud <tv@mandriva.org>2008-07-25 15:40:05 +0000
commit06b9dd6eed177e55e8c6c1fd15911237996a0a62 (patch)
treecbaaa1a07af1ab4f0fd91fd2349ce69b4d5b9c2e /perl-install
parent32091facf01e02c795175cb6badd4b0988f9325e (diff)
downloaddrakx-06b9dd6eed177e55e8c6c1fd15911237996a0a62.tar
drakx-06b9dd6eed177e55e8c6c1fd15911237996a0a62.tar.gz
drakx-06b9dd6eed177e55e8c6c1fd15911237996a0a62.tar.bz2
drakx-06b9dd6eed177e55e8c6c1fd15911237996a0a62.tar.xz
drakx-06b9dd6eed177e55e8c6c1fd15911237996a0a62.zip
(new) render titles as capitals in installer
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm2
1 files changed, 2 insertions, 0 deletions
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 || '',