diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2008-10-24 12:38:10 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2008-10-24 12:38:10 +0000 |
commit | 1e742db130182eea4c40fad78845f752620374da (patch) | |
tree | 4fb8b427bedf1487849762c09337d6bba39cf7f3 /lib | |
parent | f9b12148abe8b4d345943366fec19336c700a773 (diff) | |
download | drakx-kbd-mouse-x11-1e742db130182eea4c40fad78845f752620374da.tar drakx-kbd-mouse-x11-1e742db130182eea4c40fad78845f752620374da.tar.gz drakx-kbd-mouse-x11-1e742db130182eea4c40fad78845f752620374da.tar.bz2 drakx-kbd-mouse-x11-1e742db130182eea4c40fad78845f752620374da.tar.xz drakx-kbd-mouse-x11-1e742db130182eea4c40fad78845f752620374da.zip |
- mousedrake:
o do not use /dev/mouse symlink (in xorg.conf)
o do not propose to test the chosen mice
(it doesn't handle evdev/synaptics and so is quite obsolete nowadays)
Diffstat (limited to 'lib')
-rw-r--r-- | lib/mouse.pm | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/lib/mouse.pm b/lib/mouse.pm index 93a06ba..9472415 100644 --- a/lib/mouse.pm +++ b/lib/mouse.pm @@ -400,14 +400,12 @@ sub set_xfree_conf { my @mice = map { { ($_->{Protocol} eq 'vboxmouse' ? "Driver" : "Protocol") => $_->{Protocol}, - Device => "/dev/mouse", + Device => devices::make($_->{device}), if_($_->{Emulate3Buttons} || $_->{EmulateWheel}, Emulate3Buttons => undef, Emulate3Timeout => 50), if_($_->{EmulateWheel}, EmulateWheel => undef, EmulateWheelButton => 2), }; } $mouse; - devices::symlink_now_and_register($mouse, 'mouse'); - if ($mouse->{evdev_mice}) { push @mice, @{$mouse->{evdev_mice}}; } elsif (!$mouse->{synaptics} && $b_keep_auxmouse_unchanged) { @@ -521,16 +519,6 @@ sub test_mouse_install { $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 select { my ($in, $mouse) = @_; |