2012-11-22 17:16 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

* harbour/src/rtl/dbedit.prg
    ! fixed infinite loop introduced in my recent modification

harbour/ChangeLog

@@ -10,6 +10,10 @@
      * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
  */
 
+2012-11-22 17:16 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
+  * harbour/src/rtl/dbedit.prg
+    ! fixed infinite loop introduced in my recent modification
+
 2012-11-22 16:55 UTC+0100 Viktor Szakats (harbour syenar.net)
   * utils/hbmk2/hbmk2.prg
     + added support for .hbc autofind in contrib and addons

harbour/src/rtl/dbedit.prg

@@ -199,8 +199,11 @@ FUNCTION dbEdit( nTop, nLeft, nBottom, nRight, ;
 
    DO WHILE lContinue
 
-      DO WHILE ! oBrowse:stabilize()
+      DO WHILE .T.
          nKey := Inkey()
+         IF oBrowse:stabilize()
+            EXIT
+         ENDIF
 #ifdef HB_COMPAT_C53
          IF nKey != 0 .AND. nKey != K_MOUSEMOVE
             EXIT
@@ -212,9 +215,6 @@ FUNCTION dbEdit( nTop, nLeft, nBottom, nRight, ;
 #endif
       ENDDO
 
-      IF nKey == 0
-         nKey := Inkey()
-      ENDIF
       IF nKey == 0
          IF lDoIdleCall
             lContinue := CallUser( oBrowse, xUserFunc, 0, @lAppend, @lFlag )