QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 10:30:36 +00:00
Code Issues Releases Wiki Activity

Reorganizes some Debug-related menu items.

Browse source
This commit is contained in:
Fellippe Heitor 2021-07-29 01:46:34 -03:00
parent 45a2d443b3
commit 9a2922fb67
2 changed files with 20 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
source/ide/ide_global.bas
View file

@ -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

28
source/ide/ide_methods.bas
View file

@ -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