From ed0c708a3d60f8196258e498800538a89ff047c8 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Fri, 23 May 2008 14:55:33 +0000 Subject: [PATCH] 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 | 7 +++++++ harbour/contrib/gtwvg/wvtclass.prg | 16 +++++++++++----- 2 files changed, 18 insertions(+), 5 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index aa07e5f077..5d7143349a 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,13 @@ 2008-12-31 13:59 UTC+0100 Foo Bar */ +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. diff --git a/harbour/contrib/gtwvg/wvtclass.prg b/harbour/contrib/gtwvg/wvtclass.prg index b7ee3c5a6f..74a00d9a2b 100644 --- a/harbour/contrib/gtwvg/wvtclass.prg +++ b/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 //-------------------------------------------------------------------// //-------------------------------------------------------------------// //-------------------------------------------------------------------// +