diff options
Diffstat (limited to 'perl-install/Xconfig')
| -rw-r--r-- | perl-install/Xconfig/xfree3.pm | 10 |
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) = @_; |