summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-10 14:01:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-10 14:01:45 +0000
commit809c54247c83e26ebcf69f158a430de2700374b1 (patch)
tree18c8a804bdc80e832e0423e820d5fbb3a2f96400 /perl-install/install_steps_interactive.pm
parent1c5ec8489aeb7e3b9c08b8c4c2b83987369c3680 (diff)
downloaddrakx-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/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm12
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);