From ad2e22923349d3f7ec3531c79c97e2a1eec30aa8 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Tue, 17 Aug 1999 11:29:51 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/ChangeLog          | 6 +++++-
 harbour/include/classes.ch | 3 ++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 6e3b201549..27d3f54a61 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990817-13:20 GMT+1 Antonio Linares <alinares@fivetech.com>
+   * include/classes.ch
+     * extern <SuperClass> added, so now the SuperClass symbol is properly linked.
+
 19990817-07:30 GMT+1 Victor Szel <info@szelvesz.hu>
   * source/vm/hvm.c
     source/rtl/errorapi.c
@@ -47,7 +51,7 @@
   * source/rtl/objfunc.prg
     doc/subcodes.txt
     * Got rid of the QOUT() type runtime-error messages, there's now
-      a more comprehensive, standard error checking system, which throws 
+      a more comprehensive, standard error checking system, which throws
       Harbour errors.
     ! Some small bugs fixed. (checking argument after usage, additional
       parameters passed in one place - typo)
diff --git a/harbour/include/classes.ch b/harbour/include/classes.ch
index 39e84b41a5..9ddd5bc273 100644
--- a/harbour/include/classes.ch
+++ b/harbour/include/classes.ch
@@ -36,7 +36,8 @@
          oClass = TClass():New( <(ClassName)> [,<(SuperClass)>] ) ;;
      #define _CLASS_NAME_ <ClassName> ;;
      #translate CLSMETH <ClassName> <MethodName>() => @<ClassName>_<MethodName>() ;
-     [ ; #translate Super : => ::<SuperClass>: ]
+     [ ; #translate Super : => ::<SuperClass>: ] ;
+     [ ; extern <SuperClass> ]
 
 #xcommand DATA <DataName1> [,<DataNameN>] => ;
    oClass:AddData( <(DataName1)> ) [; oClass:AddData( <(DataNameN)> ) ]