diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-16 16:58:05 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-02-16 16:58:05 +0000 |
| commit | 1d829875363f54dbdf048380c84e771491296ea3 (patch) | |
| tree | 1134432df73f1edb8f5bd6acf4d76f17d2fc2213 /perl-install/install_gtk.pm | |
| parent | 455661568d551235de338c9d219b386347b6ff5d (diff) | |
| download | drakx-backup-do-not-use-1d829875363f54dbdf048380c84e771491296ea3.tar drakx-backup-do-not-use-1d829875363f54dbdf048380c84e771491296ea3.tar.gz drakx-backup-do-not-use-1d829875363f54dbdf048380c84e771491296ea3.tar.bz2 drakx-backup-do-not-use-1d829875363f54dbdf048380c84e771491296ea3.tar.xz drakx-backup-do-not-use-1d829875363f54dbdf048380c84e771491296ea3.zip | |
fix my breakage (broke non-latin1 installs :/)
Diffstat (limited to 'perl-install/install_gtk.pm')
| -rw-r--r-- | perl-install/install_gtk.pm | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index 810ecdea7..d6762ed41 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -63,6 +63,20 @@ sub load_rc { } +#------------------------------------------------------------------------------ +sub load_font { + my ($o) = @_; + Gtk2::Rc->parse_string(q( +style "default-font" +{ + font_name = ") . lang::l2pango_font($o->{locale}{lang}) . q( 12" +} +widget "*" style "default-font" + +)); +} + +#------------------------------------------------------------------------------ sub default_theme { my ($o) = @_; $o->{meta_class} eq 'desktop' ? 'blue' : @@ -70,21 +84,12 @@ sub default_theme { $o->{simple_themes} || $o->{vga16} ? 'blue' : 'galaxy'; } -#------------------------------------------------------------------------------ sub install_theme { my ($o) = @_; $o->{theme} ||= default_theme($o); load_rc($o, "themes-$o->{theme}"); - - Gtk2::Rc->parse_string(q( -style "default-font" -{ - font_name = ") . lang::l2pango_font($o->{locale}{lang}) . q( 12" -} -widget "*" style "default-font" - -)); + load_font($o); gtkset_background(@background) unless $::live; #- || testing; } |