From 3494c884c6e0d0719bcfe23e4eb020c644135c74 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Thu, 15 Jul 1999 12:47:27 +0000
Subject: [PATCH] Added support for CLASSDATA, MESSAGE ... METHOD and VIRTUAL
 methods

---
 harbour/include/classes.ch | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/harbour/include/classes.ch b/harbour/include/classes.ch
index c6cdf8b33f..2e165a77a7 100644
--- a/harbour/include/classes.ch
+++ b/harbour/include/classes.ch
@@ -32,11 +32,15 @@
    function <ClassName>() ;;
       static oClass ;;
       if oClass == nil ;;
-         oClass = TClass():New( <(ClassName)> [,<(SuperClass)>] )
+         oClass = TClass():New( <(ClassName)> [,<(SuperClass)>] ) ;
+     [ ; #define _Super_ <(SuperClass)> ]
 
 #xcommand DATA <DataName1> [,<DataNameN>] => ;
    oClass:AddData( <(DataName1)> ) [; oClass:AddData( <(DataNameN)> ) ]
 
+#xcommand CLASSDATA <DataName1> [,<DataNameN>] => ;
+   oClass:AddClassData( <(DataName1)> ) [; oClass:AddClassData( <(DataNameN)> ) ]
+
 #xcommand METHOD <MethodName>( [<params,...>] ) => ;
    oClass:AddMethod( <(MethodName)>, @<MethodName>() )
 
@@ -46,6 +50,12 @@
 #xcommand METHOD <MethodName>( [<params,...>] ) INLINE <Code,...> => ;
    oClass:AddInline( <(MethodName)>, {|Self [,<params>] | <Code> } )
 
+#xcommand METHOD <MethodName>( [<params,...>] ) VIRTUAL => ;
+   oClass:AddVirtual( <(MethodName)> )
+
+#xcommand MESSAGE <MessageName> METHOD <MethodName>( [<params,...>] ) => ;
+   oClass:AddMethod( <(MessageName)>, @<MethodName>() )
+
 #xcommand ENDCLASS => oClass:Create() ;;
                       endif ;;
                       return oClass:Instance()