diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-12-10 03:33:12 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-12-10 03:33:12 +0000 |
| commit | 1e33770ee593b9d6047cef6edb8d1c8f3e749e96 (patch) | |
| tree | addda1d6f99db83a556f066485bb4f8646e3f287 /perl-install/install/gtk.pm | |
| parent | 690e2229d026e9e08b3fb368e32850b81d44d3d5 (diff) | |
| download | drakx-backup-do-not-use-1e33770ee593b9d6047cef6edb8d1c8f3e749e96.tar drakx-backup-do-not-use-1e33770ee593b9d6047cef6edb8d1c8f3e749e96.tar.gz drakx-backup-do-not-use-1e33770ee593b9d6047cef6edb8d1c8f3e749e96.tar.bz2 drakx-backup-do-not-use-1e33770ee593b9d6047cef6edb8d1c8f3e749e96.tar.xz drakx-backup-do-not-use-1e33770ee593b9d6047cef6edb8d1c8f3e749e96.zip | |
(load_font) simplify
Diffstat (limited to 'perl-install/install/gtk.pm')
| -rw-r--r-- | perl-install/install/gtk.pm | 10 |
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); |