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

* source/rtl/tgetlist.prg

Browse Source 
! Corrected minor bug in using Len() on oGet:Buffer,
      where it might be NIL.
    By Ron Pinkas in xHarbour.
This commit is contained in:
Walter Negro
2002-05-24 18:58:14 +00:00
parent 790d35fa34
commit 5463d86367
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
harbour/source/rtl/tgetlist.prg
View File

@@ -406,7 +406,7 @@ METHOD GetPostValidate() CLASS HBGetList
if oGet:PostBlock != NIL
lUpdated := ::lUpdated
SetPos( oGet:Row, oGet:Col + Len( oGet:Buffer ) )
SetPos( oGet:Row, oGet:Col + IIF( oGet:Buffer == NIL, 0, Len( oGet:Buffer ) ) )
lValid := Eval( oGet:PostBlock, oGet )
SetPos( oGet:Row, oGet:Col )
::ShowScoreBoard()