From a673fba662091527c08518a326146c41aab56b76 Mon Sep 17 00:00:00 2001 From: Pablo Saratxaga Date: Fri, 12 Mar 2004 14:41:35 +0000 Subject: always define KDM fonts dependending on encoding (fix for bug #8714) --- perl-install/lang.pm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'perl-install/lang.pm') diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 45dbf5e78..320747067 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -973,7 +973,7 @@ sub write { update_gnomekderc("$ENV{HOME}/.qt/qtrc", General => (XIMInputStyle => $qt_xim)); } - if (!$b_user_only && $locale->{lang} !~ /^(zh_TW|th|vi|be|bg)/) { #- skip since we don't have the right font (it badly fails at least for zh_TW) + if (!$b_user_only) { my $kde_charset = charset2kde_charset(l2charset($locale->{lang})); my $welcome = c::to_utf8(N("Welcome to %s", '%n')); substInFile { @@ -981,9 +981,13 @@ sub write { s/^(Language)=.*/$1=$locale->{lang}/; if (!member($kde_charset, 'iso8859-1', 'iso8859-15')) { #- don't keep the default for those - s/^(StdFont)=.*/$1=*,12,5,$kde_charset,50,0/; - s/^(FailFont)=.*/$1=*,12,5,$kde_charset,75,0/; - s/^(GreetFont)=.*/$1=*,24,5,$kde_charset,50,0/; + my $font_list = $charset2kde_font{$charset} || $charset2kde_font{default}; + my $font_small = $font_list->[0]; + my $font_huge = $font_small; + $font_huge =~ s/(.*),../$1,24/; + s/^(StdFont)=.*/$1=$font_small,5,$kde_charset,50,0/; + s/^(FailFont)=.*/$1=$font_small,5,$kde_charset,75,0/; + s/^(GreetFont)=.*/$1=$font_huge,5,$kde_charset,50,0/; } } "$::prefix/usr/share/config/kdm/kdmrc"; } -- cgit v1.2.1