From 04f5aa31f328bfcb47901e6c7214d40c57e73536 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 9 Sep 2002 21:27:50 +0000 Subject: have the IMPS/2 warning "MOVE YOUR WHEEL" for ExplorerPS/2 too --- perl-install/mouse.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 106e8c3cd..5174e7667 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -482,9 +482,10 @@ sub test_mouse { ($darea->allocation->[2]-$width)/2, ($darea->allocation->[3]-$height)/2, 210, 350); if ($::isInstall) { + my $bad_mouse = member($mouse->{XMOUSETYPE}, 'IMPS/2', 'ExplorerPS/2'); $draw_text->(_("Please test the mouse"), $height - 120); - $draw_text->(_("To activate the mouse,"), $height - 105) if $mouse->{XMOUSETYPE} eq 'IMPS/2'; - $draw_text->(_("MOVE YOUR WHEEL!"), $height - 90) if $mouse->{XMOUSETYPE} eq 'IMPS/2'; + $draw_text->(_("To activate the mouse,"), $height - 105) if $bad_mouse; + $draw_text->(_("MOVE YOUR WHEEL!"), $height - 90) if $bad_mouse $darea->window->draw_rectangle($darea->style->bg_gc('normal'), 1, 0, $height-65, $width, $height); } }; -- cgit v1.2.1