From 0f82c6320fe69e83fc0c3c98a99e378d49cfaa51 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Sat, 31 Jul 2021 17:44:58 -0300
Subject: [PATCH] Detects when the debuggee closes (connection lost).

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

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 721913c76..8ca2141cb 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -7428,6 +7428,14 @@ SUB DebugMode
 
     GetCommand:
     GET #client&, , temp$
+    IF _CONNECTED(client&) = 0 THEN
+        clearStatusWindow 0
+        setStatusMessage 1, "Debug session aborted.", 7
+        setStatusMessage 2, "Disconnected.", 2
+        WHILE _MOUSEINPUT: WEND
+        _KEYCLEAR
+        EXIT SUB
+    END IF
     buffer$ = buffer$ + temp$
 
     IF INSTR(buffer$, endc$) THEN
@@ -7448,6 +7456,14 @@ SUB DebugMode
     SendCommand:
     cmd$ = cmd$ + endc$
     PUT #client&, , cmd$
+    IF _CONNECTED(client&) = 0 THEN
+        clearStatusWindow 0
+        setStatusMessage 1, "Debug session aborted.", 7
+        setStatusMessage 2, "Disconnected.", 2
+        WHILE _MOUSEINPUT: WEND
+        _KEYCLEAR
+        EXIT SUB
+    END IF
     cmd$ = ""
     RETURN