summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-12-10 03:33:12 +0000
committerThierry Vignaud <tv@mageia.org>2012-12-10 03:33:12 +0000
commit5302a9b5ade61be8203025beb41a8279fb15cabb (patch)
treeaddda1d6f99db83a556f066485bb4f8646e3f287 /perl-install/install
parent718db76458e7d2cc4f821f17ff9e362792bbecc0 (diff)
downloaddrakx-5302a9b5ade61be8203025beb41a8279fb15cabb.tar
drakx-5302a9b5ade61be8203025beb41a8279fb15cabb.tar.gz
drakx-5302a9b5ade61be8203025beb41a8279fb15cabb.tar.bz2
drakx-5302a9b5ade61be8203025beb41a8279fb15cabb.tar.xz
drakx-5302a9b5ade61be8203025beb41a8279fb15cabb.zip
(load_font) simplify
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/gtk.pm10
1 files changed, 2 insertions, 8 deletions
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);