fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2011-02-12 12:59 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)

Browse Source 
* 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 ).
This commit is contained in:
Pritpal Bedi
2011-02-12 21:02:59 +00:00
parent 3e1909f6bc
commit b1aa6936e2
2 changed files with 9 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -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()

20
harbour/src/rtl/browse.prg
View File

@@ -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