Ron, Should be fixed after ChangeLog,v 1.6537 2009/08/10
regards, Eduardo ----- Mensagem original ---- > De: Ron Pinkas <ron.pin...@xharbour.com> > Para: xharbour-developers@lists.sourceforge.net > Enviadas: Domingo, 9 de Agosto de 2009 19:11:03 > Assunto: [xHarbour-developers] achoice bug > > Eduardo, > > The following lines, starting with line 258 in achoice.prg appear to be > buggy: > > /* 2008/JAN/17 - E.F. Force to process pending key, if any */ > IF nMode == AC_SELECT > if NextKey() == 0 > EXIT > else > ::DrawRows( ::nOption - ::nFirstRow, ::nOption - ::nFirstRow, > .F. ) > endif > ENDIF > > Can you please explain why should aChoice() continue processing after a > selection has been made? > > Sample exhibiting this bug (please compare with Clipper): > > //---------------------------------------------------------------------// > PROCEDURE Main() > LOCAL nChoice > LOCAL aItems := { "A Option", "B Option" } > > KEYBOARD "a" + Chr( 13 ) + "a" > > CLEAR SCREEN > > nChoice := aChoice( 5, 10, 5 + Len( aItems ), 10 + Len( aItems[1] ), > aItems, .T., "", 2 ) > > CLEAR SCREEN > > ? "Done with aChoice!", nChoice > RETURN > //---------------------------------------------------------------------// > > Ron > > > ------------------------------------------------------------------------------ > Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day > trial. Simplify your report design, integration and deployment - and focus on > what you do best, core application coding. Discover what's new with > Crystal Reports now. http://p.sf.net/sfu/bobj-july > _______________________________________________ > xHarbour-developers mailing list > xHarbour-developers@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/xharbour-developers ____________________________________________________________________________________ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com ------------------------------------------------------------------------------ Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day trial. Simplify your report design, integration and deployment - and focus on what you do best, core application coding. Discover what's new with Crystal Reports now. http://p.sf.net/sfu/bobj-july _______________________________________________ xHarbour-developers mailing list xHarbour-developers@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/xharbour-developers