2007-06-05 09:56 UTC+0300 Chen Kedem <niki@actcom.co.il>

harbour/ChangeLog

@@ -8,6 +8,11 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2007-06-05 09:56 UTC+0300 Chen Kedem <niki@actcom.co.il>
+  * source/rtl/achoice.prg
+    ! Fix bug#1729881 by <sokaxa@telenet.be>
+      ACHOICE() was not handling AC_GOTO when user function was used.
+
 2007-06-05 03:40 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/contrib/hbzlib/zip.c
     * cleaned some warnings

harbour/source/rtl/achoice.prg

@@ -457,10 +457,10 @@ FUNCTION AChoice( nTop, nLeft, nBottom, nRight, acItems, xSelect, xUserFunc, nPo
          CASE nUserFunc == AC_GOTO
             // Do nothing.  The next keystroke won't be read and
             // this keystroke will be processed as a goto.
-            nMode := AC_GOTO     
+            nMode := AC_GOTO
          ENDCASE
 
-         IF nPos > 0
+         IF nPos > 0 .AND. nMode != AC_GOTO
 
             nRowsClr := Min( nNumRows, nItems )
             nMode := Ach_Limits( @nFrstItem, @nLastItem, @nItems, bSelect, alSelect, acItems )