From 68e173d018ffdc674d2e3073a1f6cd9f73f6ff68 Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Tue, 8 Mar 2005 14:14:43 +0000 Subject: mousedrake, detectloader support for XBox --- perl-install/mouse.pm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'perl-install/mouse.pm') diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index d79eaa020..459c8ce61 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -86,6 +86,7 @@ my %mice = N_("Universal") => [ [ 'input/mice' ], [ [ 7, 'ps/2', 'ExplorerPS/2', N_("Any PS/2 & USB mice") ], + if_(is_xbox(), [ 5, 'ps/2', 'IMPS/2', N_("Microsoft Xbox Controller S") ]), [ 5, 'ps/2', 'auto-dev', N_("Synaptics Touchpad") ], ] ], ), @@ -292,6 +293,9 @@ sub detect { my @input_devices = cat_('/proc/bus/input/devices'); my $synaptics_mouse; if (my $mouse_nb = grep { /^H: Handlers=mouse/ } @input_devices) { + if (is_xbox()) { + return fullname2mouse('Universal|Microsoft Xbox Controller S'); + } my $univ_mouse = fullname2mouse('Universal|Any PS/2 & USB mice', wacom => \@wacom); if (any { m!^N: Name="(?:SynPS/2 Synaptics TouchPad|AlpsPS/2 ALPS TouchPad)"$! } @input_devices) { $synaptics_mouse = fullname2mouse('Universal|Synaptics Touchpad'); -- cgit v1.2.1