QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +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 ViewMenuID AS INTEGER, ViewMenuShowLineNumbersSubMenuID 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 DebugMenuID AS INTEGER, DebugMenuCallStack AS INTEGER
DIM SHARED multihighlight AS INTEGER, keywordHighlight AS INTEGER
DIM SHARED PresetColorSchemes AS INTEGER, TotalColorSchemes AS INTEGER, ColorSchemes$(0)
DIM SHARED LastValidColorScheme AS INTEGER

28
source/ide/ide_methods.bas
View file

@ -274,10 +274,6 @@ FUNCTION ide2 (ignore)
ViewMenuCompilerWarnings = i
menu$(ViewMenuID, ViewMenuCompilerWarnings) = "Compiler #Warnings... Ctrl+W": i = i + 1
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
m = m + 1: i = 0: SearchMenuID = m
@ -336,7 +332,7 @@ FUNCTION ide2 (ignore)
menuDesc$(m, i - 1) = "Compiles current program without running it"
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) = "Start #Paused F8": i = i + 1
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
menuDesc$(m, i - 1) = "Removes all line skip flags"
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
menuDesc$(m, i - 1) = "Sets the initial port number for TCP/IP communication with the debuggee"
menusize(m) = i - 1
@ -1644,9 +1646,7 @@ FUNCTION ide2 (ignore)
END IF
IF KB = KEY_F4 THEN 'variable watch
result = idevariablewatchbox("")
PCOPY 3, 0: SCREEN , , 3, 0
GOTO ideloop
GOTO showWatchList
END IF
IF KB = KEY_F5 THEN 'Note: F5 or SHIFT+F5 accepted
@ -4384,9 +4384,9 @@ FUNCTION ide2 (ignore)
END IF
IF callStackLength = 0 THEN
menu$(ViewMenuID, ViewMenuCallStack) = "~Call #Stack... F12"
menu$(DebugMenuID, DebugMenuCallStack) = "~Call #Stack... F12"
ELSE
menu$(ViewMenuID, ViewMenuCallStack) = "Call #Stack... F12"
menu$(DebugMenuID, DebugMenuCallStack) = "Call #Stack... F12"
END IF
oldmy = mY: oldmx = mX
@ -5736,6 +5736,14 @@ FUNCTION ide2 (ignore)
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 IdeDebugMode = 2 THEN
IdeDebugMode = 3