From 4799bc7d0f1e3cabb0396f47ec356b8e478c1b97 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 1 Sep 2000 15:25:57 +0000
Subject: no_comment

---
 perl-install/install_steps_gtk.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_steps_gtk.pm')

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 6e70ff99d..0eacebedb 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -575,7 +575,7 @@ sub install_theme {
 
     load_rc($_) foreach "themes-$o->{theme}", "install", "themes";
 
-    if (my ($font, $font2) = lang::get_x_fontset($o->{lang})) {
+    if (my ($font, $font2) = lang::get_x_fontset($o->{lang}, $::rootwidth < 800 ? 10 : 12)) {
 	$font2 ||= $font;
 	Gtk::Rc->parse_string(qq(
 style "default-font" 
@@ -590,7 +590,7 @@ widget "*" style "default-font"
 widget "*Steps*" style "small-font"
 
 ));
-   }
+    }
     gtkset_background(@background1);# unless $::testing;
 
     create_logo_window($o);
-- 
cgit v1.2.1