From 33d5ac24ac64e22dd483719b01d282e250275548 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Sun, 1 Apr 2007 15:02:52 +0000 Subject: [PATCH] 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. --- harbour/ChangeLog | 11 +++++++++++ harbour/source/rtl/tgetlist.prg | 3 +-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 87803bebde..6394af8097 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,17 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +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 diff --git a/harbour/source/rtl/tgetlist.prg b/harbour/source/rtl/tgetlist.prg index f53bd63ab3..b5feeb0c69 100644 --- a/harbour/source/rtl/tgetlist.prg +++ b/harbour/source/rtl/tgetlist.prg @@ -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 )