diff --git a/mystic/mis_client_telnet.pas b/mystic/mis_client_telnet.pas index b52420f..6d25b58 100644 --- a/mystic/mis_client_telnet.pas +++ b/mystic/mis_client_telnet.pas @@ -121,9 +121,10 @@ Begin // NOTE client class already escapes telnet protocol, no need for that. // // while processGoing do begin - // case waitEvent(Input or output) + // case waitEvent(Input, output or close, wait INFINITY) // input : push input to Client class // output : push output to client class + // close : break; // end NI.Busy := False; @@ -140,4 +141,4 @@ Begin Inherited Destroy; End; -End. \ No newline at end of file +End.