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

fixed MESSAGE ... METHOD

Browse Source
This commit is contained in:
Antonio Linares
1999-08-04 12:03:38 +00:00
parent 03660288d7
commit 39e7c98299
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/include/classes.ch
View File

@@ -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() ;;