Enhanced sample

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

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)> ) ]

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