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

2000-12-04 19:40 UTC+0800 Ron Pinkas <ron@profit-master.com>

Browse Source 
* source/rtl/tget.prg
     ! Corrected 2 bugs when New Method called without any parameters.
This commit is contained in:
Ron Pinkas
2000-12-05 03:44:14 +00:00
parent 118781b4a6
commit b48cfdc92e
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2000-12-04 19:40 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/rtl/tget.prg
! Corrected 2 bugs when New Method called without any parameters.
2000-12-04 17:54 GMT+1 Maurilio Longo <maurilio.longo@libero.it>
* source/rtl/tbrowse.prg
* I've rewritten from scratch stabilization and movement keys handling.
@@ -12,7 +16,7 @@
2000-12-03 15:05 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/compiler/harbour.sly
! Optimized __GETA() support, and changed it to be implementated identical to Clipper.
/* Clipper passed a bGet Block which refrences the Base Array Variable and not the Variable itself.
/* Clipper passes a bGet Block which refrences the Base Array Variable and not the Variable itself.
Clipper passes NIL instead of bGet block if the Base Array is MACROVAR or MACROTEXT.
Clipper does not optimize "&Macro" to Macro, but Harbour does! */

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

@@ -143,7 +143,7 @@ METHOD New( nRow, nCol, bVarBlock, cVarName, cPicture, cColorSpec ) CLASS Get
DEFAULT nRow TO Row()
DEFAULT nCol TO Col()
DEFAULT cVarName TO ""
DEFAULT bVarBlock TO MemvarBlock( cVarName )
DEFAULT bVarBlock TO IIF( ValType( cVarName ) == 'C', MemvarBlock( cVarName ), NIL )
DEFAULT cPicture TO ""
DEFAULT cColorSpec TO hb_ColorIndex( SetColor(), CLR_UNSELECTED ) + "," + hb_ColorIndex( SetColor(), CLR_ENHANCED )
@@ -421,7 +421,7 @@ return xValue
METHOD VarGet() CLASS Get
return Eval( ::block )
return IIF( ValType( ::Block ) == 'B', Eval( ::Block ), NIL )
//---------------------------------------------------------------------------//