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