diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-07-10 16:33:21 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-07-10 16:33:21 +0000 |
| commit | 640255572c30658ad75a7ed7948617dd56fdeaa4 (patch) | |
| tree | aad1cfd9e13b4490a611dbdd51200621b65fe4ed /perl-install/mouse.pm | |
| parent | 8177c7b2bdc55ff489f39c471085db9064ae359b (diff) | |
| download | drakx-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.pm | 7 |
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"); |