From c290890d427108bf28dbf64f12d7b26fc9c8c510 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 11 Sep 2008 16:08:44 +0000
Subject: (title1_to_markup) bump titles' size by 1 (eg: from 12 to 13 for
 default font settings)

---
 perl-install/install/NEWS | 1 +
 perl-install/mygtk2.pm    | 7 ++++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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>);
   }
-- 
cgit v1.2.1