summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm8
1 files changed, 7 insertions, 1 deletions
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;