From 01fb4298bfe1978488dd86f59c563c075349bca2 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Fri, 9 Feb 2001 04:33:34 +0000 Subject: [PATCH] Some new options added --- harbour/source/debug/dbgmenu.prg | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/harbour/source/debug/dbgmenu.prg b/harbour/source/debug/dbgmenu.prg index 0fc633185a..c85b6eba6a 100644 --- a/harbour/source/debug/dbgmenu.prg +++ b/harbour/source/debug/dbgmenu.prg @@ -48,6 +48,7 @@ function __dbgBuildMenu( oDebugger ) // Builds the debugger pulldown menu local oMenu local oLineNumbers local oCaseSensitive + local oMonoDisplay MENU oMenu MENUITEM " ~File " @@ -83,7 +84,7 @@ function __dbgBuildMenu( oDebugger ) // Builds the debugger pulldown menu MENU MENUITEM " ~Restart" ACTION Alert( "Not implemented yet!" ) MENUITEM " ~Animate" ACTION Alert( "Not implemented yet!" ) - MENUITEM " ~Step F8 " ACTION Alert( "Not implemented yet!" ) + MENUITEM " ~Step F8 " ACTION oDebugger:Step() MENUITEM " ~Trace F10" ACTION Alert( "Not implemented yet!" ) MENUITEM " ~Go F5" ACTION oDebugger:Go() MENUITEM " to ~Cursor F7" ACTION Alert( "Not implemented yet!" ) @@ -120,10 +121,11 @@ function __dbgBuildMenu( oDebugger ) // Builds the debugger pulldown menu MENUITEM " swap on ~Input" ACTION Alert( "Not implemented yet!" ) 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 oDebugger:SelColors() - MENUITEM " ~Tab Width..." ACTION Alert( "Not implemented yet!" ) - MENUITEM " path for ~Files..." ACTION Alert( "Not implemented yet!" ) + MENUITEM oMonoDisplay PROMPT " mono ~Display" ; + ACTION ( oDebugger:MonoDisplay(), oMonoDisplay:Toggle() ) + MENUITEM " ~Colors..." ACTION oDebugger:Colors() + MENUITEM " ~Tab Width..." ACTION oDebugger:TabWidth() + MENUITEM " path for ~Files..." ACTION oDebugger:PathForFiles() SEPARATOR MENUITEM " ~Save Settings..." ACTION Alert( "Not implemented yet!" ) MENUITEM " ~Restore Settings... " ACTION Alert( "Not implemented yet!" )