From ff7b575b72168154fbb8a5de523f0d7c7d061f60 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 4 Aug 1999 13:02:49 +0000
Subject: [PATCH] Improved Display and SetFocus methods

---
 harbour/source/rtl/tget.prg | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 6fddc5a43a..64caf1d9bc 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -69,7 +69,9 @@ CLASS TGet
    METHOD Input(cChar)
    METHOD PutMask(cBuffer, lEdit)
 
-   METHOD Display() INLINE DevPos( ::Row, ::Col + If( ::Pos != nil, ::Pos, 0 ) ), DevOut( ::buffer ), Self
+   METHOD Display() INLINE DevPos( ::Row, ::Col ), DevOut( ::buffer ),;
+                           DevPos( ::Row, ::Col + If( ::Pos != nil, ::Pos - 1, 0 ) ),;
+                           Self
 
 //   METHOD ColorDisp(cColorSpec)  VIRTUAL
 //   METHOD hitTest(nRow, nCol)    VIRTUAL
@@ -232,6 +234,8 @@ METHOD SetFocus() CLASS tGet
       ::BadDate := .f.
    endif
 
+   DevPos( ::Row, ::Col + ::Pos - 1 )
+
 return Self
 
 //---------------------------------------------------------------------------//
@@ -365,6 +369,8 @@ METHOD overstrike(cChar) CLASS tGet
       ::BadDate := .f.
    endif
 
+   ::Display()
+
 return Self
 
 //---------------------------------------------------------------------------//