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

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

Browse Source 
* harbour/source/debug/dbgbrwsr.prg
    ! added missing #include "common.ch"
    ! added missing colorBlock variable in HBDBColumn class
    % replaced .prg wrappers for type checking with native
      harbour class type validation
This commit is contained in:
Przemyslaw Czerpak
2008-10-15 17:08:21 +00:00
parent a11e7bdfa2
commit 7b5f7784fb
2 changed files with 15 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -8,6 +8,13 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2008-10-15 19:08 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/debug/dbgbrwsr.prg
! added missing #include "common.ch"
! added missing colorBlock variable in HBDBColumn class
% replaced .prg wrappers for type checking with native
harbour class type validation
2008-10-15 18:12 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* source/debug/tbrwtext.prg
* Replaced with new implementation from Lorenzo Fiorini.

27
harbour/source/debug/dbgbrwsr.prg
View File

@@ -55,6 +55,7 @@
#pragma DEBUGINFO=OFF
#include "hbclass.ch"
#include "common.ch"
/* HBDbBrowser
*
@@ -235,33 +236,21 @@ METHOD Resize( nTop, nLeft, nBottom, nRight )
CREATE CLASS HBDbColumn
VAR nWidth PROTECTED
VAR bBlock PROTECTED
VAR aDefColor PROTECTED INIT { 1, 2 }
EXPORTED:
METHOD block( bBlock ) SETGET /* Code block to retrieve data for the column */
METHOD defColor( aDefColor ) SETGET /* Array of numeric indexes into the color table */
METHOD width( nWidth ) SETGET /* Column display width */
METHOD New( cHeading, bBlock ) /* NOTE: This method is a Harbour extension [vszakats] */
VAR block AS CODEBLOCK /* Code block to retrieve data for the column */
VAR colorBlock AS CODEBLOCK INIT {|| NIL } /* column color block */
VAR defColor AS ARRAY INIT { 1, 2 } /* Array of numeric indexes into the color table */
VAR width AS USUAL /* Column display width */
METHOD New( cHeading, bBlock ) /* NOTE: This method is a Harbour extension [vszakats] */
ENDCLASS
METHOD block( bBlock ) CLASS HBDbColumn
RETURN iif( ISBLOCK( bBlock ), ::bBlock := bBlock, ::bBlock )
METHOD defColor( aDefColor ) CLASS HBDbColumn
RETURN iif( ISARRAY( aDefColor ), ::aDefColor := aDefColor, ::aDefColor )
METHOD width( nWidth ) CLASS HBDbColumn
RETURN iif( ISNUMBER( nWidth ), ::nWidth := nWidth, ::nWidth )
METHOD New( cHeading, bBlock ) CLASS HBDbColumn
HB_SYMBOL_UNUSED( cHeading )
::bBlock := bBlock
::block := bBlock
RETURN Self