From a32cc2004b8cbf5da0be2b6e89c85f766b0874f8 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Fri, 25 Jul 2008 18:47:21 +0000
Subject: [PATCH] 2008-07-25 20:46 UTC+0200 Viktor Szakats (harbour.01 syenar
 hu)    * source/rtl/tgetlist.prg      ! TGetList():ReadVar() implemented
 using duplicated code,        instead of creating a dependency to
 hb_GetReadVar() in getsys.prg.

---
 harbour/ChangeLog               |  5 +++++
 harbour/source/rtl/tgetlist.prg | 12 +++++++++++-
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0fac6134aa..a4a91d43e9 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-07-25 20:46 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+   * source/rtl/tgetlist.prg
+     ! TGetList():ReadVar() implemented using duplicated code, 
+       instead of creating a dependency to hb_GetReadVar() in getsys.prg.
+
 2008-07-25 19:19 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/contrib/hbmzip/hbmzip.c
     + added support to set archive comment:
diff --git a/harbour/source/rtl/tgetlist.prg b/harbour/source/rtl/tgetlist.prg
index b5c5d82a0b..dbb7318968 100644
--- a/harbour/source/rtl/tgetlist.prg
+++ b/harbour/source/rtl/tgetlist.prg
@@ -748,7 +748,17 @@ METHOD PostActiveGet() CLASS HBGetList
 
 METHOD GetReadVar() CLASS HBGetList
 
-   RETURN hb_GetReadVar( ::oGet )
+   LOCAL oGet := ::oGet
+   LOCAL cName := Upper( oGet:Name )
+   LOCAL n
+
+   IF oGet:Subscript != NIL
+      FOR n := 1 TO Len( oGet:Subscript )
+         cName += "[" + LTrim( Str( oGet:Subscript[ n ] ) ) + "]"
+      NEXT
+   ENDIF
+
+   RETURN cName
 
 METHOD SetFormat( bFormat ) CLASS HBGetList