diff options
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 9 |
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'); |