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

@@ -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:

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