summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install_gtk.pm25
-rw-r--r--perl-install/install_steps_gtk.pm1
2 files changed, 16 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;
}
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 34043ec7d..bd90b37a5 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -150,6 +150,7 @@ sub leavingStep {
sub charsetChanged {
my ($o) = @_;
Gtk2->set_locale;
+ install_gtk::load_font($o);
install_gtk::update_steps_labels($o);
}