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

2008-04-14 01:40 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/rtl/tbcolumn.prg
     + TBColumn() instance variable ordering in class definition 
       made CA-Cl*pper compatible, so that it's now possible to 
       access object vars as array elements the same way.
       Read-only access is strongly recommended when using this 
       unofficial access method, and the practice is overall 
       discouraged.
This commit is contained in:
Viktor Szakats
2008-04-13 23:48:30 +00:00
parent 4ff514f08f
commit 7ac5c0ab65
2 changed files with 45 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
harbour/ChangeLog
View File

@@ -8,13 +8,22 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-04-14 01:40 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* source/rtl/tbcolumn.prg
+ TBColumn() instance variable ordering in class definition
made CA-Cl*pper compatible, so that it's now possible to
access object vars as array elements the same way.
Read-only access is strongly recommended when using this
unofficial access method, and the practice is overall
discouraged.
2008-04-13 22:16 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* utils/hbtest/make_c5x.bat
* utils/hbtest/hbtest.prg
* utils/hbtest/rt_miscc.c
* utils/hbtest/rt_misc.prg
- Removed dependency on hbclip.
+ Added proper C version of hb_SToD() for C5.x compiles.
+ Added proper C version of hb_SToD() for C5.x builds.
(Needs MSC)
! Refixed hb_SToD() results messed up in my previous
commit. Sorry for the confusion, Harbour was perfectly
@@ -23,7 +32,7 @@
+ Disabling hb_SToD() tests with invalid input values
for CA-Cl*pper in case there was no C compiler available
when building HBTEST. This is to avoid any invalid
results (due to the .prg version of hb_SToD() and to
results (due to the .prg version of hb_SToD()) and to
avoid confusions such as above.
2008-04-13 21:59 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

68
harbour/source/rtl/tbcolumn.prg
View File

@@ -6,6 +6,7 @@
* Harbour Project source code:
* TBColumn Class
*
* Copyright 2007-2008 Viktor Szakats <viktor.szakats@syenar.hu>
* Copyright 1999 Antonio Linares <alinares@fivetech.com>
* www - http://www.harbour-project.org
*
@@ -67,42 +68,41 @@ CREATE CLASS TBColumn
EXPORT:
VAR cargo // User-definable variable
VAR picture // Column picture string
METHOD block( bBlock ) SETGET // Code block to retrieve data for the column
METHOD colorBlock( bColorBlock ) SETGET // Code block that determines color of data items
METHOD defColor( aDefColor ) SETGET // Array of numeric indexes into the color table
METHOD colSep( cColSep ) SETGET // Column separator character
METHOD heading( cHeading ) SETGET // Column heading
METHOD footing( cFooting ) SETGET // Column footing
METHOD headSep( cHeadSep ) SETGET // Heading separator character
METHOD footSep( cFootSep ) SETGET // Footing separator character
METHOD width( nWidth ) SETGET // Column display width
#ifdef HB_COMPAT_C53
METHOD preBlock( bPreBlock ) SETGET // Code block determining editing
METHOD postBlock( bPostBlock ) SETGET // Code block validating values
METHOD setStyle( nStyle, lSetting )
#endif
METHOD New( cHeading, bBlock ) /* NOTE: This method is a Harbour extension [vszakats] */
PROTECTED:
VAR bBlock
VAR bColorBlock INIT {|| NIL }
VAR aDefColor INIT { 1, 2 } /* NOTE: Default value for both CA-Cl*pper 5.2 and 5.3. */
VAR cColSep
VAR cHeading INIT ""
VAR cFooting INIT ""
VAR cFootSep
VAR cHeadSep
VAR nWidth
/* === Start of CA-Cl*pper compatible TBColumn instance area === */
VAR cargo // 01. User-definable variable
VAR nWidth PROTECTED // 02.
VAR bBlock PROTECTED // 03.
VAR aDefColor PROTECTED INIT { 1, 2 } // 04. /* NOTE: Default value for both CA-Cl*pper 5.2 and 5.3. */
VAR bColorBlock PROTECTED INIT {|| NIL } // 05.
VAR cHeading PROTECTED INIT "" // 06.
VAR cHeadSep PROTECTED // 07.
VAR cColSep PROTECTED // 08.
VAR cFootSep PROTECTED // 09.
VAR cFooting PROTECTED INIT "" // 10.
VAR picture // 11. Column picture string
#ifdef HB_COMPAT_C53
VAR bPreBlock
VAR bPostBlock
VAR aSetStyle INIT { .F., .F., .F. } /* TBC_READWRITE, TBC_MOVE, TBC_SIZE */
VAR bPreBlock PROTECTED // 12.
VAR bPostBlock PROTECTED // 13.
VAR aSetStyle PROTECTED INIT { .F., .F., .F. } // 14. /* TBC_READWRITE, TBC_MOVE, TBC_SIZE */
#endif
/* === End of CA-Cl*pper compatible TBColumn instance area === */
METHOD block( bBlock ) SETGET // Code block to retrieve data for the column
METHOD colorBlock( bColorBlock ) SETGET // Code block that determines color of data items
METHOD defColor( aDefColor ) SETGET // Array of numeric indexes into the color table
METHOD colSep( cColSep ) SETGET // Column separator character
METHOD heading( cHeading ) SETGET // Column heading
METHOD footing( cFooting ) SETGET // Column footing
METHOD headSep( cHeadSep ) SETGET // Heading separator character
METHOD footSep( cFootSep ) SETGET // Footing separator character
METHOD width( nWidth ) SETGET // Column display width
#ifdef HB_COMPAT_C53
METHOD preBlock( bPreBlock ) SETGET // Code block determining editing
METHOD postBlock( bPostBlock ) SETGET // Code block validating values
METHOD setStyle( nStyle, lSetting )
#endif
METHOD New( cHeading, bBlock ) /* NOTE: This method is a Harbour extension [vszakats] */
ENDCLASS