summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-21 18:00:40 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-21 18:00:40 +0000
commit9a93b2f13e8af8504baa35525d3f23ddc2bbfc74 (patch)
tree1178b6958fa58c927ed068ff374c062955509388 /perl-install
parent51a98b6175e075a5af3c8ec32cbd24616ccc3712 (diff)
downloaddrakx-9a93b2f13e8af8504baa35525d3f23ddc2bbfc74.tar
drakx-9a93b2f13e8af8504baa35525d3f23ddc2bbfc74.tar.gz
drakx-9a93b2f13e8af8504baa35525d3f23ddc2bbfc74.tar.bz2
drakx-9a93b2f13e8af8504baa35525d3f23ddc2bbfc74.tar.xz
drakx-9a93b2f13e8af8504baa35525d3f23ddc2bbfc74.zip
(selectMouse): use ask_from_treelist_
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm9
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');