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

2008-09-08 13:59 UTC-0500 Teo Fonrouge (teo/at/windtelsoft/dot/com)

Browse Source 
* include/hbclass.ch
    ! added missing MESSAGE <MessageName> TO <oObject>
      ; this also fixes DELEGATE command
This commit is contained in:
Teo Fonrouge
2008-09-08 18:29:12 +00:00
parent ad301f9257
commit ac4c1a5547
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-09-08 13:59 UTC-0500 Teo Fonrouge (teo/at/windtelsoft/dot/com)
* include/hbclass.ch
! added missing MESSAGE <MessageName> TO <oObject>
; this also fixes DELEGATE command
2008-09-08 13:01 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* contrib/mtpl_b32.mak
* contrib/mtpl_vc.mak

5
harbour/include/hbclass.ch
View File

@@ -135,7 +135,7 @@
#endif
/* Disable method decoration when Harbour compiled strict compatibility mode.
In strict mode, PP doesn't support identifier concatenation, which
In strict mode, PP doesn't support identifier concatenation, which
would be needed for method decoration. */
#ifdef HB_C52_STRICT
#ifndef HB_CLS_NO_DECORATION
@@ -408,7 +408,8 @@ DECLARE HBClass ;
MESSAGE <MessageName> [ AS <type> ] INLINE Self:<AltMsgName> <ctor> <export> <protect> <hidde> <persistent>
*/
#xcommand MESSAGE <MessageName> [ AS <type> ] TO <oObject> [<export: EXPORTED, VISIBLE>] [<protect: PROTECTED>] [<hidde: HIDDEN>] [<persistent: PERSISTENT, PROPERTY>] =>;
#xcommand MESSAGE <MessageName> [ AS <type> ] TO <oObject> [<export: EXPORTED, VISIBLE>] [<protect: PROTECTED>] [<hidde: HIDDEN>] [<persistent: PERSISTENT, PROPERTY>] => ;
MESSAGE <MessageName> [ AS <type> ] INLINE Self:<oObject>:<MessageName> <export> <protect> <hidde> <persistent>
#xcommand MESSAGE <MessageName> [ AS <type> ] IN <SuperClass> [<export: EXPORTED, VISIBLE>] [<protect: PROTECTED>] [<hidde: HIDDEN>] [<persistent: PERSISTENT, PROPERTY>] => ;
MESSAGE <MessageName> [ AS <type> ] INLINE Self:<SuperClass>:<MessageName> <export> <protect> <hidde> <persistent>