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

2008-08-10 12:58 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/include/hbextern.ch
    * include scalar classes only when HB_REQUEST_SCALLAR define is set

  * harbour/source/rtl/tobject.prg
    ! use <obj>:className instead of __objGetClsName( <obj> ) in error
      message
This commit is contained in:
Przemyslaw Czerpak
2008-08-10 10:59:11 +00:00
parent 55983c8a51
commit ea7b9d69d5
3 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -8,6 +8,14 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-08-10 12:58 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbextern.ch
* include scalar classes only when HB_REQUEST_SCALLAR define is set
* harbour/source/rtl/tobject.prg
! use <obj>:className instead of __objGetClsName( <obj> ) in error
message
2008-08-09 21:44 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* doc/whatsnew.txt
* Minor corrections.

2
harbour/include/hbextern.ch
View File

@@ -1190,6 +1190,7 @@ EXTERNAL HB_GZCLEARERR
EXTERNAL HBCLASS
EXTERNAL HBOBJECT
EXTERNAL HBSCALAR
#ifdef HB_REQUEST_SCALLAR
EXTERNAL HBARRAY
EXTERNAL HBBLOCK
EXTERNAL HBCHARACTER
@@ -1197,6 +1198,7 @@ EXTERNAL HBDATE
EXTERNAL HBLOGICAL
EXTERNAL HBNIL
EXTERNAL HBNUMERIC
#endif /* HB_REQUEST_SCALLAR */
/* FlagShip extension */

2
harbour/source/rtl/tobject.prg
View File

@@ -102,7 +102,7 @@ FUNCTION HBObject()
s_oClass:SetOnError( @HBObject_DftonError() )
s_oClass:AddInline( "MSGNOTFOUND" , {| Self, cMsg | ::Error( "Message not found", __OBJGETCLSNAME( Self ), cMsg, IIF( Left( cMsg, 1 ) == "_", 1005, 1004 ) ) }, HB_OO_CLSTP_EXPORTED )
s_oClass:AddInline( "MSGNOTFOUND" , {| Self, cMsg | ::Error( "Message not found", Self:className, cMsg, IIF( Left( cMsg, 1 ) == "_", 1005, 1004 ) ) }, HB_OO_CLSTP_EXPORTED )
/*s_oClass:AddMultiData( , , HB_OO_CLSTP_EXPORTED, { "CLASS" }, .F. ) */