summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-09-10 15:31:52 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-10 15:31:52 +0000
commit4537d543f3af2d8247bb5e7dcdb7c63efbddf7eb (patch)
tree1a38908c3f4dfcf8bc9c25f8b03a84b282f25fa9 /perl-install/mygtk2.pm
parent84b4ebcea85fddcf4d788ecb6b29c9b2d708df4e (diff)
downloaddrakx-backup-do-not-use-4537d543f3af2d8247bb5e7dcdb7c63efbddf7eb.tar
drakx-backup-do-not-use-4537d543f3af2d8247bb5e7dcdb7c63efbddf7eb.tar.gz
drakx-backup-do-not-use-4537d543f3af2d8247bb5e7dcdb7c63efbddf7eb.tar.bz2
drakx-backup-do-not-use-4537d543f3af2d8247bb5e7dcdb7c63efbddf7eb.tar.xz
drakx-backup-do-not-use-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.pm1
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 => [