From b26f6d428ce4306a1f052e0afd4188f2a2dc24d7 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 10 Dec 2012 03:14:08 +0000
Subject: (load_font) set font familly & size system wide

thus fixing font size in gurpmi & release notes (mga#67)
---
 perl-install/install/gtk.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'perl-install/install/gtk.pm')

diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm
index a447e215d..794c38f6e 100644
--- a/perl-install/install/gtk.pm
+++ b/perl-install/install/gtk.pm
@@ -74,14 +74,17 @@ sub load_font {
 	$::WizardWindow->move($::rootwidth - $width - $x, $y);
     }
 
-    Gtk2::Rc->parse_string(q(
+    my $s = q(
 style "default-font" 
 {
    font_name = ") . lang::l2pango_font($o->{locale}{lang}) . q("
 }
 widget "*" style "default-font"
 
-));
+);
+    Gtk2::Rc->parse_string($s);
+    mkdir("/root");
+    output("/root/.gtkrc-2.0", $s);
 }
 
 #------------------------------------------------------------------------------
-- 
cgit v1.2.1