summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-15 21:26:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-15 21:26:17 +0000
commitdb9344149320870fd92d24b704f673e4880b2b6a (patch)
treef6fd72d7e22e728fb3f188e0f21e3ac38eaab479 /perl-install/install_steps_interactive.pm
parent851338fe8bf4c8d057984431b542b333cbad4b8e (diff)
downloaddrakx-db9344149320870fd92d24b704f673e4880b2b6a.tar
drakx-db9344149320870fd92d24b704f673e4880b2b6a.tar.gz
drakx-db9344149320870fd92d24b704f673e4880b2b6a.tar.bz2
drakx-db9344149320870fd92d24b704f673e4880b2b6a.tar.xz
drakx-db9344149320870fd92d24b704f673e4880b2b6a.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index ab32dc452..d679ca432 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -151,9 +151,12 @@ sub selectMouse {
my ($o, $force) = @_;
$force ||= $o->{mouse}{unsafe} || $::expert;
-
- $o->{mouse} = $o->ask_from_listf_('', _("Please, choose the type of your mouse."),
- sub { $_[0]{FULLNAME} }, [ mouse::list ], $o->{mouse}) if $force;
+
+ 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;
if ($force && $o->{mouse}{device} eq "ttyS") {
$o->set_help('selectSerialPort');