mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 23:45:13 +00:00
New toggle in Debug menu to "Auto-add $Debug metacommand"
This commit is contained in:
parent
1788a77379
commit
e76041aa3f
|
@ -18,7 +18,7 @@ DIM SHARED WatchListToConsole AS _BYTE
|
||||||
DIM SHARED windowSettingsSection$, colorSettingsSection$, customDictionarySection$
|
DIM SHARED windowSettingsSection$, colorSettingsSection$, customDictionarySection$
|
||||||
DIM SHARED mouseSettingsSection$, generalSettingsSection$, displaySettingsSection$
|
DIM SHARED mouseSettingsSection$, generalSettingsSection$, displaySettingsSection$
|
||||||
DIM SHARED colorSchemesSection$, debugSettingsSection$, iniFolderIndex$, DebugInfoIniWarning$, ConfigFile$
|
DIM SHARED colorSchemesSection$, debugSettingsSection$, iniFolderIndex$, DebugInfoIniWarning$, ConfigFile$
|
||||||
DIM SHARED idebaseTcpPort AS LONG
|
DIM SHARED idebaseTcpPort AS LONG, AutoAddDebugCommand AS _BYTE
|
||||||
|
|
||||||
ConfigFile$ = "internal/config.ini"
|
ConfigFile$ = "internal/config.ini"
|
||||||
iniFolderIndex$ = STR$(tempfolderindex)
|
iniFolderIndex$ = STR$(tempfolderindex)
|
||||||
|
@ -241,6 +241,18 @@ ELSE
|
||||||
WriteConfigSetting debugSettingsSection$, "WatchListToConsole", "False"
|
WriteConfigSetting debugSettingsSection$, "WatchListToConsole", "False"
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
IF ReadConfigSetting(debugSettingsSection$, "AutoAddDebugCommand", value$) THEN
|
||||||
|
IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN
|
||||||
|
AutoAddDebugCommand = -1
|
||||||
|
ELSE
|
||||||
|
AutoAddDebugCommand = 0
|
||||||
|
WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "False"
|
||||||
|
END IF
|
||||||
|
ELSE
|
||||||
|
AutoAddDebugCommand = -1
|
||||||
|
WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "True"
|
||||||
|
END IF
|
||||||
|
|
||||||
'Display settings -------------------------------------------------------------
|
'Display settings -------------------------------------------------------------
|
||||||
IF ReadConfigSetting(displaySettingsSection$, "IDE_SortSUBs", value$) THEN
|
IF ReadConfigSetting(displaySettingsSection$, "IDE_SortSUBs", value$) THEN
|
||||||
IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN
|
IF UCASE$(value$) = "TRUE" OR VAL(value$) = -1 THEN
|
||||||
|
|
|
@ -222,6 +222,7 @@ DIM SHARED ViewMenuShowSeparatorID AS INTEGER, ViewMenuShowBGID AS INTEGER
|
||||||
DIM SHARED ViewMenuCompilerWarnings 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, DebugMenuWatchListToConsole AS INTEGER
|
DIM SHARED DebugMenuID AS INTEGER, DebugMenuCallStack AS INTEGER, DebugMenuWatchListToConsole AS INTEGER
|
||||||
|
DIM SHARED DebugMenuAutoAddCommand 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
|
||||||
|
|
|
@ -357,6 +357,12 @@ FUNCTION ide2 (ignore)
|
||||||
menu$(DebugMenuID, DebugMenuCallStack) = "Call #Stack... F12": i = i + 1
|
menu$(DebugMenuID, DebugMenuCallStack) = "Call #Stack... F12": i = i + 1
|
||||||
menuDesc$(m, i - 1) = "Displays the call stack of the current program's last execution"
|
menuDesc$(m, i - 1) = "Displays the call stack of the current program's last execution"
|
||||||
menu$(m, i) = "-": i = i + 1
|
menu$(m, i) = "-": i = i + 1
|
||||||
|
DebugMenuAutoAddCommand = i
|
||||||
|
menu$(m, i) = "Auto-add $#Debug metacommand": i = i + 1
|
||||||
|
menuDesc$(m, i - 1) = "Toggles whether the IDE will auto-add the $Debug metacommand as required"
|
||||||
|
IF AutoAddDebugCommand THEN
|
||||||
|
menu$(DebugMenuID, DebugMenuAutoAddCommand) = CHR$(7) + menu$(DebugMenuID, DebugMenuAutoAddCommand)
|
||||||
|
END IF
|
||||||
DebugMenuWatchListToConsole = i
|
DebugMenuWatchListToConsole = i
|
||||||
menu$(m, i) = "#Output Watch List to Console": i = i + 1
|
menu$(m, i) = "#Output Watch List to Console": i = i + 1
|
||||||
menuDesc$(m, i - 1) = "Toggles directing the output of the watch list to the console window"
|
menuDesc$(m, i - 1) = "Toggles directing the output of the watch list to the console window"
|
||||||
|
@ -4988,6 +4994,19 @@ FUNCTION ide2 (ignore)
|
||||||
GOTO ideloop
|
GOTO ideloop
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
IF RIGHT$(menu$(m, s), 28) = "Auto-add $#Debug metacommand" THEN
|
||||||
|
PCOPY 2, 0
|
||||||
|
AutoAddDebugCommand = NOT AutoAddDebugCommand
|
||||||
|
IF AutoAddDebugCommand THEN
|
||||||
|
WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "True"
|
||||||
|
menu$(DebugMenuID, DebugMenuAutoAddCommand) = CHR$(7) + "Auto-add $#Debug metacommand"
|
||||||
|
ELSE
|
||||||
|
WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "False"
|
||||||
|
menu$(DebugMenuID, DebugMenuAutoAddCommand) = "Auto-add $#Debug metacommand"
|
||||||
|
END IF
|
||||||
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
|
GOTO ideloop
|
||||||
|
END IF
|
||||||
|
|
||||||
IF MID$(menu$(m, s), 1, 17) = "#Quick Navigation" OR MID$(menu$(m, s), 2, 17) = "#Quick Navigation" THEN
|
IF MID$(menu$(m, s), 1, 17) = "#Quick Navigation" OR MID$(menu$(m, s), 2, 17) = "#Quick Navigation" THEN
|
||||||
PCOPY 2, 0
|
PCOPY 2, 0
|
||||||
|
@ -5703,6 +5722,16 @@ FUNCTION ide2 (ignore)
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
startPausedMenuHandler:
|
startPausedMenuHandler:
|
||||||
IF vWatchOn = 0 THEN
|
IF vWatchOn = 0 THEN
|
||||||
|
IF AutoAddDebugCommand = 0 THEN
|
||||||
|
SCREEN , , 3, 0
|
||||||
|
clearStatusWindow 2
|
||||||
|
COLOR 14, 1
|
||||||
|
x = 2
|
||||||
|
y = idewy - 2
|
||||||
|
printWrapStatus x, y, x, "$DEBUG metacommand is required to start paused."
|
||||||
|
PCOPY 3, 0
|
||||||
|
GOTO ideloop
|
||||||
|
END IF
|
||||||
result = idemessagebox("Start Paused", "Insert $DEBUG metacommand?", "#Yes;#No")
|
result = idemessagebox("Start Paused", "Insert $DEBUG metacommand?", "#Yes;#No")
|
||||||
IF result = 1 THEN
|
IF result = 1 THEN
|
||||||
ideselect = 0
|
ideselect = 0
|
||||||
|
@ -5726,6 +5755,16 @@ FUNCTION ide2 (ignore)
|
||||||
PCOPY 2, 0
|
PCOPY 2, 0
|
||||||
showWatchList:
|
showWatchList:
|
||||||
IF vWatchOn = 0 THEN
|
IF vWatchOn = 0 THEN
|
||||||
|
IF AutoAddDebugCommand = 0 THEN
|
||||||
|
SCREEN , , 3, 0
|
||||||
|
clearStatusWindow 2
|
||||||
|
COLOR 14, 1
|
||||||
|
x = 2
|
||||||
|
y = idewy - 2
|
||||||
|
printWrapStatus x, y, x, "$DEBUG metacommand is required for Watch List functionality."
|
||||||
|
PCOPY 3, 0
|
||||||
|
GOTO ideloop
|
||||||
|
END IF
|
||||||
result = idemessagebox("Watch List", "Insert $DEBUG metacommand?", "#Yes;#No")
|
result = idemessagebox("Watch List", "Insert $DEBUG metacommand?", "#Yes;#No")
|
||||||
IF result = 1 THEN
|
IF result = 1 THEN
|
||||||
ideselect = 0
|
ideselect = 0
|
||||||
|
@ -5807,6 +5846,16 @@ FUNCTION ide2 (ignore)
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
toggleBreakpoint:
|
toggleBreakpoint:
|
||||||
IF vWatchOn = 0 THEN
|
IF vWatchOn = 0 THEN
|
||||||
|
IF AutoAddDebugCommand = 0 THEN
|
||||||
|
SCREEN , , 3, 0
|
||||||
|
clearStatusWindow 2
|
||||||
|
COLOR 14, 1
|
||||||
|
x = 2
|
||||||
|
y = idewy - 2
|
||||||
|
printWrapStatus x, y, x, "$DEBUG metacommand is required to enable breakpoints."
|
||||||
|
PCOPY 3, 0
|
||||||
|
GOTO ideloop
|
||||||
|
END IF
|
||||||
result = idemessagebox("Toggle Breakpoint", "Insert $DEBUG metacommand?", "#Yes;#No")
|
result = idemessagebox("Toggle Breakpoint", "Insert $DEBUG metacommand?", "#Yes;#No")
|
||||||
IF result = 1 THEN
|
IF result = 1 THEN
|
||||||
ideselect = 0
|
ideselect = 0
|
||||||
|
@ -5843,6 +5892,16 @@ FUNCTION ide2 (ignore)
|
||||||
PCOPY 3, 0: SCREEN , , 3, 0
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
toggleSkipLine:
|
toggleSkipLine:
|
||||||
IF vWatchOn = 0 THEN
|
IF vWatchOn = 0 THEN
|
||||||
|
IF AutoAddDebugCommand = 0 THEN
|
||||||
|
SCREEN , , 3, 0
|
||||||
|
clearStatusWindow 2
|
||||||
|
COLOR 14, 1
|
||||||
|
x = 2
|
||||||
|
y = idewy - 2
|
||||||
|
printWrapStatus x, y, x, "$DEBUG metacommand is required to enable line skipping."
|
||||||
|
PCOPY 3, 0
|
||||||
|
GOTO ideloop
|
||||||
|
END IF
|
||||||
result = idemessagebox("Toggle Skip Line", "Insert $DEBUG metacommand?", "#Yes;#No")
|
result = idemessagebox("Toggle Skip Line", "Insert $DEBUG metacommand?", "#Yes;#No")
|
||||||
IF result = 1 THEN
|
IF result = 1 THEN
|
||||||
ideselect = 0
|
ideselect = 0
|
||||||
|
|
Loading…
Reference in a new issue