fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

See changelog 2001-11-21 09:15 GMT -3

Browse Source
This commit is contained in:
Luiz Rafael Culik
2001-11-21 11:05:35 +00:00
parent 68c41d708d
commit 1bf7532168
3 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2001-11-21 09:15 GMT -3 Luiz Rafael Culik<culik@sl.conex.net>
* 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<culik@sl.conex.net>
* source/debug/debugger.prg
* Some enhacements, now you can use the Pgup/pgdown keys.

2
harbour/source/debug/dbgtarr.prg
View File

@@ -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)}

6
harbour/source/debug/debugger.prg
View File

@@ -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 ) } ) }