From 21ef15f4f662092058ba4e93541cf482c353cb5d Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 4 Aug 1999 13:19:17 +0000
Subject: [PATCH] improved color support

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

diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 64caf1d9bc..b5694f54b3 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -69,9 +69,7 @@ CLASS TGet
    METHOD Input(cChar)
    METHOD PutMask(cBuffer, lEdit)
 
-   METHOD Display() INLINE DevPos( ::Row, ::Col ), DevOut( ::buffer ),;
-                           DevPos( ::Row, ::Col + If( ::Pos != nil, ::Pos - 1, 0 ) ),;
-                           Self
+   METHOD Display()
 
 //   METHOD ColorDisp(cColorSpec)  VIRTUAL
 //   METHOD hitTest(nRow, nCol)    VIRTUAL
@@ -186,6 +184,17 @@ return Self
 
 //---------------------------------------------------------------------------//
 
+METHOD Display() CLASS TGet
+
+   local cClrInverse := StrToken( SetColor(), 2, "," )
+
+   @ ::Row, ::Col SAY ::buffer COLOR cClrInverse
+   SetPos( ::Row, ::Col + If( ::Pos != nil, ::Pos - 1, 0 ) )
+
+return Self
+
+//---------------------------------------------------------------------------//
+
 METHOD Reset() CLASS tGet
 
    if ::hasfocus