summaryrefslogtreecommitdiffstats
path: root/perl-install/mouse.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-07-10 16:33:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-07-10 16:33:21 +0000
commit640255572c30658ad75a7ed7948617dd56fdeaa4 (patch)
treeaad1cfd9e13b4490a611dbdd51200621b65fe4ed /perl-install/mouse.pm
parent8177c7b2bdc55ff489f39c471085db9064ae359b (diff)
downloaddrakx-640255572c30658ad75a7ed7948617dd56fdeaa4.tar
drakx-640255572c30658ad75a7ed7948617dd56fdeaa4.tar.gz
drakx-640255572c30658ad75a7ed7948617dd56fdeaa4.tar.bz2
drakx-640255572c30658ad75a7ed7948617dd56fdeaa4.tar.xz
drakx-640255572c30658ad75a7ed7948617dd56fdeaa4.zip
no_comment
Diffstat (limited to 'perl-install/mouse.pm')
-rw-r--r--perl-install/mouse.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 1f9183462..5acd6dcd3 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -58,6 +58,7 @@ arch() =~ /^sparc/ ? (
[ 2, "ttyS", "Microsoft", "Microsoft", __("Generic Mouse (serial)") ],
[ 2, "ttyS", "Microsoft", "Microsoft", __("Microsoft compatible (serial)") ],
[ 3, "ttyS", "Microsoft", "Microsoft", __("Generic 3 Button Mouse (serial)") ],
+ [ 3, "ttyS", "Microsoft", "ThinkingMouse", __("Kensington Thinking Mouse (serial)") ],
[ 2, "ttyS", "MouseSystems", "MouseSystems", __("Mouse Systems (serial)") ],
);
map_index {
@@ -75,6 +76,10 @@ sub name2mouse {
die "$name not found";
}
+sub X2nbuttons {
+ first(map { $_->{nbuttons} } grep { $_->{XMOUSETYPE} eq $_[0] } @mouses);
+}
+
sub serial_ports_names() {
map { "ttyS" . ($_ - 1) . " / COM$_" } 1..4;
}
@@ -92,7 +97,7 @@ sub read($) {
sub write($;$) {
my ($prefix, $mouse) = @_;
- local $mouse->{FULLNAME} = qq("$mouse->{FULLNAME}");
+ local $mouse->{FULLNAME} = qq("$mouse->{FULLNAME}"); #-"
local $mouse->{WHEEL} = bool2yesno($mouse->{nbuttons} > 3);
setVarsInSh("$prefix/etc/sysconfig/mouse", $mouse, qw(MOUSETYPE XMOUSETYPE FULLNAME XEMU3 WHEEL device));
symlinkf $mouse->{device}, "$prefix/dev/mouse" or log::l("creating $prefix/dev/mouse symlink failed");