From 9a93b2f13e8af8504baa35525d3f23ddc2bbfc74 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 21 Jan 2001 18:00:40 +0000
Subject: (selectMouse): use ask_from_treelist_

---
 perl-install/install_steps_interactive.pm | 9 ++++-----
 1 file 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');
-- 
cgit v1.2.1