mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-16 21:15:15 +00:00
Allows toggling "Skip Line" before starting program.
Ctrl+Line number or Debug->Toggle Skip Line
This commit is contained in:
parent
5e53786255
commit
adf963b007
|
@ -342,9 +342,8 @@ FUNCTION ide2 (ignore)
|
||||||
menuDesc$(m, i - 1) = "Sets/clears breakpoint at cursor location"
|
menuDesc$(m, i - 1) = "Sets/clears breakpoint at cursor location"
|
||||||
menu$(m, i) = "#Clear All Breakpoints F10": i = i + 1
|
menu$(m, i) = "#Clear All Breakpoints F10": i = i + 1
|
||||||
menuDesc$(m, i - 1) = "Removes all breakpoints"
|
menuDesc$(m, i - 1) = "Removes all breakpoints"
|
||||||
'menu$(m, i) = "-": i = i + 1
|
menu$(m, i) = "Toggle #Skip Line": i = i + 1
|
||||||
'menu$(m, i) = "#Clear All Breakpoints F10": i = i + 1
|
menuDesc$(m, i - 1) = "Sets/clears flag to skip line"
|
||||||
'menuDesc$(m, i - 1) = "Removes all breakpoints"
|
|
||||||
menusize(m) = i - 1
|
menusize(m) = i - 1
|
||||||
|
|
||||||
m = m + 1: i = 0: OptionsMenuID = m
|
m = m + 1: i = 0: OptionsMenuID = m
|
||||||
|
@ -2962,10 +2961,14 @@ FUNCTION ide2 (ignore)
|
||||||
idecytemp = mY - 2 + idesy - 1
|
idecytemp = mY - 2 + idesy - 1
|
||||||
IF idecytemp =< iden THEN
|
IF idecytemp =< iden THEN
|
||||||
idecy = idecytemp
|
idecy = idecytemp
|
||||||
|
IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN
|
||||||
|
GOTO toggleSkipLine
|
||||||
|
ELSE
|
||||||
GOTO toggleBreakpoint
|
GOTO toggleBreakpoint
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
END IF
|
||||||
|
|
||||||
DoneWholeWord:
|
DoneWholeWord:
|
||||||
|
|
||||||
|
@ -5658,6 +5661,25 @@ FUNCTION ide2 (ignore)
|
||||||
GOTO ideloop
|
GOTO ideloop
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
IF menu$(m, s) = "Toggle #Skip Line" THEN
|
||||||
|
PCOPY 3, 0: SCREEN , , 3, 0
|
||||||
|
toggleSkipLine:
|
||||||
|
IF vWatchOn = 0 THEN
|
||||||
|
result = idemessagebox("Toggle Breakpoint", "Insert $DEBUG metacommand?", "#Yes;#No")
|
||||||
|
IF result = 1 THEN
|
||||||
|
ideselect = 0
|
||||||
|
ideinsline 1, SCase$("$Debug")
|
||||||
|
idecy = idecy + 1
|
||||||
|
idechangemade = 1
|
||||||
|
IdeSkipLines(idecy) = NOT IdeSkipLines(idecy)
|
||||||
|
END IF
|
||||||
|
ELSE
|
||||||
|
IdeSkipLines(idecy) = NOT IdeSkipLines(idecy)
|
||||||
|
END IF
|
||||||
|
IF IdeSkipLines(idecy) THEN IdeBreakpoints(idecy) = 0
|
||||||
|
GOTO ideloop
|
||||||
|
END IF
|
||||||
|
|
||||||
IF menu$(m, s) = "E#xit" THEN
|
IF menu$(m, s) = "E#xit" THEN
|
||||||
PCOPY 2, 0
|
PCOPY 2, 0
|
||||||
quickexit:
|
quickexit:
|
||||||
|
|
Loading…
Reference in a new issue