diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-10 14:01:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-10 14:01:45 +0000 |
| commit | 809c54247c83e26ebcf69f158a430de2700374b1 (patch) | |
| tree | 18c8a804bdc80e832e0423e820d5fbb3a2f96400 /perl-install | |
| parent | 1c5ec8489aeb7e3b9c08b8c4c2b83987369c3680 (diff) | |
| download | drakx-backup-do-not-use-809c54247c83e26ebcf69f158a430de2700374b1.tar drakx-backup-do-not-use-809c54247c83e26ebcf69f158a430de2700374b1.tar.gz drakx-backup-do-not-use-809c54247c83e26ebcf69f158a430de2700374b1.tar.bz2 drakx-backup-do-not-use-809c54247c83e26ebcf69f158a430de2700374b1.tar.xz drakx-backup-do-not-use-809c54247c83e26ebcf69f158a430de2700374b1.zip | |
(selectLanguage): many_languages choice moved there as advanced
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 4ca51cb53..c60fa9252 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -50,21 +50,21 @@ sub kill_action { sub selectLanguage($) { my ($o) = @_; - $o->ask_from_entries_refH( + $o->ask_from_entries_refH_powered( { messages => _("Please, choose a language to use."), advanced_messages => _("You can choose other languages that will be available after install"), callbacks => { - changed => sub { $o->{langs}{$o->{lang}} = 1 }, + focus_out => sub { $o->{langs}{$o->{lang}} = 1 }, }, }, [ { val => \$o->{lang}, type => 'list', format => \&lang::lang2text, list => [ lang::list() ] }, (map {; - { val => \$o->{langs}{$_}, type => 'bool', disabled => sub { $o->{langs}{all} }, - text => lang::lang2text($_) + { val => \$o->{langs}{$_->[0]}, type => 'bool', disabled => sub { $o->{langs}{all} }, + text => $_->[1], advanced => 1, } - } lang::list()), - { val => \$o->{langs}{all}, type => 'bool', text => _("All") } + } sort { $a->[1] cmp $b->[1] } map { [ $_, lang::lang2text($_) ] } lang::list()), + { val => \$o->{langs}{all}, type => 'bool', text => _("All"), advanced => 1 } ]); install_steps::selectLanguage($o); |