add new mouse "PS/2|Automatic" and use it by default,

so that "PS/2|Generic PS2 Wheel Mouse" use protocol IMPS/2 which is needed
when we force mouse change live ("auto" doesn't work in that case)

1 files changed, 4 insertions, 3 deletions

diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm
index 4521e359b..24acfb5b8 100644
--- a/perl-install/mouse.pm
+++ b/perl-install/mouse.pm
@@ -30,8 +30,9 @@ my %mice =
  [ [ 'psaux' ],
    [ [ 2, 'ps/2', 'PS/2', N_("Standard") ],
      [ 5, 'ps/2', 'MouseManPlusPS/2', N_("Logitech MouseMan+") ],
-     [ 5, 'imps2', 'auto', N_("Generic PS2 Wheel Mouse") ],
+     [ 5, 'imps2', 'IMPS/2', N_("Generic PS2 Wheel Mouse") ],
      [ 5, 'ps/2', 'GlidePointPS/2', N_("GlidePoint") ],
+     [ 5, 'imps2', 'auto', N_("Automatic") ],
      '',
      [ 5, 'ps/2', 'ThinkingMousePS/2', N_("Kensington Thinking Mouse") ],
      [ 5, 'netmouse', 'NetMousePS/2', N_("Genius NetMouse") ],
@@ -259,11 +260,11 @@ sub detect() {
 
     my @wacom;
     my $fast_mouse_probe = sub {
-	my $auxmouse = detect_devices::hasMousePS2("psaux") && fullname2mouse("PS/2|Generic PS2 Wheel Mouse", unsafe => 0);
+	my $auxmouse = detect_devices::hasMousePS2("psaux") && fullname2mouse("PS/2|Automatic", unsafe => 0);
 
 	#- workaround for some special case were mouse is openable 1/2.
 	unless ($auxmouse) {
-	    $auxmouse = detect_devices::hasMousePS2("psaux") && fullname2mouse("PS/2|Generic PS2 Wheel Mouse", unsafe => 0);
+	    $auxmouse = detect_devices::hasMousePS2("psaux") && fullname2mouse("PS/2|Automatic", unsafe => 0);
 	    $auxmouse and detect_devices::hasMousePS2("psaux"); #- fake another open in order for XFree to see the mouse.
 	}