From 9dc52f06f8967b0385afeef34beaa3744bb06a98 Mon Sep 17 00:00:00 2001 From: Stew Benedict Date: Tue, 22 Mar 2005 15:34:38 +0000 Subject: XBox - get xpad to work in install (added xset) --- perl-install/install_steps_gtk.pm | 1 + perl-install/mouse.pm | 12 ++++++++++-- perl-install/share/list.i386 | 1 + 3 files changed, 12 insertions(+), 2 deletions(-) diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 61226e08d..5596c3a83 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -133,6 +133,7 @@ sub new($$) { } OK: $ENV{DISPLAY} = $wanted_DISPLAY; + run_program::run('xset', 'm', '1/8', '1') if is_xbox(); install_gtk::init_gtk($o); install_gtk::init_sizes(); install_gtk::install_theme($o); diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index f126c9cc0..822fe5a38 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -294,7 +294,7 @@ sub detect { my $synaptics_mouse; if (my $mouse_nb = scalar grep { /^H: Handlers=mouse/ } @input_devices) { if (is_xbox()) { - return fullname2mouse('Universal|Microsoft Xbox Controller S'); + return fullname2mouse('Universal|Microsoft Xbox Controller S', if_($::isInstall, alternate_install => fullname2mouse('Universal|Microsoft Xbox Controller S'))); } my $univ_mouse = fullname2mouse('Universal|Any PS/2 & USB mice', wacom => \@wacom); if (my $synaptics_name = find { m!^N: Name="(?:SynPS/2 Synaptics TouchPad|AlpsPS/2 ALPS TouchPad)"$! } @input_devices) { @@ -421,7 +421,15 @@ sub various_xfree_conf { output_with_perm($f, 0755, "xinput set-button-map Mouse2 1 2 3 6 7 4 5\n"); } } - + { + my $f = "$::prefix/etc/X11/xinit.d/xpad"; + if ($mouse->{name} !~ /^Microsoft Xbox Controller/) { + unlink($f); + } else { + output_with_perm($f, 0755, "xset m 1/8 1\n"); + } + } + if (member(N_("Synaptics Touchpad"), $mouse->{name}, $mouse->{auxmouse} && $mouse->{auxmouse}{name})) { $do_pkgs->install("synaptics"); } diff --git a/perl-install/share/list.i386 b/perl-install/share/list.i386 index 3f071b21f..01b7fca2d 100644 --- a/perl-install/share/list.i386 +++ b/perl-install/share/list.i386 @@ -18,3 +18,4 @@ /usr/X11R6/lib/modules/linux/libfbdevhw.a /usr/X11R6/lib/modules/libfb.a /usr/X11R6/lib/modules/libshadow.a +/usr/X11R6/bin/xset -- cgit v1.2.1