From 1e378893a65d90a5bf6df2df25964feff3944dc7 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Mon, 12 Feb 2001 21:30:45 +0000 Subject: [PATCH] some minor fixes --- harbour/source/debug/debugger.prg | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg index 7ac3db735c..90d6307859 100644 --- a/harbour/source/debug/debugger.prg +++ b/harbour/source/debug/debugger.prg @@ -305,7 +305,7 @@ 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()[ 4 ] ),; + __DbgColors()[ 5 ] + "," + __DbgColors()[ 3 ] ),; If( ::oBrwText != nil, ::oBrwText:RefreshWindow(), nil ) } AAdd( ::aWindows, ::oWndCode ) @@ -1174,7 +1174,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()[ 4 ] + "," + __DbgColors()[ 3 ] ) + __DbgColors()[ 3 ] + "," + __DbgColors()[ 4 ] ) ::oWndCode:SetCaption( ::cPrgName ) endif