From 67467989f0afebc507161289c9bc2313e38159be Mon Sep 17 00:00:00 2001
From: David Arturo Macias Corona <dmacias@mail.udg.mx>
Date: Sat, 17 Jul 2004 09:34:07 +0000
Subject: [PATCH] 2004-07-17 04:14 UTC-0500 David Arturo Macias Corona
 <dmacias@mail.udg.mx>   * source/rtl/tget.prg     + Added DATA CapRow and
 DATA CapCol values

---
 harbour/ChangeLog           | 5 +++++
 harbour/source/rtl/tget.prg | 4 ++++
 2 files changed, 9 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 33503fd67b..efbcad1378 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2004-07-17 04:14 UTC-0500 David Arturo Macias Corona <dmacias@mail.udg.mx>
+  * source/rtl/tget.prg
+    + Added DATA CapRow and DATA CapCol values
+      For Clipper 5.3x compatibility
+
 2004-07-16 13:40 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
   * source/rdd/dbfntx/dbfntx1.c
     ! Bug fixed in soft seek
diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index d33f096f41..c7201b912f 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -102,6 +102,8 @@ CLASS Get
    DATA Message
    DATA Caption
    DATA nLastExitState
+   DATA CapRow
+   DATA CapCol
    #endif
 
    DATA cColorSpec   HIDDEN   // Used only for METHOD ColorSpec
@@ -212,6 +214,8 @@ METHOD New( nRow, nCol, bVarBlock, cVarName, cPicture, cColorSpec ) CLASS Get
    ::cPicture   := cPicture
    #ifdef HB_COMPAT_C53
    ::Caption    := ""
+   ::CapRow     := 0
+   ::CapCol     := 0
    #endif
 return Self