From ee7d2bb5fecbc6d8874809cbcb6d5f6da8e02f60 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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