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 modals...@yahoo.com.br
Sent: Tuesday, May 11, 2010 9:02 AM
To: Xharbour-Developers List xharbour-developers@lists.sourceforge.net
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
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
--
___
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers