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

more options implemented

Browse Source
This commit is contained in:
Antonio Linares
2001-02-12 08:24:12 +00:00
parent 3af6268daf
commit 06ccc91499
1 changed files with 20 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -49,6 +49,7 @@ function __dbgBuildMenu( oDebugger ) // Builds the debugger pulldown menu
local oLineNumbers
local oCaseSensitive
local oMonoDisplay
local oPublic, oPrivate, oStatic, oLocal, oAll, oSort
MENU oMenu
MENUITEM " ~File "
@@ -103,13 +104,26 @@ function __dbgBuildMenu( oDebugger ) // Builds the debugger pulldown menu
MENUITEM " ~Monitor "
MENU
MENUITEM " ~Public" ACTION oDebugger:ShowVars()
MENUITEM " pri~Vate " ACTION oDebugger:ShowVars()
MENUITEM " ~Static" ACTION oDebugger:ShowVars()
MENUITEM " ~Local" ACTION oDebugger:ShowVars()
MENUITEM oPublic PROMPT " ~Public" ;
ACTION ( oDebugger:Public(), oPublic:Toggle() )
MENUITEM oPrivate PROMPT " pri~Vate " ;
ACTION ( oDebugger:Private(), oPrivate:Toggle() )
MENUITEM oStatic PROMPT " ~Static" ;
ACTION ( oDebugger:Static(), oStatic:Toggle() )
MENUITEM oLocal PROMPT " ~Local" ;
ACTION ( oDebugger:Local(), oLocal:Toggle() )
SEPARATOR
MENUITEM " ~All" ACTION Alert( "Not implemented yet!" )
MENUITEM " s~Ort" ACTION Alert( "Not implemented yet!" )
MENUITEM oAll PROMPT " ~All" ;
ACTION ( oDebugger:All(), oAll:Toggle(),;
oPublic:lChecked := oPrivate:lChecked := oStatic:lChecked := ;
oLocal:lChecked := oAll:lChecked )
MENUITEM oSort PROMPT " s~Ort" ;
ACTION ( oDebugger:Sort(), oSort:Toggle() )
ENDMENU
MENUITEM " ~Options "