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

Allows toggling "Skip Line" before starting program.

Browse source 
Ctrl+Line number or
Debug->Toggle Skip Line
This commit is contained in:
FellippeHeitor 2021-07-20 03:02:29 -03:00
parent 5e53786255
commit adf963b007
1 changed files with 26 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
source/ide/ide_methods.bas
View file

@ -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,7 +2961,11 @@ FUNCTION ide2 (ignore)
idecytemp = mY - 2 + idesy - 1
IF idecytemp =< iden THEN
idecy = idecytemp
GOTO toggleBreakpoint
IF _KEYDOWN(100306) OR _KEYDOWN(100305) THEN
GOTO toggleSkipLine
ELSE
GOTO toggleBreakpoint
END IF
END IF
END IF
END IF
@ -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: