From 2c83ae31e4a90f6d32c57377858ce8e8b85b0125 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Thu, 6 Sep 2001 07:34:53 +0000 Subject: [PATCH] Method CreateNew() added --- harbour/source/rtl/persist.prg | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/harbour/source/rtl/persist.prg b/harbour/source/rtl/persist.prg index dd1e30f7ca..f0f4cb96ae 100644 --- 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