__ClsAddMsg() call, for ON ERROR clause, modified suplied parameters

2001-11-04 16:26:30 +00:00
parent 1bc25a0b4e
commit b3c46b4845
1 changed files with 1 additions and 1 deletions
--- a/harbour/source/rtl/tclass.prg
+++ b/harbour/source/rtl/tclass.prg
@@ -262,7 +262,7 @@ STATIC PROCEDURE Create(MetaClass)
   NEXT

   IF ::nOnError != NIL
-      __clsAddMsg( hClass, ::nOnError, NIL, HB_OO_MSG_ONERROR )
+      __clsAddMsg( hClass, "__OnError", ::nOnError, HB_OO_MSG_ONERROR )
   ENDIF

   RETURN