summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/mygtk2.pm1
-rw-r--r--perl-install/ugtk2.pm1
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',