From 87ef7ca7fc2336a041d5dfc93b1d9f7e8f166f55 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sun, 4 Jun 2000 11:53:02 +0000
Subject: [PATCH] 20000604-13:53 GMT+1 alinares

---
 harbour/include/hbclass.ch | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/harbour/include/hbclass.ch b/harbour/include/hbclass.ch
index 7696f16d6c..4583a313f7 100644
--- a/harbour/include/hbclass.ch
+++ b/harbour/include/hbclass.ch
@@ -39,7 +39,7 @@
  *
  * Copyright 2000 JF Lefebvre <jfl@mafact.com> and RA Cuylen <rac@mafact.com>
  *    Support for Class(y), TopClass and Visual Object compatibility
- *    Support for MI (multiple inheritance), 
+ *    Support for MI (multiple inheritance),
  *    Scoping (Protect, Hidden and Readonly),
  *    Delegating, DATA Shared
  *    Support of 10 Chars limits
@@ -101,7 +101,9 @@
 #xtranslate  ( <name>{ [<p,...>] }        =>  ( <name>():New( <p> )
 #xtranslate := <name>{ [<p,...>] }        => := <name>():New( <p> )
 #xtranslate  = <name>{ [<p,...>] }        =>  = <name>():New( <p> )
-#xtranslate  , <name>{ [<p,...>] }        =>  , <name>():New( <p> )
+
+// This rule is generating preprocess matching errors.
+// #xtranslate  , <name>{ [<p,...>] }        =>  , <name>():New( <p> )
 
 #xtranslate    EXPORTED:       =>      nScope := HB_OO_CLSTP_EXPORTED
 #xtranslate    VISIBLE:        =>      nScope := HB_OO_CLSTP_EXPORTED
@@ -274,7 +276,7 @@
 
 #xcommand METHOD <MethodName>( [<params,...>] ) SETGET => ;
    oClass:AddMethod( <(MethodName)>, CLSMETH _CLASS_NAME_ <MethodName>(), HB_OO_CLSTP_EXPORTED + HB_OO_CLSTP_READONLY ) ;;
-   oClass:AddMethod( _<(MethodName)>, CLSMETH _CLASS_NAME_ _<MethodName>() )
+   oClass:AddMethod( "_" + <(MethodName)>, CLSMETH _CLASS_NAME_ <MethodName>() )
 
 #xcommand ACCESS <AccessName> => ;
    oClass:AddMethod( <(AccessName)>, CLSMETH _CLASS_NAME_ <AccessName>(), HB_OO_CLSTP_EXPORTED + HB_OO_CLSTP_READONLY )
@@ -337,4 +339,3 @@
 #endif /* HB_SHORTNAMES */
 
 #endif /* HB_CLASS_CH_ */
-