From 5d3d6c1a01eb33b5a35fbc13657d6e9d9b5f9aab 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/NEWS   | 2 ++
 perl-install/install/gtk.pm | 7 +++++--
 2 files changed, 7 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 99fa43e7c..fb45f987f 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,6 +1,8 @@
 - language choise:
   o change title of of "Multiple languages" dialog box from "Please Choose A
     Language To Use" to "Select Additional Languages" (mga#7648)
+- set font familly & size system wide, thus fixing font size in gurpmi
+  & release notes (mga#67)
 
 Version 15.5 - 10 December 2012
 
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