diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-15 21:26:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-15 21:26:17 +0000 |
| commit | db9344149320870fd92d24b704f673e4880b2b6a (patch) | |
| tree | f6fd72d7e22e728fb3f188e0f21e3ac38eaab479 /perl-install/install_steps_interactive.pm | |
| parent | 851338fe8bf4c8d057984431b542b333cbad4b8e (diff) | |
| download | drakx-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.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'); |