diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-09-10 15:31:52 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-09-10 15:31:52 +0000 |
| commit | 4537d543f3af2d8247bb5e7dcdb7c63efbddf7eb (patch) | |
| tree | 1a38908c3f4dfcf8bc9c25f8b03a84b282f25fa9 /perl-install/mygtk2.pm | |
| parent | 84b4ebcea85fddcf4d788ecb6b29c9b2d708df4e (diff) | |
| download | drakx-4537d543f3af2d8247bb5e7dcdb7c63efbddf7eb.tar drakx-4537d543f3af2d8247bb5e7dcdb7c63efbddf7eb.tar.gz drakx-4537d543f3af2d8247bb5e7dcdb7c63efbddf7eb.tar.bz2 drakx-4537d543f3af2d8247bb5e7dcdb7c63efbddf7eb.tar.xz drakx-4537d543f3af2d8247bb5e7dcdb7c63efbddf7eb.zip | |
(_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)
Diffstat (limited to 'perl-install/mygtk2.pm')
| -rw-r--r-- | perl-install/mygtk2.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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 => [ |