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

some minor fixes

Browse Source
This commit is contained in:
Antonio Linares
2001-02-12 21:41:51 +00:00
parent 1e378893a6
commit 2f53bfc47b
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -305,7 +305,8 @@ METHOD New() CLASS TDebugger
::oWndCode:bGotFocus := { || ::oGetListCommand:SetFocus(), SetCursor( SC_SPECIAL1 ) }
::oWndCode:bLostFocus := { || SetCursor( SC_NONE ) }
::oWndCode:bPainted = { || ::oBrwText:SetColor( __DbgColors()[ 2 ] + "," + ;
__DbgColors()[ 5 ] + "," + __DbgColors()[ 3 ] ),;
__DbgColors()[ 5 ] + "," + __DbgColors()[ 3 ] + "," + ;
__DbgColors()[ 6 ] ),;
If( ::oBrwText != nil, ::oBrwText:RefreshWindow(), nil ) }
AAdd( ::aWindows, ::oWndCode )
@@ -1174,7 +1175,7 @@ METHOD ShowCode( cModuleName ) CLASS TDebugger
::oBrwText := TBrwText():New( ::oWndCode:nTop + 1, ::oWndCode:nLeft + 1,;
::oWndCode:nBottom - 1, ::oWndCode:nRight - 1, ::cPrgName,;
__DbgColors()[ 2 ] + "," + __DbgColors()[ 5 ] + "," + ;
__DbgColors()[ 3 ] + "," + __DbgColors()[ 4 ] )
__DbgColors()[ 3 ] + "," + __DbgColors()[ 6 ] )
::oWndCode:SetCaption( ::cPrgName )
endif