diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-28 15:27:02 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-28 15:27:02 +0000 |
| commit | 7d4f7d28353b999a596562262afdb95f400c1a28 (patch) | |
| tree | f3d540307eb68d14b01b6fb81c68e553600fef2e /perl-install/any.pm | |
| parent | 0e32cf0bca437f291a60dba07180a78e7f04e419 (diff) | |
| download | drakx-7d4f7d28353b999a596562262afdb95f400c1a28.tar drakx-7d4f7d28353b999a596562262afdb95f400c1a28.tar.gz drakx-7d4f7d28353b999a596562262afdb95f400c1a28.tar.bz2 drakx-7d4f7d28353b999a596562262afdb95f400c1a28.tar.xz drakx-7d4f7d28353b999a596562262afdb95f400c1a28.zip | |
(selectLanguage): fix the ugly use of focus_out for setting langs. Was completly rubbish in newt.
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 33e3cb17b..4e27cbaa4 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -843,7 +843,7 @@ sub selectLanguage { the languages you would like to install. They will be available when your installation is complete and you restart your system.")), callbacks => { - focus_out => sub { $langs->{$lang} = 1 }, + advanced => sub { $langs->{$lang} = 1 }, }, }, [ { val => \$lang, separator => '|', @@ -855,6 +855,7 @@ when your installation is complete and you restart your system.")), } sort { $a->[1] cmp $b->[1] } map { [ $_, lang::lang2text($_) ] } lang::list()), { val => \$langs->{all}, type => 'bool', text => _("All"), advanced => 1 }), ]) or return; + $langs->{$lang} = 1; $lang; } |