summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-07-18 17:18:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-07-18 17:18:31 +0000
commit60642ca2e3ec60c9bc39ed820bd759e9a58d4d85 (patch)
treea262d4afaf8210dd3d1cf6fb4b8d187b253e4658 /perl-install/mouse.pm
parent74e57fc68e455eb20d26ba781dc67588ea39d35c (diff)
downloaddrakx-60642ca2e3ec60c9bc39ed820bd759e9a58d4d85.tar
drakx-60642ca2e3ec60c9bc39ed820bd759e9a58d4d85.tar.gz
drakx-60642ca2e3ec60c9bc39ed820bd759e9a58d4d85.tar.bz2
drakx-60642ca2e3ec60c9bc39ed820bd759e9a58d4d85.tar.xz
drakx-60642ca2e3ec60c9bc39ed820bd759e9a58d4d85.zip
no_comment
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm29
1 files changed, 29 insertions, 0 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 5acd6dcd3..239a3de17 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -66,6 +66,35 @@ map_index {
$mouses[$::i] = \%l;
} @mouses;
+#- xmousetypes must be sorted as found in /usr/include/X11/extensions/xf86misc.h
+#- so that first mean "0", etc
+my @xmousetypes = (
+ "Microsoft",
+ "MouseSystems",
+ "MMSeries",
+ "Logitech",
+ "BusMouse",
+ "Logitech",
+ "PS/2",
+ "MMHittab",
+ "GlidePoint",
+ "IntelliMouse",
+ "ThinkingMouse",
+ "IMPS/2",
+ "ThinkingMousePS/2",
+ "MouseManPlusPS/2",
+ "GlidePointPS/2",
+ "NetMousePS/2",
+ "NetScrollPS/2",
+ "SysMouse",
+ "Auto",
+ "AceCad",
+ "WSMouse",
+ "USB",
+#MouseMan,
+);
+sub xmouse2xId { my ($id) = @_; my $i; map_index { $_ eq $id and $i = $::i } @xmousetypes; $i }
+
sub names { map { $_->{FULLNAME} } @mouses }
sub name2mouse {