From 5c47c1eed40f8abfdb48b2f2a25fb1389c3f5598 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Tue, 31 Aug 1999 19:02:32 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/source/rtl/tbrowse.prg | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg
index 04a0845027..de667c0176 100644
--- a/harbour/source/rtl/tbrowse.prg
+++ b/harbour/source/rtl/tbrowse.prg
@@ -98,7 +98,7 @@ CLASS TBrowse
                                   ::aColumns[ nPos ] := oCol, ::Configure( 2 ), oCol
                                   // Insert a column object in a browse
 
-   METHOD Invalidate()     INLINE AFill( ::aRedraw, .f. ), ::Stable := .f. // Forces entire redraw during next stabilization
+   METHOD Invalidate()     // Forces entire redraw during next stabilization
    METHOD RefreshAll()     INLINE ::Invalidate() // Causes all data to be recalculated during the next stabilize
    METHOD RefreshCurrent() INLINE ::aRedraw[ ::RowPos ] := .f., ::Stable := .f. // Causes the current row to be refilled and repainted on next stabilize
 
@@ -211,6 +211,26 @@ METHOD Home() CLASS TBrowse
 
 return Self
 
+METHOD Invalidate() CLASS TBrowse
+
+   local n, lFooters := .f.
+
+   for n = 1 to Len( ::aColumns )
+      if ! Empty( ::aColumns[ n ]:Footing )
+         lFooters = .t.
+         exit
+      endif
+   next
+
+   ::RowCount = ::nBottom - ::nTop + 1 - If( ::lHeaders, 1, 0 ) - ;
+               If( lFooters, 1, 0 ) - If( Empty(::HeadSep), 0, 1 ) - ;
+               If( Empty(::FootSep), 0, 1 )
+
+   AFill( ::aRedraw, .f. )
+   ::Stable := .f.
+
+return nil
+
 METHOD Left() CLASS TBrowse
 
    if ::ColPos > ::leftVisible .or. ( ::ColPos < ::leftVisible .and. ::ColPos > 1 ) ;