diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-09-09 21:27:50 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-09-09 21:27:50 +0000 |
| commit | 04f5aa31f328bfcb47901e6c7214d40c57e73536 (patch) | |
| tree | 0f19c9b0b10e1f5d39ada7f7bf4832ef7eab1ea5 | |
| parent | 69c9946ce66675f3388ec501b6fe7c2e5f99ea16 (diff) | |
| download | drakx-backup-do-not-use-04f5aa31f328bfcb47901e6c7214d40c57e73536.tar drakx-backup-do-not-use-04f5aa31f328bfcb47901e6c7214d40c57e73536.tar.gz drakx-backup-do-not-use-04f5aa31f328bfcb47901e6c7214d40c57e73536.tar.bz2 drakx-backup-do-not-use-04f5aa31f328bfcb47901e6c7214d40c57e73536.tar.xz drakx-backup-do-not-use-04f5aa31f328bfcb47901e6c7214d40c57e73536.zip | |
have the IMPS/2 warning "MOVE YOUR WHEEL" for ExplorerPS/2 too
| -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); } }; |