summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-09-11 16:08:44 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-11 16:08:44 +0000
commitc290890d427108bf28dbf64f12d7b26fc9c8c510 (patch)
tree941c1387977f568617665d6ddf8efdafb2775fa9 /perl-install
parent051851bce3cade8903303494bd250813fd53093b (diff)
downloaddrakx-c290890d427108bf28dbf64f12d7b26fc9c8c510.tar
drakx-c290890d427108bf28dbf64f12d7b26fc9c8c510.tar.gz
drakx-c290890d427108bf28dbf64f12d7b26fc9c8c510.tar.bz2
drakx-c290890d427108bf28dbf64f12d7b26fc9c8c510.tar.xz
drakx-c290890d427108bf28dbf64f12d7b26fc9c8c510.zip
(title1_to_markup) bump titles' size by 1 (eg: from 12 to 13 for default font settings)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/mygtk2.pm7
2 files changed, 7 insertions, 1 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index d479a46ee..00f0112e4 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,4 @@
+- bump titles' size by 1 (eg: from 12 to 13 for default font settings)
- do not render "Advanced" & "Help" buttons as blue
- fix default spacing between GUI elements
- fix parsing error messages ar markups
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 787fe9ba0..e800889c3 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -414,7 +414,12 @@ sub _gtk__Alignment {
sub title1_to_markup {
my ($label) = @_;
if ($::isInstall) {
- qq(<span foreground="#5A8AD6">$label</span>);
+ my $font = lang::l2pango_font($::o->{locale}{lang});
+ if (my ($font_size) = $font =~ /(\d+)/) {
+ $font_size++;
+ $font =~ s/\d+/$font_size/;
+ }
+ qq(<span foreground="#5A8AD6" font="$font">$label</span>);
} else {
qq(<b><big>$label</big></b>);
}