From 8608b9ce3374e25a1c6edd5418f08e11e8ebf13b Mon Sep 17 00:00:00 2001 From: Ron Pinkas Date: Thu, 2 Nov 2000 23:49:19 +0000 Subject: [PATCH] 2000-11-02 15:45 UTC+0800 Ron Pinkas * source/rtl/tget.prg * include/hbextern.ch + Re-added _GET_() until support of __GET() and __GETA() added to harbour.y --- harbour/ChangeLog | 5 +++++ harbour/include/hbextern.ch | 1 + harbour/source/rtl/tget.prg | 4 ++++ 3 files changed, 10 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 44cc9f82af..bf8fd7007c 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +2000-11-02 15:45 UTC+0800 Ron Pinkas + * 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 * source/compiler/harbour.sly + Added support for extended parameters to __GET() and __GETA() diff --git a/harbour/include/hbextern.ch b/harbour/include/hbextern.ch index d7ca321605..1a3faf5946 100644 --- a/harbour/include/hbextern.ch +++ b/harbour/include/hbextern.ch @@ -694,6 +694,7 @@ EXTERNAL __TEXTRESTORE //symbols from file: rtl\tget.prg // EXTERNAL GETNEW +EXTERNAL _GET_ EXTERNAL __GET EXTERNAL __GETA // diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg index 530aa204e9..814ed35ad7 100644 --- a/harbour/source/rtl/tget.prg +++ b/harbour/source/rtl/tget.prg @@ -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 )