From 6620f83644457de5fee96609ae235e85d9c3591e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 9 Sep 2003 14:26:19 +0000 Subject: write "MOVE YOUR WHEEL!" only for ps2 mice --- perl-install/mouse.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index fdee6e1cd..70d891141 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -474,7 +474,7 @@ sub test_mouse { $draw_by_name->('mouse'); if ($::isInstall || 1) { $draw_text->(N("Please test the mouse"), 200); - if ($b_x_protocol_changed && $mouse->{nbuttons} > 3 && member($mouse->{XMOUSETYPE}, 'IMPS/2', 'ExplorerPS/2')) { + if ($b_x_protocol_changed && $mouse->{nbuttons} > 3 && $mouse->{device} eq 'psaux' && member($mouse->{XMOUSETYPE}, 'IMPS/2', 'ExplorerPS/2')) { $draw_text->(N("To activate the mouse,"), 240); $draw_text->(N("MOVE YOUR WHEEL!"), 260); } -- cgit v1.2.1