Method CreateNew() added

2001-09-06 07:34:53 +00:00
parent 0ca81f58ef
commit 2c83ae31e4
1 changed files with 3 additions and 1 deletions
--- a/harbour/source/rtl/persist.prg
+++ b/harbour/source/rtl/persist.prg
@@ -55,6 +55,8 @@

 CLASS HBPersistent

+   METHOD CreateNew() INLINE Self
+
   METHOD SaveToText( cObjectName )

   METHOD SaveToFile( cFileName ) INLINE MemoWrit( cFileName, ::SaveToText() )
@@ -63,7 +65,7 @@ ENDCLASS

 METHOD SaveToText( cObjectName ) CLASS HBPersistent

-   local oNew := &( ::ClassName() + "()" ):New()
+   local oNew := &( ::ClassName() + "()" ):CreateNew()
   local aProperties, n, uValue, cObject, cType

   static nIndent := -3