From 3a6a9fe6a32f7619858cbd673057c818b5074ef0 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Fri, 9 Feb 2001 16:16:04 +0000 Subject: [PATCH] some minor fixes --- harbour/source/debug/debugger.prg | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/harbour/source/debug/debugger.prg b/harbour/source/debug/debugger.prg index 7a6d277e43..b37b87ceea 100644 --- a/harbour/source/debug/debugger.prg +++ b/harbour/source/debug/debugger.prg @@ -324,7 +324,7 @@ METHOD BuildCommandWindow() CLASS TDebugger ::oWndCommand:bLostFocus := { || SetCursor( SC_NONE ) } ::oWndCommand:bKeyPressed := { | nKey | ::CommandWindowProcessKey( nKey ) } ::oWndCommand:bPainted := { || DispOutAt( ::oWndCommand:nBottom - 1,; - ::oWndCommand:nLeft + 1, "> ", ::oWndCommand:cColor ),; + ::oWndCommand:nLeft + 1, "> ", __DbgColors()[ 2 ] ),; oGet:ColorDisp( Replicate( __DbgColors()[ 2 ] + ",", 5 ) ),; hb_ClrArea( ::oWndCommand:nTop + 1, ::oWndCommand:nLeft + 1,; ::oWndCommand:nBottom - 2, ::oWndCommand:nRight - 1,; @@ -481,12 +481,12 @@ METHOD CommandWindowProcessKey( nKey ) CLASS TDebugger DispOutAt( ::oWndCommand:nBottom - 1, ::oWndCommand:nLeft + 1,; Space( ::oWndCommand:nRight - ::oWndCommand:nLeft - 1 ),; - ::oWndCommand:cColor ) + __DbgColors()[ 2 ] ) DispOutAt( ::oWndCommand:nBottom - 1, ::oWndCommand:nLeft + 3, cResult,; - ::oWndCommand:cColor ) + __DbgColors()[ 2 ] ) ::oWndCommand:ScrollUp( 1 ) DispOutAt( ::oWndCommand:nBottom - 1, ::oWndCommand:nLeft + 1, "> ",; - ::oWndCommand:cColor ) + __DbgColors()[ 2 ] ) cCommand := Space( ::oWndCommand:nRight - ::oWndCommand:nLeft - 3 ) ::oGetListCommand:oGet:VarPut( cCommand ) ::oGetListCommand:oGet:Buffer := cCommand