summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-01 15:25:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-01 15:25:57 +0000
commit4799bc7d0f1e3cabb0396f47ec356b8e478c1b97 (patch)
tree884bb108e7da6b50ed0dfdc8b225835cb5265e5f /perl-install/lang.pm
parentea89b723b8ebd1b25a194097b10516427afa2c0e (diff)
downloaddrakx-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.tar
drakx-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.tar.gz
drakx-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.tar.bz2
drakx-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.tar.xz
drakx-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.zip
no_comment
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm14
1 files changed, 8 insertions, 6 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index e81b711b7..cec746739 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -152,7 +152,7 @@ my %xim = (
sub std2 { "-*-*-medium-r-normal-*-$_[1]-*-*-*-*-*-$_[0]" }
sub std_ { std2($_[0], 10), std2($_[0], 10) }
-sub std { std2($_[0], 12), std2($_[0], 8) }
+sub std { std2($_[0], $_[1] || 10), std2($_[0], 8) }
#- [0]: console font name; [1]: unicode map for console font
#- [2]: acm file for console font; [3]: X11 fontset
@@ -169,9 +169,9 @@ my %charsets = (
"georgian-ps" => [ "t_geors", "geors.uni", "geors_to_geops.trans",
"-*-*-*-*-*-*-*-*-*-*-*-*-georgian-academy" ],
"iso-8859-1" => [ "lat0-sun16", undef, "iso15",
- std("iso8859-1") ],
+ sub { std("iso8859-1", @_) } ],
"iso-8859-2" => [ "lat2-sun16", undef, "iso02",
- std("iso8859-2") ],
+ sub { std("iso8859-2", @_) } ],
"iso-8859-3" => [ "iso03.f16", undef, "iso03",
std_("iso8859-3") ],
"iso-8859-4" => [ "lat4u-16", undef, "iso04",
@@ -189,7 +189,7 @@ my %charsets = (
"iso-8859-8" => [ "iso08.f16", "iso08", "trivial.trans",
std_("iso8859-8") ],
"iso-8859-9" => [ "iso09.f16", "iso09", "trivial.trans",
- std("iso8859-9") ],
+ sub { std("iso8859-9", @_) } ],
"iso-8859-13" => [ "tlat7", "iso01", "trivial.trans",
std_("iso8859-13") ],
"iso-8859-14" => [ "tlat8", "iso01", "trivial.trans",
@@ -420,11 +420,13 @@ sub load_console_font {
#-}
sub get_x_fontset {
- my ($lang) = @_;
+ my ($lang, $size) = @_;
my $l = $languages{$lang} or return;
my $c = $charsets{$l->[1]} or return;
- @$c[3..4];
+ my ($big, $small) = @$c[3..4];
+ ($big, $small) = $big->($size) if ref $big;
+ ($big, $small);
}
#-######################################################################################