*** empty log message ***

harbour/ChangeLog

@@ -1,3 +1,9 @@
+19990712-15:54 Antonio Linares <alinares@fivetech.com>
+  * include\classes.ch
+    * Missing oClass:Create call
+    * Fixed Method INLINE command
+  * Added tests\working\classch.prg classes.ch sample
+
 19990712-13:56 Antonio Linares <alinares@fivetech.com>
   * include\classes.ch
     * Added support for CONSTRUCTOR and INLINE Methods

harbour/include/classes.ch

@@ -34,12 +34,13 @@
    oClass:AddMethod( <(MethodName)>, @<MethodName>() )
 
 #xcommand METHOD <MethodName>( [<params,...>] ) CONSTRUCTOR => ;
-   oClass:AddInline( <(MethodName)>, {|Self,<params>| <MethodName>(Self,<params>), Self } )
+   oClass:AddInline( <(MethodName)>, {|Self [,<params>] | <MethodName>(Self [,<params>] ), Self } )
 
 #xcommand METHOD <MethodName>( [<params,...>] ) INLINE <Code,...> => ;
-   oClass:AddInline( <(MethodName)>, {|Self,<params>| <Code> } )
+   oClass:AddInline( <(MethodName)>, {|Self [,<params>] | <Code> } )
 
-#xcommand ENDCLASS => endif ;;
+#xcommand ENDCLASS => oClass:Create() ;;
+                      endif ;;
                       return oClass:Instance()
 
 #xcommand METHOD <MethodName>([<params,...>]) CLASS <ClassName> => ;