mirror of
https://github.com/QB64Official/qb64.git
synced 2024-07-07 20:20:25 +00:00
Detects when the debuggee closes (connection lost).
This commit is contained in:
parent
4c141a3514
commit
0f82c6320f
|
@ -7428,6 +7428,14 @@ SUB DebugMode
|
||||||
|
|
||||||
GetCommand:
|
GetCommand:
|
||||||
GET #client&, , temp$
|
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$
|
buffer$ = buffer$ + temp$
|
||||||
|
|
||||||
IF INSTR(buffer$, endc$) THEN
|
IF INSTR(buffer$, endc$) THEN
|
||||||
|
@ -7448,6 +7456,14 @@ SUB DebugMode
|
||||||
SendCommand:
|
SendCommand:
|
||||||
cmd$ = cmd$ + endc$
|
cmd$ = cmd$ + endc$
|
||||||
PUT #client&, , cmd$
|
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$ = ""
|
cmd$ = ""
|
||||||
RETURN
|
RETURN
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue