From 6e9cf7a5a60cbfbb20a99f77c940c277cd9b475b Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 5 Sep 2001 09:48:01 +0000
Subject: [PATCH] Some changes as per Dave's proposal

---
 harbour/source/rtl/persist.prg | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/harbour/source/rtl/persist.prg b/harbour/source/rtl/persist.prg
index 66b90dd006..cd647d2221 100644
--- a/harbour/source/rtl/persist.prg
+++ b/harbour/source/rtl/persist.prg
@@ -55,22 +55,12 @@
 
 CLASS TPersistent
 
-   DATA   cName
-
-   METHOD New()
-
    METHOD SaveToText( cObjectName )
 
    METHOD SaveToFile( cFileName ) INLINE MemoWrit( cFileName, ::SaveToText() )
 
 ENDCLASS
 
-METHOD New() CLASS TPersistent
-
-   ::cName = "o" + ::ClassName()
-
-return Self
-
 METHOD SaveToText( cObjectName ) CLASS TPersistent
 
    local oNew := &( ::ClassName() + "()" ):New()
@@ -78,7 +68,7 @@ METHOD SaveToText( cObjectName ) CLASS TPersistent
 
    static nIndent := -3
 
-   DEFAULT cObjectName TO ::cName
+   DEFAULT cObjectName TO "o" + ::ClassName()
 
    nIndent += 3
    cObject := If( nIndent > 0, HB_OsNewLine(), "" ) + Space( nIndent ) + ;