From adf963b007edc046e65022858b2b1a671e4b1a86 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Tue, 20 Jul 2021 03:02:29 -0300
Subject: [PATCH] Allows toggling "Skip Line" before starting program.

Ctrl+Line number or
Debug->Toggle Skip Line
---
 source/ide/ide_methods.bas | 30 ++++++++++++++++++++++++++----
 1 file changed, 26 insertions(+), 4 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 6d8415eca..0506fcc73 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -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: