summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2003-08-20 18:50:32 +0000
committerFrancois Pons <fpons@mandriva.com>2003-08-20 18:50:32 +0000
commit16ff4764bfb47cc85603413b6665c7aded1f7f2e (patch)
tree390c40c9ae55f67658918101f8f4c15a7a5c8a10 /perl-install/mouse.pm
parentb7154b6a7d3cc6b7465c405f93bbb596be79985f (diff)
downloaddrakx-backup-do-not-use-16ff4764bfb47cc85603413b6665c7aded1f7f2e.tar
drakx-backup-do-not-use-16ff4764bfb47cc85603413b6665c7aded1f7f2e.tar.gz
drakx-backup-do-not-use-16ff4764bfb47cc85603413b6665c7aded1f7f2e.tar.bz2
drakx-backup-do-not-use-16ff4764bfb47cc85603413b6665c7aded1f7f2e.tar.xz
drakx-backup-do-not-use-16ff4764bfb47cc85603413b6665c7aded1f7f2e.zip
added emulate wheel support (a bit hacky though) (bug 3976)
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm10
1 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 84b987002..f58101767 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -15,7 +15,7 @@ use modules;
use any;
use log;
-my @mouses_fields = qw(nbuttons MOUSETYPE XMOUSETYPE name);
+my @mouses_fields = qw(nbuttons MOUSETYPE XMOUSETYPE name EMULATEWHEEL);
my %mice =
arch() =~ /^sparc/ ?
@@ -44,6 +44,7 @@ my %mice =
[ [ 1, 'ps/2', 'IMPS/2', N_("1 button") ],
[ 2, 'ps/2', 'IMPS/2', N_("Generic 2 Button Mouse") ],
[ 3, 'ps/2', 'IMPS/2', N_("Generic") ],
+ [ 3, 'ps/2', 'IMPS/2', N_("Generic 3 Button Mouse with Wheel emulation"), 'wheel' ],
[ 5, 'ps/2', 'IMPS/2', N_("Wheel") ],
[ 7, 'ps/2', 'ExplorerPS/2', N_("Microsoft Explorer") ],
] ],
@@ -52,17 +53,22 @@ my %mice =
[ [ map { "ttyS$_" } 0..3 ],
[ [ 2, 'Microsoft', 'Microsoft', N_("Generic 2 Button Mouse") ],
[ 3, 'Microsoft', 'Microsoft', N_("Generic 3 Button Mouse") ],
+ [ 3, 'Microsoft', 'Microsoft', N_("Generic 3 Button Mouse with Wheel emulation"), 'wheel' ],
[ 5, 'ms3', 'IntelliMouse', N_("Microsoft IntelliMouse") ],
[ 3, 'MouseMan', 'MouseMan', N_("Logitech MouseMan") ],
+ [ 3, 'MouseMan', 'MouseMan', N_("Logitech MouseMan with Wheel emulation"), 'wheel' ],
[ 2, 'MouseSystems', 'MouseSystems', N_("Mouse Systems") ],
'',
[ 3, 'logim', 'MouseMan', N_("Logitech CC Series") ],
+ [ 3, 'logim', 'MouseMan', N_("Logitech CC Series with Wheel emulation"), 'wheel' ],
[ 5, 'pnp', 'IntelliMouse', N_("Logitech MouseMan+/FirstMouse+") ],
[ 5, 'ms3', 'IntelliMouse', N_("Genius NetMouse") ],
[ 2, 'MMSeries', 'MMSeries', N_("MM Series") ],
[ 2, 'MMHitTab', 'MMHittab', N_("MM HitTablet") ],
[ 3, 'Logitech', 'Logitech', N_("Logitech Mouse (serial, old C7 type)") ],
+ [ 3, 'Logitech', 'Logitech', N_("Logitech Mouse (serial, old C7 type) with Wheel emulation"), 'wheel' ],
[ 3, 'Microsoft', 'ThinkingMouse', N_("Kensington Thinking Mouse") ],
+ [ 3, 'Microsoft', 'ThinkingMouse', N_("Kensington Thinking Mouse with Wheel emulation"), 'wheel' ],
] ],
N_("busmouse") =>
@@ -70,6 +76,7 @@ my %mice =
[ if_(arch() eq 'ppc', [ 1, 'Busmouse', 'BusMouse', N_("1 button") ]),
[ 2, 'Busmouse', 'BusMouse', N_("2 buttons") ],
[ 3, 'Busmouse', 'BusMouse', N_("3 buttons") ],
+ [ 3, 'Busmouse', 'BusMouse', N_("3 buttons with Wheel emulation"), 'wheel' ],
] ],
N_("none") =>
@@ -327,6 +334,7 @@ sub set_xfree_conf {
Device => "/dev/$_->{device}",
if_($_->{nbuttons} > 3, ZAxisMapping => [ $_->{nbuttons} > 5 ? '6 7' : '4 5' ]),
if_($_->{nbuttons} < 3, Emulate3Buttons => undef, Emulate3Timeout => 50),
+ if_($_->{EMULATEWHEEL}, Emulate3Buttons => undef, Emulate3Timeout => 50, EmulateWheel => undef, EmulateWheelButton => 2),
};
} ($mouse, if_($mouse->{auxmouse}, $mouse->{auxmouse}));