From 900a7894c85fbf8ca23804ee69e8d38d0c2b35ff Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 22 Nov 2002 16:04:51 +0000 Subject: incorporate 8.2 HP fixes back in cooker. --- perl-install/mouse.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index dd34ff2de..04acaad88 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -41,7 +41,7 @@ my %mice = 'USB' => [ [ 'usbmouse' ], - [ if_(arch() eq 'ppc', [ 1, 'ps/2', 'PS/2', N_("1 button") ]), + [ [ 1, 'ps/2', 'PS/2', N_("1 button") ], [ 2, 'ps/2', 'PS/2', N_("Generic 2 Button Mouse") ], [ 3, 'ps/2', 'PS/2', N_("Generic") ], [ 5, 'ps/2', 'IMPS/2', N_("Wheel") ], @@ -269,6 +269,12 @@ sub detect() { my $fast_mouse_probe = sub { my $auxmouse = detect_devices::hasMousePS2("psaux") && fullname2mouse("PS/2|Standard", unsafe => 1); + #- 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 and detect_devices::hasMousePS2("psaux"); #- fake another open in order for XFree to see the mouse. + } + if (modules::get_probeall("usb-interface")) { if (my (@l) = detect_devices::usbMice()) { log::l("found usb mouse $_->{driver} $_->{description} ($_->{type})") foreach @l; -- cgit v1.2.1