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

Some new options added

Browse Source
This commit is contained in:
Antonio Linares
2001-02-09 04:33:34 +00:00
parent f2d00a1112
commit 01fb4298bf
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/source/debug/dbgmenu.prg
View File

@@ -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!" )