*** empty log message ***

2001-02-03 05:28:33 +00:00
parent 9d744abc5f
commit ac4bfc1b2b
1 changed files with 4 additions and 0 deletions
--- 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