From 44191cd8b9a559c98c7dca328186feff20a047a4 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Tue, 6 Feb 2001 16:47:02 +0000 Subject: [PATCH] call to debugger SelColors() option --- harbour/source/debug/dbgmenu.prg | 2 +- harbour/source/debug/dbgtmenu.prg | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/harbour/source/debug/dbgmenu.prg b/harbour/source/debug/dbgmenu.prg index 0554917087..e6f68a2b83 100644 --- a/harbour/source/debug/dbgmenu.prg +++ b/harbour/source/debug/dbgmenu.prg @@ -119,7 +119,7 @@ function __dbgBuildMenu( oDebugger ) // Builds the debugger pulldown menu MENUITEM " code~Block Trace" ACTION Alert( "Not implemented yet!" ) MENUITEM " ~Menu Bar" ACTION Alert( "Not implemented yet!" ) MENUITEM " mono ~Display" ACTION Alert( "Not implemented yet!" ) - MENUITEM " ~Colors..." ACTION Alert( "Not implemented yet!" ) + MENUITEM " ~Colors..." ACTION oDebugger:SelColors() MENUITEM " ~Tab Width..." ACTION Alert( "Not implemented yet!" ) MENUITEM " path for ~Files..." ACTION Alert( "Not implemented yet!" ) SEPARATOR diff --git a/harbour/source/debug/dbgtmenu.prg b/harbour/source/debug/dbgtmenu.prg index c992a027bf..5dd1df66c6 100644 --- a/harbour/source/debug/dbgtmenu.prg +++ b/harbour/source/debug/dbgtmenu.prg @@ -93,10 +93,10 @@ METHOD New() CLASS TDbMenu ::nBottom := 0 ::nRight := 0 ::aItems := {} - ::cClrHilite := "W+/N" - ::cClrHotFocus := "GR+/N" - ::cClrHotKey := "GR+/BG" - ::cClrPopup := "N/BG" + ::cClrPopup := __DbgColors()[ 8 ] + ::cClrHotKey := __DbgColors()[ 10 ] + ::cClrHilite := __DbgColors()[ 11 ] + ::cClrHotFocus := __DbgColors()[ 11 ] ::nOpenPopup := 0 AAdd( ::aMenus, Self )