From 6a69db12af6091f1a7637db86f09256bd2ce225b Mon Sep 17 00:00:00 2001
From: Walter Negro <anegro@overnet.com.ar>
Date: Wed, 20 Mar 2002 14:27:21 +0000
Subject: [PATCH]   * source/rtl/tget.prg     * Fix bug with PICTURE "@S"     *
 Fix some bugs.     * Formatting indentation.

---
 harbour/source/rtl/tget.prg | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 9ecc847f73..0f329d7cfe 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -59,6 +59,7 @@
 #include "getexit.ch"
 #include "inkey.ch"
 #include "button.ch"
+
 /* TODO: :posInBuffer( <nRow>, <nCol> ) --> nPos
          Determines a position within the edit buffer based on screen
          coordinates.
@@ -424,7 +425,7 @@ METHOD SetFocus() CLASS Get
    endif
 
    IF lWasNil .and. ::buffer != NIL
-      IF ::nDispLen == 0
+      IF ::nDispLen == NIL
          ::nDispLen := ::nMaxLen
       ENDIF
 
@@ -1201,13 +1202,18 @@ METHOD Picture( cPicture ) CLASS Get
 
    if cPicture != NIL
 
+      ::nDispLen := NIL
+
       ::cPicture := cPicture
       ::ParsePict( cPicture )
 
       ::buffer  := ::PutMask( )
       ::nMaxLen := IIF( ::buffer == NIL, 0, Len( ::buffer ) )
 
-      ::nDispLen := ::nMaxLen
+      if ::nDispLen == NIL
+         ::nDispLen := ::nMaxLen
+      endif
+
    endif
 
 return ::cPicture
@@ -1239,10 +1245,10 @@ return ::bBlock
 
 METHOD HitTest(mrow,mcol) CLASS GET
         if ::row != mrow
-		return HTNOWHERE
+           return HTNOWHERE
         endif
         if mcol >= ::col .and. mrow <= ::col+::ndispLen
-		return HTCLIENT
+           return HTCLIENT
         endif
 return HTNOWHERE