From ee7d2bb5fecbc6d8874809cbcb6d5f6da8e02f60 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 22 Aug 2002 13:40:52 +0000 Subject: use Protocol IMPS/2 when ExplorerPS/2 is asked for (since ExplorerPS/2 doesn't work in xfree3) --- perl-install/Xconfig/xfree3.pm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'perl-install') diff --git a/perl-install/Xconfig/xfree3.pm b/perl-install/Xconfig/xfree3.pm index d3a258138..9235f8f96 100644 --- a/perl-install/Xconfig/xfree3.pm +++ b/perl-install/Xconfig/xfree3.pm @@ -51,6 +51,16 @@ sub new_mouse_sections { } } +sub set_mice { + my ($raw_X, @mice) = @_; + @mice = map { + my %h = %$_; + put_in_hash(\%h, { Protocol => 'IMPS/2', ZAxisMapping => '4 5' }) if $h{Protocol} eq 'ExplorerPS/2'; + \%h; + } @mice; + $raw_X->SUPER::set_mice(@mice); +} + sub set_wacoms { my ($raw_X, @wacoms) = @_; -- cgit v1.2.1