Eduardo
O codigo abaixo mostra um bug no achoice
#include "inkey.ch"
function main ()
local aArray:=ARRAY(20)
setmode(25,80)
cls
AEVAL(aArray,{ |elem,i| aArray[i]:=REPLICATE(CHR(64+i),10) })
@ 9,29 TO 21,41
DO WHILE .T.
nTmp:=ACHOICE(10,30,20,40,aArray)
IF nTmp==0
EXIT
ENDIF
ENDDO
return nil
compile e aperte a tecla home
apos aperte a end, e em seguida a home
[]s
Luiz
--------------------------------------------------
From: "Eduardo Fernandes" <[email protected]>
Sent: Tuesday, May 11, 2010 9:02 AM
To: "Xharbour-Developers List" <[email protected]>
Subject: [xHarbour-developers] ChangeLog,v 1.6708 2010/05/11
> * source/rtl/tget.prg
> ! refixed bug of last commit.
>
> regards,
> Eduardo
>
>
>
>
> ------------------------------------------------------------------------------
>
> _______________________________________________
> xHarbour-developers mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/xharbour-developers
>
------------------------------------------------------------------------------
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
