From 185af1911319cdf87678263a7b4ae6e3589f10eb Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 22 Aug 2002 15:38:51 +0000 Subject: (xmouse2xId): add ExplorerPS/2 mouse type id (xmouse2xId): don't use ExplorerPS/2 during install (since install is xfree3) --- perl-install/mouse.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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; } -- cgit v1.2.1