fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Antonio Linares
2000-09-06 02:33:03 +00:00
parent f40fe5235a
commit 5b1cf5bd65
1 changed files with 11 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
harbour/include/hbclass.ch
View File

@@ -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 <MethodName>( [<params,...>] ) [ AS <type> ] SETGET => ;
_HB_MEMBER <MethodName>([<params>]) [ AS <type> ];;
_HB_MEMBER <_MethodName>([<params>]) [ AS <type> ];;
_HB_MEMBER _<MethodName>([<params>]) [ AS <type> ];;
s_oClass:AddMethod( <(MethodName)>, CLSMETH _CLASS_NAME_ <MethodName>(), HB_OO_CLSTP_EXPORTED + HB_OO_CLSTP_READONLY ) ;;
s_oClass:AddMethod( "_" + <(MethodName)>, CLSMETH _CLASS_NAME_ <MethodName>() )
@@ -458,4 +458,3 @@ DECLARE TClass ;
#endif /* HB_SHORTNAMES */
#endif /* HB_CLASS_CH_ */