From 6550f580d33afacca8d379a2f421b80418222cd1 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Thu, 4 Feb 2010 19:24:13 +0000 Subject: [PATCH] 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 --- harbour/ChangeLog | 5 +++++ harbour/src/rtl/achoice.prg | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 401f61c319..01475962fd 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -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 diff --git a/harbour/src/rtl/achoice.prg b/harbour/src/rtl/achoice.prg index 7d158cbf7f..27f52903e4 100644 --- a/harbour/src/rtl/achoice.prg +++ b/harbour/src/rtl/achoice.prg @@ -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