From 60642ca2e3ec60c9bc39ed820bd759e9a58d4d85 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 18 Jul 2000 17:18:31 +0000 Subject: no_comment --- perl-install/install_steps_gtk.pm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'perl-install/install_steps_gtk.pm') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 7595fd5e9..74cae0157 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -25,6 +25,7 @@ use interactive_gtk; use install_any; use diskdrake; use log; +use mouse; use help; use lang; @@ -177,15 +178,15 @@ sub selectInstallClass1 { #------------------------------------------------------------------------------ sub selectMouse { my ($o, $force) = @_; - my $old_dev = $o->{mouse}{device}; $o->SUPER::selectMouse($force); - my $dev = $o->{mouse}{device}; - if ($old_dev ne $dev && $dev =~ /ttyS/ && !$::testing) { + if (!$::testing) { log::l("telling X server to use another mouse"); - eval { commands::modprobe("serial") }; - symlinkf($dev, "/dev/mouse"); - c::setMouseMicrosoft($ENV{DISPLAY}); + eval { commands::modprobe("serial") } if $o->{mouse}{device} =~ /ttyS/; + symlinkf($o->{mouse}{device}, "/dev/mouse"); + my $id = mouse::xmouse2xId($o->{mouse}{XMOUSETYPE}); + log::l("XMOUSETYPE: $o->{mouse}{XMOUSETYPE} = $id"); + c::setMouseLive($ENV{DISPLAY}, $id); } } @@ -895,8 +896,7 @@ EndSection Section "Pointer" Protocol "$mouse_type" Device "/dev/mouse" - Emulate3Buttons - Emulate3Timeout 50 + ZAxisMapping 4 5 EndSection $wacom -- cgit v1.2.1