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

2007-04-01 16:56 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* harbour/source/rtl/tgetlist.prg
     ! Fixed bug #1692268. The fix simply removes two strange lines
       of code which tried to modify the internal TGet() var "Type",
       after it read the value contained in the TGet(). Since this would
       be the job of TGet() alone, and Type() is not an assignable
       var in CA-Cl*pper, it very much looks like a workaround
       for something (maybe a shortcoming of an earlier version of
       TGet()). If anyone knows what was to be achieved with that,
       pls shout.
This commit is contained in:
Viktor Szakats
2007-04-01 15:02:52 +00:00
parent 65460d88a1
commit 33d5ac24ac
2 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -8,6 +8,17 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-04-01 16:56 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* harbour/source/rtl/tgetlist.prg
! Fixed bug #1692268. The fix simply removes two strange lines
of code which tried to modify the internal TGet() var "Type",
after it read the value contained in the TGet(). Since this would
be the job of TGet() alone, and Type() is not an assignable
var in CA-Cl*pper, it very much looks like a workaround
for something (maybe a shortcoming of an earlier version of
TGet()). If anyone knows what was to be achieved with that,
pls shout.
2007-04-01 13:47 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* harbour/makefile.bc
* harbour/makefile.vc

3
harbour/source/rtl/tgetlist.prg
View File

@@ -363,8 +363,8 @@ METHOD GetPreValidate() CLASS HBGetList
local xValue
if oGet:PreBlock != NIL
xValue := oGet:VarGet()
oGet:type := ValType( xValue )
lUpdated := ::lUpdated
lWhen := Eval( oGet:PreBlock, oGet )
@@ -1068,7 +1068,6 @@ METHOD GUIPreValidate( oGUI ) CLASS HBGetList
if !( oGet:preBlock == NIL )
xValue := oGet:VarGet()
oGet:type := ValType( xValue )
lUpdated := ::lUpdated
lWhen := eval( oGet:preBlock, oGet )