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
