From 26941b8842f79110fa33de34f7c6d70e25424917 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Wed, 13 Oct 1999 16:48:36 +0000 Subject: [PATCH] *** empty log message *** --- harbour/source/rtl/browdb.prg | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/harbour/source/rtl/browdb.prg b/harbour/source/rtl/browdb.prg index 790e1a6b76..2b345299b9 100644 --- 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