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

Add 'don't show again' to 'Add ' dialog

Browse source
This commit is contained in:
Fellippe Heitor 2022-03-10 09:48:57 -03:00
parent 2a48f3c7e0
commit fd5ba476b5
1 changed files with 26 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
source/ide/ide_methods.bas
View file

@ -5774,7 +5774,7 @@ FUNCTION ide2 (ignore)
PCOPY 3, 0 PCOPY 3, 0
GOTO ideloop GOTO ideloop
END IF END IF
result = idemessagebox("Start Paused", "Insert $DEBUG metacommand?", "#Yes;#No") result = idemessagebox("Start Paused", "Insert $DEBUG metacommand?", "#Yes;#No;#Don't show this again")
IF result = 1 THEN IF result = 1 THEN
ideselect = 0 ideselect = 0
ideinsline 1, SCase$("$Debug") ideinsline 1, SCase$("$Debug")
@ -5783,9 +5783,13 @@ FUNCTION ide2 (ignore)
startPaused = -1 startPaused = -1
startPausedPending = -1 startPausedPending = -1
GOTO specialchar GOTO specialchar
ELSE ELSEIF result = 3 THEN
GOTO ideloop result = idemessagebox("Debug", "You can reenable the 'Auto-add $Debug Metacommand' feature\nin the Debug menu.", "#OK")
AutoAddDebugCommand = 0
WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "False"
menu$(DebugMenuID, DebugMenuAutoAddCommand) = "Auto-add $#Debug Metacommand"
END IF END IF
GOTO ideloop
ELSE ELSE
startPausedPending = 0 startPausedPending = 0
startPaused = -1 startPaused = -1
@ -5811,16 +5815,19 @@ FUNCTION ide2 (ignore)
PCOPY 3, 0 PCOPY 3, 0
GOTO ideloop GOTO ideloop
END IF END IF
result = idemessagebox("Watch List", "Insert $DEBUG metacommand?", "#Yes;#No") result = idemessagebox("Watch List", "Insert $DEBUG metacommand?", "#Yes;#No;#Don't show this again")
IF result = 1 THEN IF result = 1 THEN
ideselect = 0 ideselect = 0
ideinsline 1, SCase$("$Debug") ideinsline 1, SCase$("$Debug")
idecy = idecy + 1 idecy = idecy + 1
idechangemade = 1 idechangemade = 1
GOTO ideloop ELSEIF result = 3 THEN
ELSE result = idemessagebox("Debug", "You can reenable the 'Auto-add $Debug Metacommand' feature\nin the Debug menu.", "#OK")
GOTO ideloop AutoAddDebugCommand = 0
WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "False"
menu$(DebugMenuID, DebugMenuAutoAddCommand) = "Auto-add $#Debug Metacommand"
END IF END IF
GOTO ideloop
ELSE ELSE
IF idecompiling = 1 THEN IF idecompiling = 1 THEN
SCREEN , , 3, 0 SCREEN , , 3, 0
@ -5904,13 +5911,18 @@ FUNCTION ide2 (ignore)
PCOPY 3, 0 PCOPY 3, 0
GOTO ideloop GOTO ideloop
END IF END IF
result = idemessagebox("Toggle Breakpoint", "Insert $DEBUG metacommand?", "#Yes;#No") result = idemessagebox("Toggle Breakpoint", "Insert $DEBUG metacommand?", "#Yes;#No;#Don't show this again")
IF result = 1 THEN IF result = 1 THEN
ideselect = 0 ideselect = 0
ideinsline 1, SCase$("$Debug") ideinsline 1, SCase$("$Debug")
idecy = idecy + 1 idecy = idecy + 1
idechangemade = 1 idechangemade = 1
IdeBreakpoints(idecy) = NOT IdeBreakpoints(idecy) IdeBreakpoints(idecy) = NOT IdeBreakpoints(idecy)
ELSEIF result = 3 THEN
result = idemessagebox("Debug", "You can reenable the 'Auto-add $Debug Metacommand' feature\nin the Debug menu.", "#OK")
AutoAddDebugCommand = 0
WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "False"
menu$(DebugMenuID, DebugMenuAutoAddCommand) = "Auto-add $#Debug Metacommand"
END IF END IF
ELSE ELSE
IdeBreakpoints(idecy) = NOT IdeBreakpoints(idecy) IdeBreakpoints(idecy) = NOT IdeBreakpoints(idecy)
@ -5950,13 +5962,18 @@ FUNCTION ide2 (ignore)
PCOPY 3, 0 PCOPY 3, 0
GOTO ideloop GOTO ideloop
END IF END IF
result = idemessagebox("Toggle Skip Line", "Insert $DEBUG metacommand?", "#Yes;#No") result = idemessagebox("Toggle Skip Line", "Insert $DEBUG metacommand?", "#Yes;#No;#Don't show this again")
IF result = 1 THEN IF result = 1 THEN
ideselect = 0 ideselect = 0
ideinsline 1, SCase$("$Debug") ideinsline 1, SCase$("$Debug")
idecy = idecy + 1 idecy = idecy + 1
idechangemade = 1 idechangemade = 1
IdeSkipLines(idecy) = NOT IdeSkipLines(idecy) IdeSkipLines(idecy) = NOT IdeSkipLines(idecy)
ELSEIF result = 3 THEN
result = idemessagebox("Debug", "You can reenable the 'Auto-add $Debug Metacommand' feature\nin the Debug menu.", "#OK")
AutoAddDebugCommand = 0
WriteConfigSetting debugSettingsSection$, "AutoAddDebugCommand", "False"
menu$(DebugMenuID, DebugMenuAutoAddCommand) = "Auto-add $#Debug Metacommand"
END IF END IF
ELSE ELSE
IdeSkipLines(idecy) = NOT IdeSkipLines(idecy) IdeSkipLines(idecy) = NOT IdeSkipLines(idecy)