From 39e7c98299d9c96019e93d6bd400d43e2e1da69a Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 4 Aug 1999 12:03:38 +0000
Subject: [PATCH] fixed MESSAGE ... METHOD

---
 harbour/include/classes.ch | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/harbour/include/classes.ch b/harbour/include/classes.ch
index 607aae6f5b..0b1274ca72 100644
--- a/harbour/include/classes.ch
+++ b/harbour/include/classes.ch
@@ -56,7 +56,10 @@
 #xcommand METHOD <MethodName>( [<params,...>] ) VIRTUAL => ;
    oClass:AddVirtual( <(MethodName)> )
 
-#xcommand MESSAGE <MessageName>[()] METHOD <MethodName>( [<params,...>] ) => ;
+#xcommand MESSAGE <MessageName> METHOD <MethodName>( [<params,...>] ) => ;
+   oClass:AddMethod( <(MessageName)>, CLSMETH _CLASS_NAME_ <MethodName>() )
+
+#xcommand MESSAGE <MessageName>() METHOD <MethodName>( [<params,...>] ) => ;
    oClass:AddMethod( <(MessageName)>, CLSMETH _CLASS_NAME_ <MethodName>() )
 
 #xcommand ENDCLASS => oClass:Create() ;;