diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-07-30 08:00:07 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-07-30 08:00:07 +0000 |
| commit | d32901566dd02bf5a368ba00f9ac583de788e5d9 (patch) | |
| tree | 9f2f521cd2ef54f080b0b19ce1d4b7cc59ac5147 /perl-install | |
| parent | 650f4754a9b251b91fe044af970b5944d69482e7 (diff) | |
| download | drakx-backup-do-not-use-d32901566dd02bf5a368ba00f9ac583de788e5d9.tar drakx-backup-do-not-use-d32901566dd02bf5a368ba00f9ac583de788e5d9.tar.gz drakx-backup-do-not-use-d32901566dd02bf5a368ba00f9ac583de788e5d9.tar.bz2 drakx-backup-do-not-use-d32901566dd02bf5a368ba00f9ac583de788e5d9.tar.xz drakx-backup-do-not-use-d32901566dd02bf5a368ba00f9ac583de788e5d9.zip | |
enable one to choose its input method in advanced mode
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 8 | ||||
| -rw-r--r-- | perl-install/lang.pm | 5 |
2 files changed, 12 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index d6ce4ee2f..f982ae534 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -689,6 +689,9 @@ sub selectCountry { my ($other, $ext_country); member($country, @best) or ($ext_country, $country) = ($country, $ext_country); + my %cfg = getVarsFromSh($< ? "$::prefix$ENV{HOME}/.i18n" : "$::prefix/etc/sysconfig/i18n"); + my %ims = lang::get_ims(); + my $im = find { $ims{$_}{XIM_PROGRAM} eq $cfg{XIM_PROGRAM} } keys %ims; $in->ask_from_( { title => N("Country / Region"), messages => N("Please choose your country."), @@ -701,9 +704,12 @@ sub selectCountry { [ if_(@best, { val => \$country, type => 'list', format => \&lang::c2name, list => \@best, sort => 1 }), { val => \$ext_country, type => 'list', format => \&lang::c2name, - list => [ difference2(\@countries, \@best) ], advanced => scalar(@best) } + list => [ difference2(\@countries, \@best) ], advanced => scalar(@best) }, + { val => \$im, type => 'list', label => N("Input method:"), + list => [ 'None', sort keys %ims ], advanced => 1, format => sub { uc(translate($_[0])) }, }, ]) or return; + $locale->{IM} = $im if ($im ne 'None'); $locale->{country} = $other || !@best ? $ext_country : $country; } diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 499c15bac..81e407d79 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -526,6 +526,10 @@ my %gtkqt_im = }, ); + +sub get_ims() { + %gtkqt_im; +} my %xim = ( @@ -1002,6 +1006,7 @@ sub write { } } + add2hash $h, $gtkqt_im{$locale->{IM}}; add2hash $h, $xim{$h->{LANG}}; #- deactivate translations on console for RTL languages |