diff options
| -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', |