summaryrefslogtreecommitdiffstats
path: root/perl-install/Xconfig
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/Xconfig')
-rw-r--r--perl-install/Xconfig/xfree3.pm10
1 files changed, 10 insertions, 0 deletions
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) = @_;