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

2009-02-04 23:13 UTC+0100 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/rtl/tget.prg
  * source/rtl/tgetx.prg
  * source/rtl/tbcolumn.prg
  * source/rtl/tbrowse.prg
    * Reset internal name of GET(), TBROWSE(), TBCOLUMN(),
      because even if Clipper doesn't have such public
      symbols, Class(y) has them, and we want to maintain
      compatibility.

  * include/hbextern.ch
    + Added GET, TBROWSE, TBCOLUMN.
This commit is contained in:
Viktor Szakats
2009-02-04 22:14:46 +00:00
parent c414570a23
commit c60db4b7aa
6 changed files with 25 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
harbour/ChangeLog
View File

@@ -8,6 +8,19 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-02-04 23:13 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* source/rtl/tget.prg
* source/rtl/tgetx.prg
* source/rtl/tbcolumn.prg
* source/rtl/tbrowse.prg
* Reset internal name of GET(), TBROWSE(), TBCOLUMN(),
because even if Clipper doesn't have such public
symbols, Class(y) has them, and we want to maintain
compatibility.
* include/hbextern.ch
+ Added GET, TBROWSE, TBCOLUMN.
2009-02-04 23:04 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* contrib/examples/hbsqlit2/tests/hbmk_b32.bat
* contrib/examples/hbsqlit2/tests/hbmk_vc.bat

3
harbour/include/hbextern.ch
View File

@@ -1314,6 +1314,9 @@ EXTERNAL HB_GZCLEARERR
EXTERNAL HBCLASS
EXTERNAL HBOBJECT
EXTERNAL HBSCALAR
EXTERNAL GET
EXTERNAL TBROWSE
EXTERNAL TBCOLUMN
#ifdef HB_REQUEST_SCALAR
EXTERNAL HBARRAY
EXTERNAL HBBLOCK

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

@@ -58,7 +58,7 @@
/* NOTE: In CA-Cl*pper TBCOLUMN class does not inherit from any other classes. */
CREATE CLASS TBCOLUMN FUNCTION HBBColumn
CREATE CLASS TBCOLUMN
EXPORTED:
@@ -215,11 +215,11 @@ METHOD New( cHeading, bBlock ) CLASS TBCOLUMN
RETURN Self
FUNCTION TBColumnNew( cHeading, bBlock )
RETURN HBBColumn():New( cHeading, bBlock )
RETURN TBColumn():New( cHeading, bBlock )
#ifdef HB_COMPAT_XPP
CREATE CLASS xpp_TBColumn INHERIT HBBColumn
CREATE CLASS xpp_TBColumn INHERIT TBColumn
ENDCLASS
#endif

6
harbour/source/rtl/tbrowse.prg
View File

@@ -109,7 +109,7 @@
#define _TBR_COORD( n ) Int( n )
CREATE CLASS TBROWSE FUNCTION HBBrowse
CREATE CLASS TBROWSE
/* The first 18 instance variables are exactly the same as in Clipper
* so also some code which access them directly by array indexes should work
@@ -310,7 +310,7 @@ ENDCLASS
FUNCTION TBrowseNew( nTop, nLeft, nBottom, nRight )
RETURN HBBrowse():new( nTop, nLeft, nBottom, nRight )
RETURN TBrowse():new( nTop, nLeft, nBottom, nRight )
METHOD new( nTop, nLeft, nBottom, nRight ) CLASS TBROWSE
@@ -2759,7 +2759,7 @@ FUNCTION TBMouse( oBrw, nMRow, nMCol )
#ifdef HB_COMPAT_XPP
CREATE CLASS xpp_TBrowse INHERIT HBBrowse
CREATE CLASS xpp_TBrowse INHERIT TBrowse
EXPORTED:

4
harbour/source/rtl/tget.prg
View File

@@ -70,7 +70,7 @@
/* NOTE: In CA-Cl*pper, TGET class does not inherit from any other classes. */
CREATE CLASS GET FUNCTION HBGet
CREATE CLASS GET
PROTECTED:
@@ -1955,4 +1955,4 @@ METHOD New( nRow, nCol, bVarBlock, cVarName, cPicture, cColorSpec ) CLASS GET
RETURN Self
FUNCTION GetNew( nRow, nCol, bVarBlock, cVarName, cPicture, cColor )
RETURN HBGet():New( nRow, nCol, bVarBlock, cVarName, cPicture, cColor )
RETURN Get():New( nRow, nCol, bVarBlock, cVarName, cPicture, cColor )

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

@@ -56,7 +56,7 @@
#ifdef HB_COMPAT_XPP
CREATE CLASS xpp_Get INHERIT HBGet
CREATE CLASS xpp_Get INHERIT Get
EXPORTED: