fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

20000209-11:15 GMT+1 Antonio Linares <alinares@fivetech.com>

Browse Source
This commit is contained in:
Antonio Linares
2000-02-09 12:11:08 +00:00
parent 7d166d94fe
commit 3af53323c6
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/source/rtl/alert.prg
View File

@@ -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