mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 11:17:46 +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
1 changed files with 26 additions and 4 deletions
|
@ -342,9 +342,8 @@ FUNCTION ide2 (ignore)
|
|||
menuDesc$(m, i - 1) = "Sets/clears breakpoint at cursor location"
|
||||
menu$(m, i) = "#Clear All Breakpoints F10": i = i + 1
|
||||
menuDesc$(m, i - 1) = "Removes all breakpoints"
|
||||
'menu$(m, i) = "-": i = i + 1
|
||||
'menu$(m, i) = "#Clear All Breakpoints F10": i = i + 1
|
||||
'menuDesc$(m, i - 1) = "Removes all breakpoints"
|
||||
menu$(m, i) = "Toggle #Skip Line": i = i + 1
|
||||
menuDesc$(m, i - 1) = "Sets/clears flag to skip line"
|
||||
menusize(m) = i - 1
|
||||
|
||||
m = m + 1: i = 0: OptionsMenuID = m
|
||||
|
@ -2962,10 +2961,14 @@ FUNCTION ide2 (ignore)
|
|||
idecytemp = mY - 2 + idesy - 1
|
||||
IF idecytemp =< iden THEN
|
||||
idecy = idecytemp
|
||||
IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN
|
||||
GOTO toggleSkipLine
|
||||
ELSE
|
||||
GOTO toggleBreakpoint
|
||||
END IF
|
||||
END IF
|
||||
END IF
|
||||
END IF
|
||||
|
||||
DoneWholeWord:
|
||||
|
||||
|
@ -5658,6 +5661,25 @@ FUNCTION ide2 (ignore)
|
|||
GOTO ideloop
|
||||
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
|
||||
PCOPY 2, 0
|
||||
quickexit:
|
||||
|
|
Loading…
Reference in a new issue