diff options
| -rw-r--r-- | perl-install/mouse.pm | 641 |
1 files changed, 0 insertions, 641 deletions
diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm deleted file mode 100644 index e991514cc..000000000 --- a/perl-install/mouse.pm +++ /dev/null @@ -1,641 +0,0 @@ -package mouse; # $Id$ - -#use diagnostics; -#use strict; - -#-###################################################################################### -#- misc imports -#-###################################################################################### -use common; -use modules; -use detect_devices; -use run_program; -use devices; -use modules; -use any; -use log; - -my @mouses_fields = qw(nbuttons MOUSETYPE XMOUSETYPE name EMULATEWHEEL); - -my %mice = - arch() =~ /^sparc/ ? -( - 'sunmouse' => - [ [ 'sunmouse' ], - [ [ 3, 'sun', 'sun', N_("Sun - Mouse") ] - ] ] -) : -( - 'PS/2' => - [ [ 'psaux' ], - [ [ 2, 'ps/2', 'PS/2', N_("Standard") ], - [ 5, 'ps/2', 'MouseManPlusPS/2', N_("Logitech MouseMan+") ], - [ 5, 'imps2', 'IMPS/2', N_("Generic PS2 Wheel Mouse") ], - [ 5, 'ps/2', 'GlidePointPS/2', N_("GlidePoint") ], - if_(c::kernel_version() !~ /^\Q2.6/, - [ 5, 'imps2', 'auto', N_("Automatic") ] - ), - '', - [ 5, 'ps/2', 'ThinkingMousePS/2', N_("Kensington Thinking Mouse") ], - [ 5, 'netmouse', 'NetMousePS/2', N_("Genius NetMouse") ], - [ 5, 'netmouse', 'NetScrollPS/2', N_("Genius NetScroll") ], - [ 7, 'ps/2', 'ExplorerPS/2', N_("Microsoft Explorer") ], - ] ], - - 'USB' => - [ [ 'usbmouse' ], - [ [ 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") ], - ] ], - - N_("serial") => - [ [ 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") => - [ [ arch() eq 'ppc' ? 'adbmouse' : ('atibm', 'inportbm', 'logibm') ], - [ 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' ], - ] ], - - if_(c::kernel_version() =~ /^\Q2.6/, - N_("Universal") => - [ [ 'input/mice' ], - [ [ 7, 'ps/2', 'ExplorerPS/2', N_("Any PS/2 & USB mice") ], - if_(detect_devices::is_xbox(), [ 5, 'ps/2', 'IMPS/2', N_("Microsoft Xbox Controller S") ]), - ] ], - ), - - N_("none") => - [ [ 'none' ], - [ [ 0, 'none', 'Microsoft', N_("No mouse") ], - ] ], -); - - -sub xmouse2xId { - #- 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", #MouseMan, - "Logitech", - "PS/2", - "MMHittab", - "GlidePoint", - "IntelliMouse", - "ThinkingMouse", - "IMPS/2", - "ThinkingMousePS/2", - "MouseManPlusPS/2", - "GlidePointPS/2", - "NetMousePS/2", - "NetScrollPS/2", - "SysMouse", - "Auto", - "AceCad", - "ExplorerPS/2", - "USB", - ); - my ($id) = @_; - $id = 'BusMouse' if $id eq 'MouseMan'; - $id = 'IMPS/2' if $id eq 'ExplorerPS/2' && $::isInstall; - eval { find_index { $_ eq $id } @xmousetypes } || 0; -} - -my %mouse_btn_keymap = ( - 0 => "NONE", - 67 => "F9", - 68 => "F10", - 87 => "F11", - 88 => "F12", - 85 => "F13", - 89 => "F14", - 90 => "F15", - 56 => "L-Option/Alt", - 125 => "L-Command (Apple)", - 98 => "Num: /", - 55 => "Num: *", - 117 => "Num: =", - 96 => "Enter", -); -sub ppc_one_button_keys() { keys %mouse_btn_keymap } -sub ppc_one_button_key2text { $mouse_btn_keymap{$_[0]} } - -sub raw2mouse { - my ($type, $raw) = @_; - $raw or return; - - my %l; @l{@mouses_fields} = @$raw; - +{ %l, type => $type }; -} - -sub fullnames() { - map_each { - my $type = $::a; - grep { $_ } map { - if ($_) { - my $l = raw2mouse($type, $_); - "$type|$l->{name}"; - } else { - $type .= "|[" . N("Other") . "]"; - ''; - } - } @{$::b->[1]}; - } %mice; -} - -sub fullname2mouse { - my ($fname, %opts) = @_; - my ($type, @l) = split '\|', $fname; - my $name = pop @l; - search: - $opts{device} ||= $mice{$type}[0][0]; - foreach (@{$mice{$type}[1]}) { - my $l = raw2mouse($type, $_); - $name eq $l->{name} and return { %$l, %opts }; - } - if ($name eq '1 Button' || $name eq '1 button') { - $name = "Generic 2 Button Mouse"; - goto search; - } - die "$fname not found ($type, $name)"; -} - -sub serial_ports() { map { "ttyS$_" } 0..7 } -sub serial_port2text { - $_[0] =~ /ttyS(\d+)/ ? "$_[0] / COM" . ($1 + 1) : $_[0]; -} - -sub read() { - my %mouse = getVarsFromSh "$::prefix/etc/sysconfig/mouse"; - eval { add2hash_(\%mouse, fullname2mouse($mouse{FULLNAME})) }; - $mouse{nbuttons} ||= $mouse{XEMU3} eq "yes" ? 2 : $mouse{WHEEL} eq "yes" ? 5 : 3; - \%mouse; -} - -sub write { - my ($do_pkgs, $mouse) = @_; - local $mouse->{FULLNAME} = qq("$mouse->{type}|$mouse->{name}"); #-" - local $mouse->{XEMU3} = bool2yesno($mouse->{nbuttons} < 3); - local $mouse->{WHEEL} = bool2yesno($mouse->{nbuttons} > 3); - setVarsInSh("$::prefix/etc/sysconfig/mouse", $mouse, qw(MOUSETYPE XMOUSETYPE FULLNAME XEMU3 WHEEL device)); - any::devfssymlinkf($mouse, 'mouse'); - - #- we should be using input/mice directly instead of usbmouse, but legacy... - symlinkf 'input/mice', "$::prefix/dev/usbmouse" if $mouse->{device} eq "usbmouse"; - - any::devfssymlinkf($mouse->{auxmouse}, 'mouse1') if $mouse->{auxmouse}; - - - various_xfree_conf($do_pkgs, $mouse); - - if (arch() =~ /ppc/) { - my $s = join('', - "dev.mac_hid.mouse_button_emulation = " . to_bool($mouse->{button2_key} || $mouse->{button3_key}) . "\n", - if_($mouse->{button2_key}, "dev.mac_hid.mouse_button2_keycode = $mouse->{button2_key}\n"), - if_($mouse->{button3_key}, "dev.mac_hid.mouse_button3_keycode = $mouse->{button3_key}\n"), - ); - substInFile { - $_ = '' if /^\Qdev.mac_hid.mouse_button/; - $_ .= $s if eof; - } "$::prefix/etc/sysctl.conf"; - } -} - -sub probe_wacom_devices { - my ($modules_conf) = @_; - - $modules_conf->get_probeall("usb-interface") or return; - my (@l) = detect_devices::usbWacom() or return; - - log::l("found usb wacom $_->{driver} $_->{description} ($_->{type})") foreach @l; - my @wacom = eval { - modules::load("wacom", "evdev"); - grep { detect_devices::tryOpen($_) } map_index { "input/event$::i" } @l; - }; - @wacom or eval { modules::unload("evdev", "wacom") }; - @wacom; -} - -sub detect_serial() { - my ($t, $mouse, @wacom); - - #- Whouah! probing all devices from ttyS0 to ttyS3 once a time! - detect_devices::probeSerialDevices(); - - #- check new probing methods keep everything used here intact! - foreach (0..3) { - $t = detect_devices::probeSerial("/dev/ttyS$_") or next; - if ($t->{CLASS} eq 'MOUSE') { - $t->{MFG} ||= $t->{MANUFACTURER}; - - $mouse = fullname2mouse("serial|Microsoft IntelliMouse") if $t->{MFG} eq 'MSH' && $t->{MODEL} eq '0001'; - $mouse = fullname2mouse("serial|Logitech MouseMan") if $t->{MFG} eq 'LGI' && $t->{MODEL} =~ /^80/; - $mouse = fullname2mouse("serial|Genius NetMouse") if $t->{MFG} eq 'KYE' && $t->{MODEL} eq '0003'; - - $mouse ||= fullname2mouse("serial|Generic 2 Button Mouse"); #- generic by default. - $mouse->{device} = "ttyS$_"; - last; - } elsif ($t->{CLASS} eq "PEN" || $t->{MANUFACTURER} eq "WAC") { - push @wacom, "ttyS$_"; - } - } - $mouse, @wacom; -} - -sub detect { - my ($modules_conf) = @_; - - # let more USB tablets and touchscreens magically work at install time - # through /dev/input/mice multiplexing: - modules::probe_category('input/tablet'); - modules::probe_category('input/touchscreen'); - - if (arch() =~ /^sparc/) { - return fullname2mouse("sunmouse|Sun - Mouse"); - } - if (arch() eq "ppc") { - return fullname2mouse(detect_devices::hasMousePS2("usbmouse") ? - "USB|1 button" : - # No need to search for an ADB mouse. If I did, the PPC kernel would - # find one whether or not I had one installed! So.. default to it. - "busmouse|1 button"); - } - - my @wacom = probe_wacom_devices($modules_conf); - - if (c::kernel_version() =~ /^\Q2.6/) { - $modules_conf->get_probeall("usb-interface") and eval { modules::load('usbhid') }; - if (cat_('/proc/bus/input/devices') =~ /^H: Handlers=mouse/m) { - if (detect_devices::is_xbox()) { - return fullname2mouse('Universal|Microsoft Xbox Controller S'); - } - my $univ_mouse = fullname2mouse('Universal|Any PS/2 & USB mice', wacom => \@wacom); - if (my ($synaptics_touchpad) = detect_devices::getSynapticsTouchpads()) { - $univ_mouse->{auxmouse} = { - name => N_("Synaptics Touchpad"), - device => 'input/mice', - XMOUSETYPE => 'auto-dev', - ALPS => $synaptics_touchpad->{description} =~ /ALPS/, - }; - } - return $univ_mouse; - } - } else { - my $ps2_mouse = detect_devices::hasMousePS2("psaux") && fullname2mouse("PS/2|Automatic", unsafe => 0); - - #- workaround for some special case were mouse is openable 1/2. - if (!$ps2_mouse) { - $ps2_mouse = detect_devices::hasMousePS2("psaux") && fullname2mouse("PS/2|Automatic", unsafe => 0); - $ps2_mouse and detect_devices::hasMousePS2("psaux"); #- fake another open in order for XFree to see the mouse. - } - - if ($modules_conf->get_probeall("usb-interface")) { - sleep 2; - if (my (@l) = detect_devices::usbMice()) { - log::l(join('', "found usb mouse $_->{driver} $_->{description} (", if_($_->{type}, $_->{type}), ")")) foreach @l; - if (eval { modules::load(qw(hid mousedev usbmouse)); detect_devices::tryOpen("usbmouse") }) { - return fullname2mouse($l[0]{driver} =~ /Mouse:(.*)/ ? $1 : "USB|Wheel", - if_($ps2_mouse, auxmouse => $ps2_mouse), #- for laptop, we kept the PS/2 as secondary (symbolic). - wacom => \@wacom); - - } - eval { modules::unload(qw(usbmouse mousedev hid)) }; - } - } else { - log::l("no usb interface found for mice"); - } - if ($ps2_mouse) { - return { wacom => \@wacom, %$ps2_mouse }; - } - } - - #- probe serial device to make sure a wacom has been detected. - eval { modules::load("serial") }; - my ($serial_mouse, @serial_wacom) = detect_serial(); push @wacom, @serial_wacom; - if ($serial_mouse) { - { wacom => \@wacom, %$serial_mouse }; - } elsif (@wacom) { - #- in case only a wacom has been found, assume an inexistant mouse (necessary). - fullname2mouse('none|No mouse', wacom => \@wacom); - } elsif (c::kernel_version() =~ /^\Q2.6/) { - fullname2mouse('Universal|Any PS/2 & USB mice', unsafe => 1); - } else { - fullname2mouse("PS/2|Automatic", unsafe => 1); - } -} - -sub load_modules { - my ($mouse) = @_; - my @l; - for ($mouse->{type}) { - /serial/ and @l = qw(serial); - /USB/ and @l = qw(hid mousedev usbmouse); - } - foreach (@{$mouse->{wacom}}) { - /ttyS/ and push @l, qw(serial); - /event/ and push @l, qw(wacom evdev); - } - if ($mouse->{auxmouse} && $mouse->{auxmouse}{name} eq N_("Synaptics Touchpad")) { - push @l, qw(evdev); - } - eval { modules::load(@l) }; -} - -sub set_xfree_conf { - my ($mouse, $xfree_conf, $b_keep_auxmouse_unchanged) = @_; - - my ($synaptics, $mouse_) = partition { $_->{name} eq N_("Synaptics Touchpad") } ($mouse, if_($mouse->{auxmouse}, $mouse->{auxmouse})); - my @mice = map { - { - Protocol => $_->{XMOUSETYPE}, - Device => "/dev/mouse", - 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} && $b_keep_auxmouse_unchanged) { - my (undef, @l) = $xfree_conf->get_mice; - push @mice, @l; - } - - $xfree_conf->set_mice(@mice); - - if (my @wacoms = @{$mouse->{wacom} || []}) { - $xfree_conf->set_wacoms(map { { Device => "/dev/$_", USB => m|input/event| } } @wacoms); - } - - $synaptics and $xfree_conf->set_synaptics(map { { - Device => "/dev/$_->{device}", - Protocol => $_->{XMOUSETYPE}, - Primary => 0, - ALPS => $_->{ALPS}, - } } @$synaptics); -} - -sub various_xfree_conf { - my ($do_pkgs, $mouse) = @_; - - { - my $f = "$::prefix/etc/X11/xinit.d/mouse_buttons"; - if ($mouse->{nbuttons} <= 5) { - unlink($f); - } else { - output_with_perm($f, 0755, "xmodmap -e 'pointer = 1 2 3 6 7 4 5'\n"); - } - } - { - my $f = "$::prefix/etc/X11/xinit.d/auxmouse_buttons"; - if (!$mouse->{auxmouse} || $mouse->{auxmouse}{nbuttons} <= 5) { - unlink($f); - } else { - $do_pkgs->install('xinput'); - output_with_perm($f, 0755, "xinput set-button-map Mouse2 1 2 3 6 7 4 5\n"); - } - } - { - my $f = "$::prefix/etc/X11/xinit.d/xpad"; - if ($mouse->{name} !~ /^Microsoft Xbox Controller/) { - unlink($f); - } else { - output_with_perm($f, 0755, "xset m 1/8 1\n"); - } - } - - if (member(N_("Synaptics Touchpad"), $mouse->{name}, $mouse->{auxmouse} && $mouse->{auxmouse}{name})) { - $do_pkgs->install("synaptics"); - } -} - -#- write_conf : write the mouse infos into the Xconfig files. -#- input : -#- $mouse : the hashtable containing the informations -#- $mouse input -#- $mouse->{nbuttons} : number of buttons : integer -#- $mouse->{device} : device of the mouse : string : ex 'psaux' -#- $mouse->{XMOUSETYPE} : type of the mouse for gpm : string : ex 'PS/2' -#- $mouse->{type} : type (generic ?) of the mouse : string : ex 'PS/2' -#- $mouse->{name} : name of the mouse : string : ex 'Standard' -#- $mouse->{MOUSETYPE} : type of the mouse : string : ex "ps/2" -#- $mouse->{XEMU3} : emulate 3rd button : string : 'yes' or 'no' -sub write_conf { - my ($do_pkgs, $modules_conf, $mouse, $b_keep_auxmouse_unchanged) = @_; - - &write($do_pkgs, $mouse); - $modules_conf->write if $mouse->{device} eq "usbmouse" && !$::testing; - - eval { - require Xconfig::xfree; - my $xfree_conf = Xconfig::xfree->read; - set_xfree_conf($mouse, $xfree_conf, $b_keep_auxmouse_unchanged); - $xfree_conf->write; - }; -} - -sub change_mouse_live { - my ($mouse, $old) = @_; - - my $xId = xmouse2xId($mouse->{XMOUSETYPE}); - $old->{device} ne $mouse->{device} || $xId != xmouse2xId($old->{XMOUSETYPE}) or return; - - log::l("telling X server to use another mouse ($mouse->{XMOUSETYPE}, $xId)"); - eval { modules::load('serial') } if $mouse->{device} =~ /ttyS/; - - if (!$::testing) { - devices::make($mouse->{device}); - symlinkf($mouse->{device}, "/dev/mouse"); - eval { - require xf86misc::main; - xf86misc::main::setMouseLive($ENV{DISPLAY}, $xId, $mouse->{nbuttons} < 3); - }; - } - 1; -} - -sub test_mouse_install { - my ($mouse, $x_protocol_changed) = @_; - require ugtk2; - ugtk2->import(qw(:wrappers :create)); - my $w = ugtk2->new('', disallow_big_help => 1); - my $darea = Gtk2::DrawingArea->new; - $darea->set_events([ 'button_press_mask', 'button_release_mask' ]); #$darea must be unrealized. - gtkadd($w->{window}, - gtkpack(my $vbox_grab = Gtk2::VBox->new(0, 0), - $darea, - gtkset_sensitive(create_okcancel($w, undef, undef, 'edge'), 1) - ), - ); - test_mouse($mouse, $darea, $x_protocol_changed); - $w->sync; # HACK - Gtk2::Gdk->pointer_grab($vbox_grab->window, 1, 'pointer_motion_mask', $vbox_grab->window, undef, 0); - my $r = $w->main; - Gtk2::Gdk->pointer_ungrab(0); - $r; -} - -sub test_mouse_standalone { - my ($mouse, $hbox) = @_; - require ugtk2; - ugtk2->import(qw(:wrappers)); - my $darea = Gtk2::DrawingArea->new; - $darea->set_events([ 'button_press_mask', 'button_release_mask' ]); #$darea must be unrealized. - gtkpack($hbox, gtkpack(gtkset_border_width(Gtk2::VBox->new(0, 10), 10), $darea)); - test_mouse($mouse, $darea); -} - -sub test_mouse { - my ($mouse, $darea, $b_x_protocol_changed) = @_; - - require ugtk2; - ugtk2->import(qw(:wrappers)); - my $suffix = $mouse->{nbuttons} <= 2 ? '2b' : $mouse->{nbuttons} == 3 ? '3b' : '3b+'; - my %offsets = (mouse_2b_right => [ 93, 0 ], mouse_3b_right => [ 117, 0 ], - mouse_2b_middle => [ 82, 80 ], mouse_3b_middle => [ 68, 0 ], 'mouse_3b+_middle' => [ 85, 67 ]); - my %image_files = ( - mouse => "mouse_$suffix", - left => 'mouse_' . ($suffix eq '3b+' ? '3b' : $suffix) . '_left', - right => 'mouse_' . ($suffix eq '3b+' ? '3b' : $suffix) . '_right', - if_($mouse->{nbuttons} > 2, middle => 'mouse_' . $suffix . '_middle'), - up => 'arrow_up', - down => 'arrow_down'); - my %images = map { $_ => ugtk2::gtkcreate_pixbuf("$image_files{$_}.png") } keys %image_files; - my $width = $images{mouse}->get_width; - my $height = round_up(min($images{mouse}->get_height, $::windowheight - 150), 6); - - my $draw_text = sub { - my ($t, $y) = @_; - my $layout = $darea->create_pango_layout($t); - my ($w) = $layout->get_pixel_size; - $darea->window->draw_layout($darea->style->black_gc, - ($darea->allocation->width-$w)/2, - ($darea->allocation->height-$height)/2 + $y, - $layout); - }; - my $draw_pixbuf = sub { - my ($p, $x, $y, $w, $h) = @_; - $w = $p->get_width; - $h = $p->get_height; - $p->render_to_drawable($darea->window, $darea->style->bg_gc('normal'), 0, 0, - ($darea->allocation->width-$width)/2 + $x, ($darea->allocation->height-$height)/2 + $y, - $w, $h, 'none', 0, 0); - }; - my $draw_by_name = sub { - my ($name) = @_; - my $file = $image_files{$name}; - my ($x, $y) = @{$offsets{$file} || [ 0, 0 ]}; - $draw_pixbuf->($images{$name}, $x, $y); - }; - my $drawarea = sub { - $draw_by_name->('mouse'); - if ($::isInstall || 1) { - $draw_text->(N("Please test the mouse"), 200); - if ($b_x_protocol_changed && $mouse->{nbuttons} > 3 && $mouse->{device} eq 'psaux' && member($mouse->{XMOUSETYPE}, 'IMPS/2', 'ExplorerPS/2')) { - $draw_text->(N("To activate the mouse,"), 240); - $draw_text->(N("MOVE YOUR WHEEL!"), 260); - } - } - }; - - my $timeout; - my $paintButton = sub { - my ($nb) = @_; - $timeout or $drawarea->(); - if ($nb == 0) { - $draw_by_name->('left'); - } elsif ($nb == 2) { - $draw_by_name->('right'); - } elsif ($nb == 1) { - if ($mouse->{nbuttons} >= 3) { - $draw_by_name->('middle'); - } else { - my ($x, $y) = @{$offsets{mouse_2b_middle}}; - $darea->window->draw_arc($darea->style->black_gc, - 1, ($darea->allocation->width-$width)/2 + $x, ($darea->allocation->height-$height)/2 + $y, 20, 25, - 0, 360 * 64); - } - } elsif ($mouse->{nbuttons} > 3) { - my ($x, $y) = @{$offsets{$image_files{middle}}}; - if ($nb == 3) { - $draw_pixbuf->($images{up}, $x+6, $y-10); - } elsif ($nb == 4) { - $draw_pixbuf->($images{down}, $x+6, $y + $images{middle}->get_height + 2); - } - $draw_by_name->('middle'); - $timeout and Glib::Source->remove($timeout); - $timeout = Glib::Timeout->add(100, sub { $drawarea->(); $timeout = 0; 0 }); - } - }; - - $darea->signal_connect(button_press_event => sub { $paintButton->($_[1]->button - 1) }); - $darea->signal_connect(scroll_event => sub { $paintButton->($_[1]->direction eq 'up' ? 3 : 4) }); - $darea->signal_connect(button_release_event => $drawarea); - $darea->signal_connect(expose_event => $drawarea); - $darea->set_size_request($width, $height); -} - - -=begin - -=head1 NAME - -mouse - Perl functions to handle mice - -=head1 SYNOPSYS - - require modules; - require mouse; - mouse::detect(modules::any_conf->read); - -=head1 DESCRIPTION - -C<mouse> is a perl module used by mousedrake to detect and configure the mouse. - -=head1 COPYRIGHT - -Copyright (C) 2000-2002 Mandriva <tvignaud@mandrakesoft.com> - -This program is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) -any later version. - -This program is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with this program; if not, write to the Free Software -Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - -=cut |