*** empty log message ***

1999-10-13 16:48:36 +00:00
parent eb58bb337d
commit 26941b8842
1 changed files with 6 additions and 2 deletions
--- a/harbour/source/rtl/browdb.prg
+++ b/harbour/source/rtl/browdb.prg
@@ -37,13 +37,17 @@ function TBrowseDb( nTop, nLeft, nBott, nRight )

   local oTb := TBrowseNew( nTop, nLeft, nBott, nRight )

-   oTb:SkipBlock     := { | n | TBSkip( n ) }
+   oTb:SkipBlock     := { | n | DbSkipper( n ) }
   oTb:GoTopBlock    := { || DbGoTop() }
   oTb:GoBottomBlock := { || DbGoBottom() }

 Return oTb

-static function TbSkip( nRecs )
+function _DbSkipper( nRecs )
+
+return DbSkipper( nRecs )
+
+function DbSkipper( nRecs )

   local nSkipped := 0