From 1bf7532168a4a157130a6af1fdec6cc0048b8219 Mon Sep 17 00:00:00 2001 From: Luiz Rafael Culik Date: Wed, 21 Nov 2001 11:05:35 +0000 Subject: [PATCH] See changelog 2001-11-21 09:15 GMT -3 --- harbour/ChangeLog | 5 +++++ harbour/source/debug/dbgtarr.prg | 2 +- harbour/source/debug/debugger.prg | 6 +++--- 3 files changed, 9 insertions(+), 4 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 426ae8e1d9..4c570f113d 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,8 @@ +2001-11-21 09:15 GMT -3 Luiz Rafael Culik + * source/debug/debugger.prg + * sorce/debug/dbgtarr.prg + * Fixed an small bug that was forget to fix on previus upload + 2001-11-21 06:35 GMT -3 Luiz Rafael Culik * source/debug/debugger.prg * Some enhacements, now you can use the Pgup/pgdown keys. diff --git a/harbour/source/debug/dbgtarr.prg b/harbour/source/debug/dbgtarr.prg index a4d57665b3..ea83dfa844 100644 --- a/harbour/source/debug/dbgtarr.prg +++ b/harbour/source/debug/dbgtarr.prg @@ -112,7 +112,7 @@ Local owndsets oBrwSets:SKIPBLOCK := { |nPos| ( nPos:= ArrayBrowseSkip(nPos, oBrwSets), oBrwSets:cargo[ 1 ]:= ; oBrwSets:cargo[ 1 ] + nPos,nPos ) } - ::aWindows[::nCurWindow]:bPainted := { || RefreshVarsS(oBrwSets)} + ::aWindows[::nCurWindow]:bPainted := { || (oBrwSets:forcestable(),RefreshVarsS(oBrwSets))} ::aWindows[::nCurWindow]:bKeyPressed := { | nKey | ::SetsKeyPressed( nKey, oBrwSets, Len( aArray ),; ::aWindows[::nCurWindow],::arrayName ,Len(aArray),aArray)} diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg index 6db8d90c10..dcd90d5369 100644 --- a/harbour/source/debug/debugger.prg +++ b/harbour/source/debug/debugger.prg @@ -508,7 +508,7 @@ METHOD Colors() CLASS TDebugger ocol:width:=50 oBrwColors:autolite:=.f. - oWndColors:bPainted := { || RefreshVarsS(oBrwColors)} + oWndColors:bPainted := { || oBrwColors:ForceStable(),RefreshVarsS(oBrwColors)} oWndColors:bKeyPressed := { | nKey | SetsKeyPressed( nKey, oBrwColors,; Len( aColors ), oWndColors, "Debugger Colors",; @@ -1123,7 +1123,7 @@ METHOD ShowVars() CLASS TDebugger AAdd( ::aWindows, ::oWndVars ) ::oWndVars:bLButtonDown = { | nMRow, nMCol | ::WndVarsLButtonDown( nMRow, nMCol ) } ::oWndVars:bLDblClick = { | nMRow, nMCol | ::EditVar( n ) } - ::oWndVars:bPainted := { || if(Len( ::aVars ) > 0, ( RefreshVarsS(::oBrwVars) ),) } + ::oWndVars:bPainted := { || if(Len( ::aVars ) > 0, ( ::obrwVars:ForceStable(),RefreshVarsS(::oBrwVars) ),) } ::oBrwVars := TBrowseNew( 2, 1, ::oWndVars:nBottom - 1, MaxCol() - iif( ::oWndStack != nil,; ::oWndStack:nWidth(), 0 ) - 1 ) @@ -1549,7 +1549,7 @@ METHOD ViewSets() CLASS TDebugger { || PadR( ValToStr( Set( oBrwSets:cargo[ 1 ] ) ), nWidth - 13 ) } ) ) ocol:defcolor:={1,3} ocol:width:=40 - oWndSets:bPainted := { || RefreshVarsS(oBrwSets)} + oWndSets:bPainted := { || oBrwSets:ForceStable(),RefreshVarsS(oBrwSets)} oWndSets:bKeyPressed := { | nKey | SetsKeyPressed( nKey, oBrwSets, Len( aSets ),; oWndSets, "System Settings",; { || ::EditSet( n, oBrwSets ) } ) }