From ef950a4a13ce6f06f79b3ab37b802a0fe1cd6733 Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Thu, 22 Nov 2012 16:17:34 +0000
Subject: [PATCH] 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          | 4 ++++
 harbour/src/rtl/dbedit.prg | 8 ++++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index f5f4b5754f..91dbf62e93 100644
--- a/harbour/ChangeLog
+++ b/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
diff --git a/harbour/src/rtl/dbedit.prg b/harbour/src/rtl/dbedit.prg
index 8cc54dfa4d..46f2813007 100644
--- a/harbour/src/rtl/dbedit.prg
+++ b/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 )