From bb071a75b7277d3f09e699179de92fcaa79ac825 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Wed, 5 Sep 2001 10:18:53 +0000 Subject: [PATCH] some minor changes --- harbour/source/rtl/persist.prg | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/harbour/source/rtl/persist.prg b/harbour/source/rtl/persist.prg index 7d8b07543d..dd1e30f7ca 100644 --- a/harbour/source/rtl/persist.prg +++ b/harbour/source/rtl/persist.prg @@ -94,7 +94,7 @@ METHOD SaveToText( cObjectName ) CLASS HBPersistent endif case cType == "O" - if __objDerivedFrom( uValue, "TPERSISTENT" ) + if __objDerivedFrom( uValue, "HBPERSISTENT" ) cObject += uValue:SaveToText( aProperties[ n ] ) endif if n < Len( aProperties ) @@ -137,7 +137,7 @@ static function ArrayToText( aArray, cName, nIndent ) nIndent -= 3 case cType == "O" - if __objDerivedFrom( uValue, "TPERSISTENT" ) + if __objDerivedFrom( uValue, "HBPERSISTENT" ) cArray += uValue:SaveToText( cName + "[ " + AllTrim( Str( n ) ) + ; " ]" ) endif