From ac4bfc1b2b457409946a81d6ff201c087356da67 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Sat, 3 Feb 2001 05:28:33 +0000 Subject: [PATCH] *** empty log message *** --- harbour/source/debug/dbgtobj.prg | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/harbour/source/debug/dbgtobj.prg b/harbour/source/debug/dbgtobj.prg index 0083a7e705..7a7eeec542 100644 --- a/harbour/source/debug/dbgtobj.prg +++ b/harbour/source/debug/dbgtobj.prg @@ -174,10 +174,14 @@ method SetsKeyPressed( nKey, oBrwSets, nSets, oWnd ,cName,LenArr,aArray) class t case nKey == K_PGUP oBrwSets:PageUp() + oBrwSets:Cargo = ::ArrayIndex + oBrwSets:RefreshCurrent() oBrwSets:ForceStable() case nKey == K_PGDN oBrwSets:PageDown() + oBrwSets:Cargo = ::ArrayIndex + oBrwSets:RefreshCurrent() oBrwSets:ForceStable() Case nKey ==13