summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-09-09 21:27:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-09-09 21:27:50 +0000
commit04f5aa31f328bfcb47901e6c7214d40c57e73536 (patch)
tree0f19c9b0b10e1f5d39ada7f7bf4832ef7eab1ea5 /perl-install
parent69c9946ce66675f3388ec501b6fe7c2e5f99ea16 (diff)
downloaddrakx-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
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mouse.pm5
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);
}
};