From b9b06f6ec5f8973ae299733d2e2fa079cd1e794f Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sat, 19 Apr 2003 10:00:24 +0000
Subject: [PATCH] Class TGet Data Pos behavior modified to make it Clipper
 compatible

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

diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 0f795d8a14..beeaa8ed21 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -194,7 +194,7 @@ METHOD New( nRow, nCol, bVarBlock, cVarName, cPicture, cColorSpec ) CLASS Get
    ::Minus      := .f.
    ::Name       := cVarName
    ::Original   := ::VarGet()
-   ::Pos        := NIL
+   ::Pos        := 0
    ::PostBlock  := NIL
    ::PreBlock   := NIL
    ::Reader     := NIL
@@ -514,7 +514,7 @@ METHOD KillFocus() CLASS Get
 
    ::hasfocus := .f.
    ::buffer   := ::PutMask( )
-   ::pos      := NIL
+   ::pos      := 0
 
    ::Display()
 
@@ -1510,6 +1510,10 @@ METHOD FirstEditable( ) CLASS GET
 
    If ::nMaxLen != NIL
 
+      If ::IsEditable( 0 )
+         return 0
+      Endif
+
       If ::IsEditable( 1 )
          return 1
       Endif
@@ -1570,4 +1574,3 @@ STATIC FUNCTION IsBadDate( cBuffer, cPicFunc )
 
  return .f.
 
-