From 5f3075ec3ebbd84cd650d5d2a9bf130aa66a5ea0 Mon Sep 17 00:00:00 2001
From: Fellippe Heitor <fellippeheitor@gmail.com>
Date: Thu, 15 Jul 2021 20:29:33 -0300
Subject: [PATCH] Allows setting breakpoints while running using the mouse

---
 source/ide/ide_methods.bas | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 12c52700a..740344771 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -6123,6 +6123,39 @@ SUB DebugMode
     noFocusMessage = -1
 
     DO 'main loop
+        WHILE _MOUSEINPUT: WEND
+        mB = _MOUSEBUTTON(1)
+        mB2 = _MOUSEBUTTON(2)
+        mX = _MOUSEX
+        mY = _MOUSEY
+
+        IF mB THEN
+            IF mouseDown = 0 THEN
+                mouseDown = -1
+                mouseDownOnX = mX
+                mouseDownOnY = mY
+            ELSE
+                'drag
+            END IF
+        ELSE
+            IF mouseDown THEN
+                IF mouseDownOnX = mX AND mouseDownOnY = mY THEN
+                    ideselect = 0
+                    idecytemp = mY - 2 + idesy - 1
+                    IF idecytemp =< iden THEN
+                        IdeBreakpoints(idecytemp) = NOT IdeBreakpoints(idecytemp)
+                        IF IdeBreakpoints(idecytemp) THEN cmd$ = "set breakpoint:" ELSE cmd$ = "clear breakpoint:"
+                        cmd$ = cmd$ + MKL$(idecytemp)
+                        GOSUB SendCommand
+                        ideshowtext
+                        PCOPY 3, 0
+                    END IF
+                END IF
+            END IF
+            mouseDown = 0
+        END IF
+
+
         IF _WINDOWHASFOCUS THEN
             IF noFocusMessage THEN
                 clearStatusWindow 1