fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-02-04 20:24 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/src/rtl/achoice.prg
    ! exit with 0 without activating user function when empty item array
      is passed - Clipper compatible behavior
This commit is contained in:
Przemyslaw Czerpak
2010-02-04 19:24:13 +00:00
parent e3e3f092ec
commit 6550f580d3
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -17,6 +17,11 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-02-04 20:24 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/src/rtl/achoice.prg
! exit with 0 without activating user function when empty item array
is passed - Clipper compatible behavior
2010-02-04 19:14 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbapifs.h
* harbour/src/rtl/filebuf.c

2
harbour/src/rtl/achoice.prg
View File

@@ -111,7 +111,7 @@ FUNCTION AChoice( nTop, nLeft, nBottom, nRight, acItems, xSelect, xUserFunc, nPo
DispPage( acItems, alSelect, nTop, nLeft, nRight, nNumRows, nPos, nAtTop, nItems, nItems )
lFinished := .F.
lFinished := Empty( acItems )
DO WHILE !lFinished
IF nMode != AC_GOTO .AND. nMode != AC_NOITEM