diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index dc037b6b9..f3abe2110 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -193,18 +193,7 @@ sub selectMouse { local $ugtk2::grab = 1; #- unsure a crazy mouse don't go wild clicking everywhere while (1) { - my $xId = mouse::xmouse2xId($mouse->{XMOUSETYPE}); - my $x_protocol_changed = $old{device} ne $mouse->{device} || $xId != mouse::xmouse2xId($old{XMOUSETYPE}); - if ($x_protocol_changed) { - 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"); - c::setMouseLive($ENV{DISPLAY}, $xId, $mouse->{nbuttons} < 3); - } - } + my $x_protocol_changed = mouse::change_mouse_live($mouse, \%old); mouse::test_mouse_install($mouse, $x_protocol_changed) and return; %old = %$mouse; |