From 082bf7b707dd7527fb7007444bf5ac99d26941f9 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Mon, 12 Jul 1999 16:04:00 +0000
Subject: [PATCH] Enhanced sample

---
 harbour/ChangeLog                 | 5 +++++
 harbour/include/classes.ch        | 4 ++--
 harbour/tests/working/classch.prg | 8 +++++++-
 3 files changed, 14 insertions(+), 3 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d6f21f4384..ef2fcc9098 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+19990712-16:52 Antonio Linares <alinares@fivetech.com>
+  * include\classes.ch
+    * Inheritance class creation command support
+  * Enhanced tests\working\classch.prg classes.ch sample
+
 19990712-15:54 Antonio Linares <alinares@fivetech.com>
   * include\classes.ch
     * Missing oClass:Create call
diff --git a/harbour/include/classes.ch b/harbour/include/classes.ch
index 18e6548e4b..6aca03d14c 100644
--- a/harbour/include/classes.ch
+++ b/harbour/include/classes.ch
@@ -21,11 +21,11 @@
    You can contact me at: alinares@fivetech.com
 */
 
-#xcommand CLASS <ClassName> => ;
+#xcommand CLASS <ClassName> [ <frm: FROM, INHERIT> <SuperClass> ] => ;
    function <ClassName>() ;;
       static oClass ;;
       if oClass == nil ;;
-         oClass = TClass():New( <(ClassName)> )
+         oClass = TClass():New( <(ClassName)> [,<(SuperClass)>] )
 
 #xcommand DATA <DataName1> [,<DataNameN>] => ;
    oClass:AddData( <(DataName1)> ) [; oClass:AddData( <(DataNameN)> ) ]
diff --git a/harbour/tests/working/classch.prg b/harbour/tests/working/classch.prg
index 0c803b66ea..71148063dd 100644
--- a/harbour/tests/working/classch.prg
+++ b/harbour/tests/working/classch.prg
@@ -18,7 +18,7 @@ return nil
 
 //--------------------------------------------------------------------//
 
-CLASS TTest
+CLASS TTest INHERIT TParent
 
    DATA One, Two, Three
 
@@ -38,3 +38,9 @@ METHOD New( One, Two ) CLASS TTest
 return Self
 
 //--------------------------------------------------------------------//
+
+CLASS TParent
+
+   DATA One
+
+ENDCLASS