diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-01 15:25:57 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-01 15:25:57 +0000 |
| commit | 4799bc7d0f1e3cabb0396f47ec356b8e478c1b97 (patch) | |
| tree | 884bb108e7da6b50ed0dfdc8b225835cb5265e5f /perl-install/lang.pm | |
| parent | ea89b723b8ebd1b25a194097b10516427afa2c0e (diff) | |
| download | drakx-backup-do-not-use-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.tar drakx-backup-do-not-use-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.tar.gz drakx-backup-do-not-use-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.tar.bz2 drakx-backup-do-not-use-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.tar.xz drakx-backup-do-not-use-4799bc7d0f1e3cabb0396f47ec356b8e478c1b97.zip | |
no_comment
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 14 |
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); } #-###################################################################################### |