2002-01-28 12:36 UTC+0100 Ignacio Ortiz <ignacio@fivetech.com>

2002-01-28 11:36:55 +00:00
parent 058b9a2a35
commit 244ff053a1
1 changed files with 4 additions and 1 deletions
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -439,6 +439,9 @@ METHOD VarPut( xValue ) CLASS Get

   if ::block != nil
      Eval( ::block, xValue )
+      ::Type     := ValType( xValue )
+      ::nDispLen := NIL
+      ::Picture( ::cPicture )
   endif

 return xValue
@@ -1184,4 +1187,4 @@ METHOD Picture( cPicture ) CLASS Get

   endif

-return ::cPicture
+return ::cPicture