mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-16 21:15:15 +00:00
Reorganizes some Debug-related menu items.
This commit is contained in:
parent
45a2d443b3
commit
9a2922fb67
|
@ -217,8 +217,9 @@ DIM SHARED OptionsMenuShowErrorsImmediately AS INTEGER, OptionsMenuIgnoreWarning
|
||||||
DIM SHARED OptionsMenuDisableSyntax AS INTEGER ', OptionsMenuAutoComplete
|
DIM SHARED OptionsMenuDisableSyntax AS INTEGER ', OptionsMenuAutoComplete
|
||||||
DIM SHARED ViewMenuID AS INTEGER, ViewMenuShowLineNumbersSubMenuID AS INTEGER
|
DIM SHARED ViewMenuID AS INTEGER, ViewMenuShowLineNumbersSubMenuID AS INTEGER
|
||||||
DIM SHARED ViewMenuShowSeparatorID AS INTEGER, ViewMenuShowBGID AS INTEGER
|
DIM SHARED ViewMenuShowSeparatorID AS INTEGER, ViewMenuShowBGID AS INTEGER
|
||||||
DIM SHARED ViewMenuCompilerWarnings AS INTEGER, ViewMenuCallStack AS INTEGER
|
DIM SHARED ViewMenuCompilerWarnings AS INTEGER
|
||||||
DIM SHARED RunMenuID AS INTEGER, RunMenuSaveExeWithSource AS INTEGER, brackethighlight AS INTEGER
|
DIM SHARED RunMenuID AS INTEGER, RunMenuSaveExeWithSource AS INTEGER, brackethighlight AS INTEGER
|
||||||
|
DIM SHARED DebugMenuID AS INTEGER, DebugMenuCallStack AS INTEGER
|
||||||
DIM SHARED multihighlight AS INTEGER, keywordHighlight AS INTEGER
|
DIM SHARED multihighlight AS INTEGER, keywordHighlight AS INTEGER
|
||||||
DIM SHARED PresetColorSchemes AS INTEGER, TotalColorSchemes AS INTEGER, ColorSchemes$(0)
|
DIM SHARED PresetColorSchemes AS INTEGER, TotalColorSchemes AS INTEGER, ColorSchemes$(0)
|
||||||
DIM SHARED LastValidColorScheme AS INTEGER
|
DIM SHARED LastValidColorScheme AS INTEGER
|
||||||
|
|
|
@ -274,10 +274,6 @@ FUNCTION ide2 (ignore)
|
||||||
ViewMenuCompilerWarnings = i
|
ViewMenuCompilerWarnings = i
|
||||||
menu$(ViewMenuID, ViewMenuCompilerWarnings) = "Compiler #Warnings... Ctrl+W": i = i + 1
|
menu$(ViewMenuID, ViewMenuCompilerWarnings) = "Compiler #Warnings... Ctrl+W": i = i + 1
|
||||||
menuDesc$(m, i - 1) = "Displays a list of recent code warnings"
|
menuDesc$(m, i - 1) = "Displays a list of recent code warnings"
|
||||||
|
|
||||||
ViewMenuCallStack = i
|
|
||||||
menu$(ViewMenuID, ViewMenuCallStack) = "Call #Stack... F12": i = i + 1
|
|
||||||
menuDesc$(m, i - 1) = "Displays the call stack of the current program's last execution"
|
|
||||||
menusize(m) = i - 1
|
menusize(m) = i - 1
|
||||||
|
|
||||||
m = m + 1: i = 0: SearchMenuID = m
|
m = m + 1: i = 0: SearchMenuID = m
|
||||||
|
@ -336,7 +332,7 @@ FUNCTION ide2 (ignore)
|
||||||
menuDesc$(m, i - 1) = "Compiles current program without running it"
|
menuDesc$(m, i - 1) = "Compiles current program without running it"
|
||||||
menusize(m) = i - 1
|
menusize(m) = i - 1
|
||||||
|
|
||||||
m = m + 1: i = 0
|
m = m + 1: i = 0: DebugMenuID = m
|
||||||
menu$(m, i) = "Debug": i = i + 1
|
menu$(m, i) = "Debug": i = i + 1
|
||||||
menu$(m, i) = "Start #Paused F8": i = i + 1
|
menu$(m, i) = "Start #Paused F8": i = i + 1
|
||||||
menuDesc$(m, i - 1) = "Compiles current program and starts it in pause mode"
|
menuDesc$(m, i - 1) = "Compiles current program and starts it in pause mode"
|
||||||
|
@ -350,6 +346,12 @@ FUNCTION ide2 (ignore)
|
||||||
menu$(m, i) = "#Unskip All Lines Ctrl+F10": i = i + 1
|
menu$(m, i) = "#Unskip All Lines Ctrl+F10": i = i + 1
|
||||||
menuDesc$(m, i - 1) = "Removes all line skip flags"
|
menuDesc$(m, i - 1) = "Removes all line skip flags"
|
||||||
menu$(m, i) = "-": i = i + 1
|
menu$(m, i) = "-": i = i + 1
|
||||||
|
menu$(m, i) = "#Watch List... F4": i = i + 1
|
||||||
|
menuDesc$(m, i - 1) = "Adds variables to watch list"
|
||||||
|
DebugMenuCallStack = i
|
||||||
|
menu$(DebugMenuID, DebugMenuCallStack) = "Call #Stack... F12": i = i + 1
|
||||||
|
menu$(m, i) = "-": i = i + 1
|
||||||
|
menuDesc$(m, i - 1) = "Displays the call stack of the current program's last execution"
|
||||||
menu$(m, i) = "Set Base #TCP/IP Port Number...": i = i + 1
|
menu$(m, i) = "Set Base #TCP/IP Port Number...": i = i + 1
|
||||||
menuDesc$(m, i - 1) = "Sets the initial port number for TCP/IP communication with the debuggee"
|
menuDesc$(m, i - 1) = "Sets the initial port number for TCP/IP communication with the debuggee"
|
||||||
menusize(m) = i - 1
|
menusize(m) = i - 1
|
||||||
|
@ -1644,9 +1646,7 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF KB = KEY_F4 THEN 'variable watch
|
IF KB = KEY_F4 THEN 'variable watch
|
||||||
result = idevariablewatchbox("")
|
GOTO showWatchList
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0
|
|
||||||
GOTO ideloop
|
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF KB = KEY_F5 THEN 'Note: F5 or SHIFT+F5 accepted
|
IF KB = KEY_F5 THEN 'Note: F5 or SHIFT+F5 accepted
|
||||||
|
@ -4384,9 +4384,9 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF callStackLength = 0 THEN
|
IF callStackLength = 0 THEN
|
||||||
menu$(ViewMenuID, ViewMenuCallStack) = "~Call #Stack... F12"
|
menu$(DebugMenuID, DebugMenuCallStack) = "~Call #Stack... F12"
|
||||||
ELSE
|
ELSE
|
||||||
menu$(ViewMenuID, ViewMenuCallStack) = "Call #Stack... F12"
|
menu$(DebugMenuID, DebugMenuCallStack) = "Call #Stack... F12"
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
oldmy = mY: oldmx = mX
|
oldmy = mY: oldmx = mX
|
||||||
|
@ -5736,6 +5736,14 @@ FUNCTION ide2 (ignore)
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
IF menu$(m, s) = "#Watch List... F4" THEN
|
||||||
|
PCOPY 2, 0
|
||||||
|
showWatchList:
|
||||||
|
result = idevariablewatchbox("")
|
||||||
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
|
GOTO ideloop
|
||||||
|
END IF
|
||||||
|
|
||||||
IF menu$(m, s) = "Call #Stack... F12" OR menu$(m, s) = "Call Stack... F12" THEN
|
IF menu$(m, s) = "Call #Stack... F12" OR menu$(m, s) = "Call Stack... F12" THEN
|
||||||
IF IdeDebugMode = 2 THEN
|
IF IdeDebugMode = 2 THEN
|
||||||
IdeDebugMode = 3
|
IdeDebugMode = 3
|
||||||
|
|
Loading…
Reference in a new issue