From ac4c1a55479fd2aeaa73b3e455d8386c91bb86a0 Mon Sep 17 00:00:00 2001
From: Teo Fonrouge <teo@windtelsoft.com>
Date: Mon, 8 Sep 2008 18:29:12 +0000
Subject: [PATCH] 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

---
 harbour/ChangeLog          | 5 +++++
 harbour/include/hbclass.ch | 5 +++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 2e6479c1c0..2f6a353576 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -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
diff --git a/harbour/include/hbclass.ch b/harbour/include/hbclass.ch
index 52783dc587..dd7981f74d 100644
--- a/harbour/include/hbclass.ch
+++ b/harbour/include/hbclass.ch
@@ -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>