From 3af53323c6aed0afd1d33b7c4522aef07b1127db Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Wed, 9 Feb 2000 12:11:08 +0000 Subject: [PATCH] 20000209-11:15 GMT+1 Antonio Linares --- harbour/source/rtl/alert.prg | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/harbour/source/rtl/alert.prg b/harbour/source/rtl/alert.prg index c1e8bb5324..8b93ebf2f6 100644 --- a/harbour/source/rtl/alert.prg +++ b/harbour/source/rtl/alert.prg @@ -291,7 +291,7 @@ FUNCTION Alert( xMessage, aOptions, cColorNorm, nDelay ) /* choice loop */ DO WHILE .T. - nKey := Inkey( nDelay ) + nKey := Inkey( nDelay, INKEY_ALL ) DO CASE @@ -345,7 +345,7 @@ FUNCTION Alert( xMessage, aOptions, cColorNorm, nDelay ) iif( nEval == nChoice, cColorHigh, cColorNorm ) ) NEXT - nKey := Inkey( nDelay ) + nKey := Inkey( nDelay, INKEY_ALL ) DO CASE CASE nKey == K_ENTER .OR. ; @@ -451,4 +451,4 @@ PROCEDURE __NONOALERT() s_lNoAlert := .F. - RETURN + RETURN \ No newline at end of file