From 5463d86367778e19c53dc8d9d263c12f78d71a34 Mon Sep 17 00:00:00 2001 From: Walter Negro Date: Fri, 24 May 2002 18:58:14 +0000 Subject: [PATCH] * source/rtl/tgetlist.prg ! Corrected minor bug in using Len() on oGet:Buffer, where it might be NIL. By Ron Pinkas in xHarbour. --- harbour/source/rtl/tgetlist.prg | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/harbour/source/rtl/tgetlist.prg b/harbour/source/rtl/tgetlist.prg index 64014905b8..81a29cb02c 100644 --- a/harbour/source/rtl/tgetlist.prg +++ b/harbour/source/rtl/tgetlist.prg @@ -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()