diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-21 18:00:40 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-21 18:00:40 +0000 |
| commit | 9a93b2f13e8af8504baa35525d3f23ddc2bbfc74 (patch) | |
| tree | 1178b6958fa58c927ed068ff374c062955509388 /perl-install | |
| parent | 51a98b6175e075a5af3c8ec32cbd24616ccc3712 (diff) | |
| download | drakx-backup-do-not-use-9a93b2f13e8af8504baa35525d3f23ddc2bbfc74.tar drakx-backup-do-not-use-9a93b2f13e8af8504baa35525d3f23ddc2bbfc74.tar.gz drakx-backup-do-not-use-9a93b2f13e8af8504baa35525d3f23ddc2bbfc74.tar.bz2 drakx-backup-do-not-use-9a93b2f13e8af8504baa35525d3f23ddc2bbfc74.tar.xz drakx-backup-do-not-use-9a93b2f13e8af8504baa35525d3f23ddc2bbfc74.zip | |
(selectMouse): use ask_from_treelist_
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 64e2c27c3..8743e689c 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -47,7 +47,7 @@ sub kill_action { #- Steps Functions #-###################################################################################### #------------------------------------------------------------------------------ -sub selectLanguage($) { +sub selectLanguage { my ($o) = @_; $o->ask_from_entries_refH_powered( @@ -57,7 +57,7 @@ sub selectLanguage($) { focus_out => sub { $o->{langs}{$o->{lang}} = 1 }, }, }, - [ { val => \$o->{lang}, type => 'list', + [ { val => \$o->{lang}, separator => '|', format => \&lang::lang2text, list => [ lang::list() ] }, (map {; { val => \$o->{langs}{$_->[0]}, type => 'bool', disabled => sub { $o->{langs}{all} }, @@ -238,9 +238,8 @@ sub selectMouse { my $prev = $o->{mouse}{type} . '|' . $o->{mouse}{name}; $o->{mouse} = mouse::fullname2mouse( - $o->ask_from_treelistf('', _("Please, choose the type of your mouse."), '|', - sub { join '|', map { translate($_) } split '\|', $_[0] }, - [ mouse::fullnames ], $prev)) if $force; + $o->ask_from_treelist_('', _("Please, choose the type of your mouse."), + '|', [ mouse::fullnames ], $prev)) if $force; if ($force && $o->{mouse}{type} eq 'serial') { $o->set_help('selectSerialPort'); |