From 640255572c30658ad75a7ed7948617dd56fdeaa4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 10 Jul 2000 16:33:21 +0000
Subject: no_comment

---
 perl-install/mouse.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install/mouse.pm')

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");
-- 
cgit v1.2.1