2002-02-19 17:45 UTC+0100 Ignacio Ortiz <ignacio@fivetech.com>

2002-02-19 16:46:09 +00:00
parent 244fbfcb26
commit ba600ee2d7
1 changed files with 3 additions and 2 deletions
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -453,7 +453,9 @@ METHOD VarPut( xValue, lReFormat ) CLASS Get
         endif
         ::Type     := ValType( xValue )
         ::nDispLen := NIL
-         ::Picture( ::cPicture )
+         if !Empty( ::cPicture )
+            ::Picture( ::cPicture )
+         endif
      endif
   endif

@@ -1229,4 +1231,3 @@ METHOD Block( bBlock ) CLASS Get
   endif

 return ::bBlock
-