From b1aa6936e2f0d14b006aeaada48d1d8d16ee236d Mon Sep 17 00:00:00 2001
From: Pritpal Bedi <bedipritpal@hotmail.com>
Date: Sat, 12 Feb 2011 21:02:59 +0000
Subject: [PATCH] 2011-02-12 12:59 UTC-0800 Pritpal Bedi
 (bedipritpal@hotmail.com)   * src/rtl/browse.prg     ! Reversed some of the
 changes in previous commit.       Still I am trying to understand how a
 record can be       edited without RLock() ( only for lAppend == TRUE, it is
 OK ).

---
 harbour/ChangeLog          |  6 ++++++
 harbour/src/rtl/browse.prg | 20 +++-----------------
 2 files changed, 9 insertions(+), 17 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 84b0b9b064..ce6ba3e501 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,12 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-02-12 12:59 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
+  * src/rtl/browse.prg
+    ! Reversed some of the changes in previous commit.
+      Still I am trying to understand how a record can be 
+      edited without RLock() ( only for lAppend == TRUE, it is OK ).
+
 2011-02-12 19:02 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/src/rtl/hbsocket.c
      * added HB_HAS_GETHOSTBYADDR to control access to gethostbyname()
diff --git a/harbour/src/rtl/browse.prg b/harbour/src/rtl/browse.prg
index 7a55da637b..ec601407e2 100644
--- a/harbour/src/rtl/browse.prg
+++ b/harbour/src/rtl/browse.prg
@@ -57,7 +57,7 @@
 FUNCTION Browse( nTop, nLeft, nBottom, nRight )
 
    LOCAL oBrw
-   LOCAL lExit, lAppend, lKeyPressed, lRefresh, lDispScore
+   LOCAL lExit, lAppend, lKeyPressed, lRefresh
    LOCAL n, nOldCursor, nKey
    LOCAL cOldScreen
    LOCAL bAction
@@ -106,8 +106,6 @@ FUNCTION Browse( nTop, nLeft, nBottom, nRight )
       lKeyPressed := .T.
    ENDIF
 
-   lDispScore := .T.
-
    DO WHILE ! lExit
 
       DO WHILE ! lKeyPressed .AND. ! oBrw:Stabilize()
@@ -131,10 +129,7 @@ FUNCTION Browse( nTop, nLeft, nBottom, nRight )
                             { 2, 2 } )
          ENDIF
 
-         IF lDispScore
-            lDispScore := .F.
-            StatLine( oBrw, lAppend )
-         ENDIF 
+         StatLine( oBrw, lAppend )
 
          oBrw:ForceStable()
 
@@ -163,7 +158,6 @@ FUNCTION Browse( nTop, nLeft, nBottom, nRight )
                lRefresh := .T.
             ELSE
                oBrw:Up()
-               lDispScore := .T.
             ENDIF
             EXIT
 
@@ -175,7 +169,6 @@ FUNCTION Browse( nTop, nLeft, nBottom, nRight )
                oBrw:HitBottom( .T. )
             ELSE
                oBrw:Down()
-               lDispScore := .T.
             ENDIF
             EXIT
 
@@ -184,7 +177,6 @@ FUNCTION Browse( nTop, nLeft, nBottom, nRight )
                lRefresh := .T.
             ELSE
                oBrw:PageUp()
-               lDispScore := .T.
             ENDIF
             EXIT
 
@@ -193,7 +185,6 @@ FUNCTION Browse( nTop, nLeft, nBottom, nRight )
                oBrw:HitBottom( .T. )
             ELSE
                oBrw:PageDown()
-               lDispScore := .T.
             ENDIF
             EXIT
 
@@ -202,7 +193,6 @@ FUNCTION Browse( nTop, nLeft, nBottom, nRight )
                lRefresh := .T.
             ELSE
                oBrw:GoTop()
-               lDispScore := .T.
             ENDIF
             EXIT
 
@@ -211,7 +201,6 @@ FUNCTION Browse( nTop, nLeft, nBottom, nRight )
                lRefresh := .T.
             ELSE
                oBrw:GoBottom()
-               lDispScore := .T.
             ENDIF
             EXIT
 
@@ -354,10 +343,7 @@ STATIC FUNCTION DoGet( oBrw, lAppend )
       IF lAppend .AND. RecNo() == LastRec() + 1
          dbAppend()
       ENDIF
-      IF RLock()
-         Eval( oCol:Block, xValue )
-         DbUnlock()
-      ENDIF 
+      Eval( oCol:Block, xValue )
 
       IF !lAppend .AND. !Empty( cForExp := OrdFor( IndexOrd() ) ) .AND. ;
          ! &cForExp