From 552ab6cddd0f35f4b987029e1086b3b5e34e6f8e Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Mon, 12 Jul 1999 14:38:18 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/ChangeLog          |   6 ++++++
 harbour/include/classes.ch |   7 ++++---
 harbour/obj/symbols.obj    | Bin 303 -> 303 bytes
 3 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index e819e66bf1..d6f21f4384 100644
--- a/harbour/ChangeLog
+++ b/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
diff --git a/harbour/include/classes.ch b/harbour/include/classes.ch
index 117e170822..18e6548e4b 100644
--- a/harbour/include/classes.ch
+++ b/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> => ;
diff --git a/harbour/obj/symbols.obj b/harbour/obj/symbols.obj
index 7fb9362bc2365378b2ee923a566e22720915ade9..8f8f845270c2341498d250252fce59dea658ab67 100644
GIT binary patch
delta 25
hcmZ3_w4P~#BbUL<4rK<1mzMD_CVI;<`cKR}1^{zO31k2O

delta 25
hcmZ3_w4P~#BbU+i4rK<1mrGq&P4t#!w4RuG3;=X(31k2O