From 48e605cbee48b7151ffe1c2eecc62f491f3d9197 Mon Sep 17 00:00:00 2001
From: Ron Pinkas <ron@profit-master.com>
Date: Fri, 11 May 2001 05:08:59 +0000
Subject: [PATCH] 2001-05-10 22:10 UTC-0800 Ron Pinkas <ron@profit-master.com> 
   * source/rtl/tclass.prg      + Added logic to dispose of posibble "(...)"
 suffix to Method Name in AddInline()

---
 harbour/ChangeLog             | 4 ++++
 harbour/include/hbclass.ch    | 4 ++--
 harbour/source/rtl/tclass.prg | 7 ++++++-
 3 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 9d56ff9b7a..7fc279eaf6 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-05-10 22:10 UTC-0800 Ron Pinkas <ron@profit-master.com>
+   * source/rtl/tclass.prg
+     + Added logic to dispose of posibble "(...)" suffix to Method Name in AddInline()
+
 2001-05-10 15:30 UTC-0800 Ron Pinkas <ron@profit-master.com>
    * include/hbclass.ch
      + Added logic for NO Checking of OO Syntax (#ifdef NO_OO_ERR) - Use /dNO_OO_ERR to disable OO Syntax Checking.
diff --git a/harbour/include/hbclass.ch b/harbour/include/hbclass.ch
index 05c359a19e..43753a46f5 100644
--- a/harbour/include/hbclass.ch
+++ b/harbour/include/hbclass.ch
@@ -393,9 +393,9 @@ DECLARE TClass ;
      s_oClass:AddMethod( <(MessageName)>, CLSMETH _CLASS_NAME_ <MethodName>(), HBCLSCHOICE( <.export.>, <.protect.>, <.hidde.> ) + iif( <.ctor.>, HB_OO_CLSTP_CTOR, 0 ) )
 
   #xcommand MESSAGE <MessageName>([<MsgParams,...>]) [ AS <type> ] METHOD <MethodName>([<MtdParams,...>]) [ <ctor: CONSTRUCTOR> ] [ <export: EXPORTED, VISIBLE>] [<protect: PROTECTED>] [<hidde: HIDDEN>] => ;
-     _HB_MEMBER <MessageName>([<MtdParams>]) [<-ctor-> AS CLASS _CLASS_NAME_] [ AS <type> ];;
+     _HB_MEMBER <MessageName>([<MtdParams>]) [<-MsgParams->] [<-ctor-> AS CLASS _CLASS_NAME_] [ AS <type> ];;
      #xcommand METHOD <MethodName>                    [DECLCLASS _CLASS_NAME_] _CLASS_IMPLEMENTATION_ => DECLARED METHOD _CLASS_NAME_ <MethodName>;;
-     #xcommand METHOD <MethodName>([<anyParams,...>]) [DECLCLASS _CLASS_NAME_] _CLASS_IMPLEMENTATION_ => DECLARED METHOD _CLASS_NAME_ <MethodName>([<anyParams>]);;
+     #xcommand METHOD <MethodName>( [<anyParams,...>] ) [DECLCLASS _CLASS_NAME_] _CLASS_IMPLEMENTATION_ => DECLARED METHOD _CLASS_NAME_ <MethodName>( [<anyParams>] );;
      #xcommand METHOD <MethodName>()                  [DECLCLASS _CLASS_NAME_] _CLASS_IMPLEMENTATION_ => DECLARED METHOD _CLASS_NAME_ <MethodName>();;
      s_oClass:AddMethod( <(MessageName)>, CLSMETH _CLASS_NAME_ <MethodName>(), HBCLSCHOICE( <.export.>, <.protect.>, <.hidde.> ) + iif( <.ctor.>, HB_OO_CLSTP_CTOR, 0 ) )
 #endif
diff --git a/harbour/source/rtl/tclass.prg b/harbour/source/rtl/tclass.prg
index 7daeeb7467..063a2246dc 100644
--- a/harbour/source/rtl/tclass.prg
+++ b/harbour/source/rtl/tclass.prg
@@ -366,7 +366,12 @@ STATIC PROCEDURE AddMultiClsData( cType, xInit, nScope, aData, lNoInit )
 
 STATIC PROCEDURE AddInline( cMethod, bCode, nScope )
 
-   LOCAL Self := QSelf()
+   LOCAL Self := QSelf(), nAt
+
+   /* Remove possible ( <x,...> )*/
+   IF ( nAt := At( "(", cMethod ) ) > 0
+      cMethod := RTrim( Left( cMethod, nAt - 1 ) )
+   ENDIF
 
    AAdd( ::aInlines, { cMethod, bCode, nScope } )