From e73922b5b019a5415f56cc4f3f504f4f35874bad Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 28 Sep 2007 15:21:48 +0000 Subject: add support for x11-driver-input-vboxmouse when inside a VirtualBox guest --- lib/Xconfig/xfree.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/Xconfig/xfree.pm') diff --git a/lib/Xconfig/xfree.pm b/lib/Xconfig/xfree.pm index 6cf6df7..ab9d3b5 100644 --- a/lib/Xconfig/xfree.pm +++ b/lib/Xconfig/xfree.pm @@ -145,7 +145,7 @@ sub get_mice { } sub set_mice { my ($raw_X, @mice) = @_; - my @raw_mice = _new_mouse_sections($raw_X, map { $_->{Protocol} ? 'mouse' : 'evdev' } @mice); + my @raw_mice = _new_mouse_sections($raw_X, map { delete $_->{Driver} || ($_->{Protocol} ? 'mouse' : 'evdev') } @mice); mapn { my ($raw_mouse, $mouse) = @_; raw_import_section($raw_mouse, $mouse); @@ -155,7 +155,7 @@ sub set_mice { sub _is_mouse { my ($entry) = @_; my $Driver = val($entry->{Driver}); - $Driver eq 'mouse' || $Driver eq 'evdev' && !val($entry->{XkbLayout}); + member($Driver, 'mouse', 'vboxmouse') || $Driver eq 'evdev' && !val($entry->{XkbLayout}); } sub _new_mouse_sections { my ($raw_X, @Drivers) = @_; -- cgit v1.2.1