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

Reply via email to