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

some minor changes

Browse Source
This commit is contained in:
Antonio Linares
2001-09-05 10:18:53 +00:00
parent e0d799d059
commit bb071a75b7
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/source/rtl/persist.prg
View File

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