summaryrefslogtreecommitdiffstats
path: root/perl-install/install/gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-12-10 03:14:08 +0000
committerThierry Vignaud <tv@mageia.org>2012-12-10 03:14:08 +0000
commit5d3d6c1a01eb33b5a35fbc13657d6e9d9b5f9aab (patch)
tree2eb42ff40ed5a7f8aca3040e4ccacf862422a64e /perl-install/install/gtk.pm
parent55c49b24ae244338993146137120f48fff8cff6c (diff)
downloaddrakx-5d3d6c1a01eb33b5a35fbc13657d6e9d9b5f9aab.tar
drakx-5d3d6c1a01eb33b5a35fbc13657d6e9d9b5f9aab.tar.gz
drakx-5d3d6c1a01eb33b5a35fbc13657d6e9d9b5f9aab.tar.bz2
drakx-5d3d6c1a01eb33b5a35fbc13657d6e9d9b5f9aab.tar.xz
drakx-5d3d6c1a01eb33b5a35fbc13657d6e9d9b5f9aab.zip
(load_font) set font familly & size system wide
thus fixing font size in gurpmi & release notes (mga#67)
Diffstat (limited to 'perl-install/install/gtk.pm')
-rw-r--r--perl-install/install/gtk.pm7
1 files changed, 5 insertions, 2 deletions
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);
}
#------------------------------------------------------------------------------