From 45c437c9172feb9f3e8ae236abb400eb3068106d Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Wed, 15 Oct 2008 22:42:54 +0000 Subject: [PATCH] 2008-10-16 00:42 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/debug/dbgtobj.prg * harbour/source/debug/dbgbrwsr.prg * harbour/source/debug/dbgtwin.prg * harbour/source/debug/dbgmenu.prg * harbour/source/debug/dbgthsh.prg * harbour/source/debug/tbrwtext.prg * harbour/source/debug/debugger.prg * harbour/source/debug/dbgtarr.prg * harbour/source/debug/dbgtmenu.prg * harbour/source/debug/dbgtmitm.prg * use #define HB_CLS_NOTOBJECT to disable inheritance from HBObject in internal debugger classes. Here is complete list of other .prg functions still used by hbdebug library: GET, __GETLISTACTIVE, __GETLISTSETACTIVE, HBGETLIST, ACHOICE, HB_CSTR, HBCLASS --- harbour/ChangeLog | 19 +++++++++++++++++++ harbour/source/debug/dbgbrwsr.prg | 2 ++ harbour/source/debug/dbgmenu.prg | 2 -- harbour/source/debug/dbgtarr.prg | 1 + harbour/source/debug/dbgthsh.prg | 1 + harbour/source/debug/dbgtmenu.prg | 2 ++ harbour/source/debug/dbgtmitm.prg | 1 + harbour/source/debug/dbgtobj.prg | 1 + harbour/source/debug/dbgtwin.prg | 2 ++ harbour/source/debug/debugger.prg | 2 ++ harbour/source/debug/tbrwtext.prg | 1 + 11 files changed, 32 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 06691afda1..df34033c34 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,25 @@ 2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org) */ +2008-10-16 00:42 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/source/debug/dbgtobj.prg + * harbour/source/debug/dbgbrwsr.prg + * harbour/source/debug/dbgtwin.prg + * harbour/source/debug/dbgmenu.prg + * harbour/source/debug/dbgthsh.prg + * harbour/source/debug/tbrwtext.prg + * harbour/source/debug/debugger.prg + * harbour/source/debug/dbgtarr.prg + * harbour/source/debug/dbgtmenu.prg + * harbour/source/debug/dbgtmitm.prg + * use #define HB_CLS_NOTOBJECT to disable inheritance from HBObject + in internal debugger classes. + Here is complete list of other .prg functions still used by hbdebug + library: + GET, __GETLISTACTIVE, __GETLISTSETACTIVE, HBGETLIST, ACHOICE, + HB_CSTR, HBCLASS + + 2008-10-15 21:33 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/debug/tbrwtext.prg ! refresh rows after active line changing for proper color updating diff --git a/harbour/source/debug/dbgbrwsr.prg b/harbour/source/debug/dbgbrwsr.prg index abf8b0523f..838efa247e 100644 --- a/harbour/source/debug/dbgbrwsr.prg +++ b/harbour/source/debug/dbgbrwsr.prg @@ -54,7 +54,9 @@ #pragma DEBUGINFO=OFF +#define HB_CLS_NOTOBJECT /* do not inherit from HBObject calss */ #include "hbclass.ch" + #include "common.ch" /* HBDbBrowser diff --git a/harbour/source/debug/dbgmenu.prg b/harbour/source/debug/dbgmenu.prg index 3c3652f6da..fc64142a6f 100644 --- a/harbour/source/debug/dbgmenu.prg +++ b/harbour/source/debug/dbgmenu.prg @@ -52,8 +52,6 @@ #pragma DEBUGINFO=OFF -#include "hbclass.ch" - #xcommand MENU [] => [ := ] HBDbMenu():New() #xcommand MENUITEM [ PROMPT ] ; [ IDENT ] [ ACTION ] ; diff --git a/harbour/source/debug/dbgtarr.prg b/harbour/source/debug/dbgtarr.prg index c0c9ba36b0..dcc393e084 100644 --- a/harbour/source/debug/dbgtarr.prg +++ b/harbour/source/debug/dbgtarr.prg @@ -53,6 +53,7 @@ #pragma DEBUGINFO=OFF #define HB_NO_READDBG +#define HB_CLS_NOTOBJECT /* do not inherit from HBObject calss */ #include "hbclass.ch" #include "common.ch" diff --git a/harbour/source/debug/dbgthsh.prg b/harbour/source/debug/dbgthsh.prg index f5c4705f7f..8313b348e4 100644 --- a/harbour/source/debug/dbgthsh.prg +++ b/harbour/source/debug/dbgthsh.prg @@ -54,6 +54,7 @@ #pragma DEBUGINFO=OFF #define HB_NO_READDBG +#define HB_CLS_NOTOBJECT /* do not inherit from HBObject calss */ #include "hbclass.ch" #include "common.ch" diff --git a/harbour/source/debug/dbgtmenu.prg b/harbour/source/debug/dbgtmenu.prg index 019adbd72b..0ac9d1de4d 100644 --- a/harbour/source/debug/dbgtmenu.prg +++ b/harbour/source/debug/dbgtmenu.prg @@ -56,7 +56,9 @@ #pragma DEBUGINFO=OFF +#define HB_CLS_NOTOBJECT /* do not inherit from HBObject calss */ #include "hbclass.ch" + #include "hbmemvar.ch" #include "box.ch" diff --git a/harbour/source/debug/dbgtmitm.prg b/harbour/source/debug/dbgtmitm.prg index 438c111454..8154117e0b 100644 --- a/harbour/source/debug/dbgtmitm.prg +++ b/harbour/source/debug/dbgtmitm.prg @@ -56,6 +56,7 @@ #pragma DEBUGINFO=OFF +#define HB_CLS_NOTOBJECT /* do not inherit from HBObject calss */ #include "hbclass.ch" #include "common.ch" diff --git a/harbour/source/debug/dbgtobj.prg b/harbour/source/debug/dbgtobj.prg index 35dc694ba1..ad4c25a449 100644 --- a/harbour/source/debug/dbgtobj.prg +++ b/harbour/source/debug/dbgtobj.prg @@ -53,6 +53,7 @@ #pragma DEBUGINFO=OFF #define HB_NO_READDBG +#define HB_CLS_NOTOBJECT /* do not inherit from HBObject calss */ #include "hbclass.ch" #include "common.ch" diff --git a/harbour/source/debug/dbgtwin.prg b/harbour/source/debug/dbgtwin.prg index b497f65fdb..f83a300166 100644 --- a/harbour/source/debug/dbgtwin.prg +++ b/harbour/source/debug/dbgtwin.prg @@ -67,7 +67,9 @@ #pragma DEBUGINFO=OFF +#define HB_CLS_NOTOBJECT /* do not inherit from HBObject calss */ #include "hbclass.ch" + #include "hbmemvar.ch" #include "box.ch" diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg index a08b2d4d37..a5ad926640 100644 --- a/harbour/source/debug/debugger.prg +++ b/harbour/source/debug/debugger.prg @@ -65,7 +65,9 @@ #pragma DEBUGINFO=OFF #define HB_NO_READDBG +#define HB_CLS_NOTOBJECT /* do not inherit from HBObject calss */ #include "hbclass.ch" + #include "hbdebug.ch" // for "nMode" of __dbgEntry #include "hbgtinfo.ch" #include "hbmemvar.ch" diff --git a/harbour/source/debug/tbrwtext.prg b/harbour/source/debug/tbrwtext.prg index 1e4ff47e7b..cc36ec787a 100644 --- a/harbour/source/debug/tbrwtext.prg +++ b/harbour/source/debug/tbrwtext.prg @@ -52,6 +52,7 @@ #pragma DEBUGINFO=OFF +#define HB_CLS_NOTOBJECT /* do not inherit from HBObject calss */ #include "hbclass.ch" CREATE CLASS HBBrwText