mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 09:04:43 +00:00
Detects when the debuggee closes (connection lost).
This commit is contained in:
parent
4c141a3514
commit
0f82c6320f
1 changed files with 16 additions and 0 deletions
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in a new issue