From c7488d7867d6eb172c81fb2a2b45c9363f823f24 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Fri, 6 Aug 1999 18:18:16 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/ChangeLog          | 4 ++++
 harbour/include/classes.ch | 9 +++++----
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index bf4bdf38fe..936fc1ef61 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990806-19:55 GMT+1 Antonio Linares <alinares@fivetech.com>
+   * include/classes.ch
+     * Added support for SETGET methods
+
 19990806-19:55 GMT+1 Antonio Linares <alinares@fivetech.com>
    * makefile.b32
      * hvm module added
diff --git a/harbour/include/classes.ch b/harbour/include/classes.ch
index 0b1274ca72..39e84b41a5 100644
--- a/harbour/include/classes.ch
+++ b/harbour/include/classes.ch
@@ -44,18 +44,19 @@
 #xcommand CLASSDATA <DataName1> [,<DataNameN>] => ;
    oClass:AddClassData( <(DataName1)> ) [; oClass:AddClassData( <(DataNameN)> ) ]
 
-#xcommand METHOD <MethodName>( [<params,...>] ) => ;
+#xcommand METHOD <MethodName>( [<params,...>] ) [ CONSTRUCTOR ] => ;
    oClass:AddMethod( <(MethodName)>, CLSMETH _CLASS_NAME_ <MethodName>() )
 
-#xcommand METHOD <MethodName>( [<params,...>] ) CONSTRUCTOR => ;
-   oClass:AddInline( <(MethodName)>, {|Self [,<params>] | <MethodName>(Self [,<params>] ), Self } )
-
 #xcommand METHOD <MethodName>( [<params,...>] ) INLINE <Code,...> => ;
    oClass:AddInline( <(MethodName)>, {|Self [,<params>] | <Code> } )
 
 #xcommand METHOD <MethodName>( [<params,...>] ) VIRTUAL => ;
    oClass:AddVirtual( <(MethodName)> )
 
+#xcommand METHOD <MethodName>( [<params,...>] ) SETGET => ;
+   oClass:AddMethod( <(MethodName)>, CLSMETH _CLASS_NAME_ <MethodName>() ) ;;
+   oClass:AddMethod( "_" + <(MethodName)>, CLSMETH _CLASS_NAME_ <MethodName>() )
+
 #xcommand MESSAGE <MessageName> METHOD <MethodName>( [<params,...>] ) => ;
    oClass:AddMethod( <(MessageName)>, CLSMETH _CLASS_NAME_ <MethodName>() )