From 5b1cf5bd6595026081a7369247fccf8ecf886c68 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Wed, 6 Sep 2000 02:33:03 +0000 Subject: [PATCH] *** empty log message *** --- harbour/include/hbclass.ch | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) diff --git a/harbour/include/hbclass.ch b/harbour/include/hbclass.ch index 7dfcc3d6ba..f247fc4ba5 100644 --- a/harbour/include/hbclass.ch +++ b/harbour/include/hbclass.ch @@ -47,17 +47,17 @@ * See doc/license.txt for licensing terms. * */ - +/* DECLARE TClass ; - New( cName AS String, OPTIONAL SuperParams ) AS CLASS TClass ; - Create() AS Object; - Instance() AS Object ; - AddClsMthds( cName AS String, @MethodName(), nScope AS Numeric, n2 AS Numeric, n3 AS Numeric ); - AddMultiClsData( cType AS String, uVal, nScope AS Numeric, aDatas AS ARRAY OF String ); - AddMultiData( cType AS String, uVal, nScope AS Numeric, aDatas AS ARRAY OF String ); - AddMethod( cName AS String, @MethodName(), nScope AS Numeric ); - AddInLine( cName AS String, bBlock AS CodeBlock, nScope AS Numeric ); - AddVirtual( cName AS String ) + New( cName AS STRING, OPTIONAL SuperParams ) AS CLASS TClass ; + Create() AS OBJECT; + Instance() AS OBJECT ; + AddClsMthds( cName AS STRING, @MethodName(), nScope AS NUMERIC, n2 AS NUMERIC, n3 AS NUMERIC ); + AddMultiClsData( cType AS STRING, uVal, nScope AS NUMERIC, aDatas AS ARRAY OF STRING ); + AddMultiData( cType AS STRING, uVal, nScope AS NUMERIC, aDatas AS ARRAY OF STRING ); + AddMethod( cName AS STRING, @MethodName(), nScope AS NUMERIC ); + AddInLine( cName AS STRING, bBlock AS CODEBLOCK, nScope AS NUMERIC ); + AddVirtual( cName AS STRING ) */ #ifndef HB_CLASS_CH_ #define HB_CLASS_CH_ @@ -387,7 +387,7 @@ DECLARE TClass ; #xcommand METHOD ( [] ) [ AS ] SETGET => ; _HB_MEMBER ([]) [ AS ];; - _HB_MEMBER <_MethodName>([]) [ AS ];; + _HB_MEMBER _([]) [ AS ];; s_oClass:AddMethod( <(MethodName)>, CLSMETH _CLASS_NAME_ (), HB_OO_CLSTP_EXPORTED + HB_OO_CLSTP_READONLY ) ;; s_oClass:AddMethod( "_" + <(MethodName)>, CLSMETH _CLASS_NAME_ () ) @@ -458,4 +458,3 @@ DECLARE TClass ; #endif /* HB_SHORTNAMES */ #endif /* HB_CLASS_CH_ */ -