Re: [xHarbour-developers] ChangeLog,v 1.6708 2010/05/11

2010-05-11 Thread Patrick Mast, xHarbour.
Thank you Eduardo! ;-) On Tue, May 11, 2010 at 2:02 PM, Eduardo Fernandes modals...@yahoo.com.br wrote:  * source/rtl/tget.prg    ! refixed bug of last commit. regards, Eduardo --

Re: [xHarbour-developers] ChangeLog,v 1.6708 2010/05/11

2010-05-11 Thread Luiz Rafael Culik Guimaraes
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