From 1e33770ee593b9d6047cef6edb8d1c8f3e749e96 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 10 Dec 2012 03:33:12 +0000
Subject: (load_font) simplify

---
 perl-install/install/gtk.pm | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

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

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