diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/mouse.pm | 5 |
1 files 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); } }; |