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 | |
| 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')
| -rw-r--r-- | perl-install/install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/mygtk2.pm | 1 | ||||
| -rw-r--r-- | perl-install/ugtk2.pm | 1 |
3 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 2f3aa0aed..82b516c0b 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,6 +1,7 @@ - libdrakX: o fix position of cancel button in popups o make advanced popup display the same title as their parents + o make all popup titles be upcase - drakboot o fix nolapic/lapic logic due to altered kernel settings - fix input devices detection in rpmsrate (broken for 3 years, #43721) 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 => [ diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 7e5650860..6f92dcb2f 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -737,7 +737,6 @@ sub new { my $icon = find { _find_imgfile($_) } $::isInstall ? 'empty-banner' : $opts{icon}; my $banner_title = $opts{banner_title}; - $title = uc($title) if $::isInstall; $o->{transient} ||= $::main_window if $::main_window && !$opts{do_not_track_main_window}; my $window = gtknew( 'MagicWindow', |