From 54591b2e04f7af2af39d9b0bc7b0c7b9e8b599bf Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Mon, 20 Aug 2007 02:45:43 +0000
Subject: [PATCH] fix to prev commit

---
 harbour/source/rtl/tget.prg | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 62efb14958..db01d68a1b 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -223,9 +223,7 @@ METHOD New( nRow, nCol, bVarBlock, cVarName, cPicture, cColorSpec ) CLASS Get
    ::nCol      := nCol
    ::bBlock    := bVarBlock
    ::cName     := cVarName
-   if cPicture != NIL
-      ::Picture   := cPicture
-   endif
+   ::Picture   := cPicture
    ::ColorSpec := cColorSpec
    if Set( _SET_DELIMITERS )
       ::cDelimit  := Set( _SET_DELIMCHARS )
@@ -1545,11 +1543,13 @@ METHOD Picture( cPicture ) CLASS Get
    local nFor
    local cNum
 
-   if PCount() == 0 .or. cPicture == NIL
+   if PCount() == 0
       return ::cPicture
    endif
 
-   ::cPicture    := cPicture
+   if cPicture != NIL
+      ::cPicture    := cPicture
+   endif
    ::cPicFunc    := ""
    ::cPicMask    := ""
    ::lPicComplex := .f.
@@ -1674,7 +1674,7 @@ METHOD Picture( cPicture ) CLASS Get
       next
    endif
 
-return cPicture
+return ::cPicture
 
 /* ------------------------------------------------------------------------- */