2008-05-23 08:00 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com)

* harbour/contrib/gtwvg/wvtclass.prg
    * Class TBrowseWVG
      - METHOD ColumnsSep
      + METHOD DoConfigure
        Optimized population of ::aColumnsSep. Thanks Viktor pointing to this direction.

harbour/ChangeLog

@@ -8,6 +8,13 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-05-23 08:00 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com)
+  * harbour/contrib/gtwvg/wvtclass.prg
+    * Class TBrowseWVG
+      - METHOD ColumnsSep
+      + METHOD DoConfigure
+        Optimized population of ::aColumnsSep. Thanks Viktor pointing to this direction.
+
 2008-05-23 10:57 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
    * harbour.spec
      + Added one missing HU translation.

harbour/contrib/gtwvg/wvtclass.prg

@@ -3539,16 +3539,21 @@ METHOD Box( nRow, nCol, n2Row, n2Col, cBoxChars, cColor ) CLASS WvtConsole
 
 CLASS TBrowseWVG FROM TBrowse
 
-   METHOD aColumnsSep()
+   DATA   aColumnsSep               INIT {}
+
+   METHOD DoConfigure( nMode )
 
    ENDCLASS
 
 //-------------------------------------------------------------------//
 
-METHOD aColumnsSep() CLASS TBrowseWVG
-   Local aSep := {}
+METHOD DoConfigure( nMode ) CLASS TBrowseWVG
    Local lFirst, aCol, nColPos
 
+   ::Super:DoConfigure( nMode )
+
+   ::aColumnsSep := {}
+
    lFirst := .T.
    FOR EACH aCol IN ::aColData
       IF aCol[ _TBCI_COLPOS ] != NIL
@@ -3562,13 +3567,14 @@ METHOD aColumnsSep() CLASS TBrowseWVG
                nColPos += Int( aCol[ _TBCI_SEPWIDTH ]/2 )
             ENDIF
 
-            aadd( aSep, nColPos )
+            aadd( ::aColumnsSep, nColPos )
          ENDIF
       ENDIF
    NEXT
 
-   Return aSep
+   Return Self
 
 //-------------------------------------------------------------------//
 //-------------------------------------------------------------------//
 //-------------------------------------------------------------------//
+