From fb4327824c46e392f04d64b9da9de5bf0fc3d6b6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 25 Nov 2003 12:14:48 +0000 Subject: add new mouse "PS/2|Automatic" and use it by default, so that "PS/2|Generic PS2 Wheel Mouse" use protocol IMPS/2 which is needed when we force mouse change live ("auto" doesn't work in that case) --- perl-install/mouse.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 4521e359b..24acfb5b8 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -30,8 +30,9 @@ my %mice = [ [ 'psaux' ], [ [ 2, 'ps/2', 'PS/2', N_("Standard") ], [ 5, 'ps/2', 'MouseManPlusPS/2', N_("Logitech MouseMan+") ], - [ 5, 'imps2', 'auto', N_("Generic PS2 Wheel Mouse") ], + [ 5, 'imps2', 'IMPS/2', N_("Generic PS2 Wheel Mouse") ], [ 5, 'ps/2', 'GlidePointPS/2', N_("GlidePoint") ], + [ 5, 'imps2', 'auto', N_("Automatic") ], '', [ 5, 'ps/2', 'ThinkingMousePS/2', N_("Kensington Thinking Mouse") ], [ 5, 'netmouse', 'NetMousePS/2', N_("Genius NetMouse") ], @@ -259,11 +260,11 @@ sub detect() { my @wacom; my $fast_mouse_probe = sub { - my $auxmouse = detect_devices::hasMousePS2("psaux") && fullname2mouse("PS/2|Generic PS2 Wheel Mouse", unsafe => 0); + my $auxmouse = detect_devices::hasMousePS2("psaux") && fullname2mouse("PS/2|Automatic", unsafe => 0); #- workaround for some special case were mouse is openable 1/2. unless ($auxmouse) { - $auxmouse = detect_devices::hasMousePS2("psaux") && fullname2mouse("PS/2|Generic PS2 Wheel Mouse", unsafe => 0); + $auxmouse = detect_devices::hasMousePS2("psaux") && fullname2mouse("PS/2|Automatic", unsafe => 0); $auxmouse and detect_devices::hasMousePS2("psaux"); #- fake another open in order for XFree to see the mouse. } -- cgit v1.2.1