summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/mouse.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index f668e808f..af0f7fca3 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -36,6 +36,7 @@ my %mice =
[ 5, 'ps/2', 'ThinkingMousePS/2', __("Kensington Thinking Mouse") ],
[ 5, 'netmouse', 'NetMousePS/2', __("Genius NetMouse") ],
[ 5, 'netmouse', 'NetScrollPS/2', __("Genius NetScroll") ],
+ [ 7, 'ps/2', 'ExplorerPS/2', __("Microsoft Explorer") ],
]],
'USB' =>
@@ -102,11 +103,12 @@ sub xmouse2xId {
"SysMouse",
"Auto",
"AceCad",
- "WSMouse",
+ "ExplorerPS/2",
"USB",
);
my ($id) = @_;
$id = 'BusMouse' if $id eq 'MouseMan';
+ $id = 'IMPS/2' if $id eq 'ExplorerPS/2' && $::isInstall;
my $i; map_index { $_ eq $id and $i = $::i } @xmousetypes; $i;
}