From 231400f3095f450129c9cfdc6bf76677f21af9b3 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Thu, 22 Jul 2021 03:04:23 -0300
Subject: [PATCH] Properly obeys a click to exit (x button)

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

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 075d8cb96..77bfc3edd 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -6410,6 +6410,8 @@ SUB DebugMode
     noFocusMessage = -1
 
     DO 'main loop
+        IF _EXIT THEN ideexit = 1: GOTO requestQuit
+
         bkpidecy = idecy
         WHILE _MOUSEINPUT: idecy = idecy + _MOUSEWHEEL * 3: WEND