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

2000-11-02 15:45 UTC+0800 Ron Pinkas <ron@profit-master.com>

Browse Source 
* source/rtl/tget.prg
   * include/hbextern.ch
     + Re-added _GET_() until support of __GET() and __GETA() added to harbour.y
This commit is contained in:
Ron Pinkas
2000-11-02 23:49:19 +00:00
parent c3cde2a777
commit 8608b9ce33
3 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2000-11-02 15:45 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/rtl/tget.prg
* include/hbextern.ch
+ Re-added _GET_() until support of __GET() and __GETA() added to harbour.y
2000-11-02 15:20 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/compiler/harbour.sly
+ Added support for extended parameters to __GET() and __GETA()

1
harbour/include/hbextern.ch
View File

@@ -694,6 +694,7 @@ EXTERNAL __TEXTRESTORE
//symbols from file: rtl\tget.prg
//
EXTERNAL GETNEW
EXTERNAL _GET_
EXTERNAL __GET
EXTERNAL __GETA
//

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

@@ -1111,6 +1111,10 @@ return Get():New( nRow, nCol, bVarBlock, cVarName, cPicture, cColor )
//---------------------------------------------------------------------------//
/* Until support of __GET and __GETA() built into harbour.y */
FUNCTION _GET_( uVar, cVarName, cPicture, bValid, bWhen, bSetGet )
RETURN __GET( uVar, cVarName, cPicture, bValid, bWhen, bSetGet )
FUNCTION __GET( uVar, cVarName, cPicture, bValid, bWhen, bSetGet )
LOCAL oGet := Get():New(,, bSetGet, cVarName, cPicture )