From bf034b9f3c4ea46fb42a081b526b4550fe2a375b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 6 Feb 2004 17:20:40 +0000 Subject: use mouse::change_mouse_live() --- perl-install/install_steps_gtk.pm | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) (limited to 'perl-install') 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; -- cgit v1.2.1