From 6a1e9770bb9c493fffbe647f1dfbd7c112e75270 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 28 Jul 1999 17:52:39 +0000
Subject: [PATCH] Added support for 'Super' keyword

---
 harbour/include/classes.ch | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/harbour/include/classes.ch b/harbour/include/classes.ch
index 3b33e82344..f5aa800bef 100644
--- a/harbour/include/classes.ch
+++ b/harbour/include/classes.ch
@@ -35,7 +35,7 @@
          oClass = TClass():New( <(ClassName)> [,<(SuperClass)>] ) ;;
      #define _CLASS_NAME_ <ClassName> ;;
      #translate CLSMETH <ClassName> <MethodName>() => @<ClassName>_<MethodName>() ;
-     [ ; #define _Super_ <(SuperClass)> ]
+     [ ; #translate Super : => ::<SuperClass>: ]
 
 #xcommand DATA <DataName1> [,<DataNameN>] => ;
    oClass:AddData( <(DataName1)> ) [; oClass:AddData( <(DataNameN)> ) ]