diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-07-25 15:40:05 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-07-25 15:40:05 +0000 |
| commit | 06b9dd6eed177e55e8c6c1fd15911237996a0a62 (patch) | |
| tree | cbaaa1a07af1ab4f0fd91fd2349ce69b4d5b9c2e /perl-install | |
| parent | 32091facf01e02c795175cb6badd4b0988f9325e (diff) | |
| download | drakx-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.pm | 2 |
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 || '', |