* fixes OnDisconnect with Telnet

* adds "connected" info to telnet example

git-svn-id: trunk@5292 -

fcl/lnet/examples/ltelnet/ltclient.pp

@@ -74,7 +74,8 @@ begin
       if KeyPressed then
         Halt;
     until FCon.Connected; // wait until timeout or we actualy connected
-
+    
+    Writeln('Connected');
     SendStr:='';
     
     while not FQuit do begin // if we connected, do main loop

fcl/lnet/ltelnet.pp

@@ -312,13 +312,9 @@ begin
 end;
 
 procedure TLTelnetClient.OnDs(aSocket: TLSocket);
-const
-  LCM = 'Lost connection';
 begin
   if Assigned(FOnDisconnect) then
-    FOnDisconnect(aSocket)
-  else
-    FOutput.Write(LCM, Length(LCM));
+    FOnDisconnect(aSocket);
 end;
 
 procedure TLTelnetClient.OnRe(aSocket: TLSocket);