version updated

2013-05-16 08:45:49 +00:00
parent bfc8e6a9cd
commit d5cda13f6f
4 changed files with 656 additions and 30 deletions
--- a/streamApp/terminal.tcl
+++ b/streamApp/terminal.tcl
@ -40,11 +40,13 @@ proc escape {string} {
 }

 proc sendReply {sock text} {
-    .$sock.t mark set insert end
-    .$sock.t insert end $text
-    .$sock.t see end
-    puts -nonewline $sock $text
-#    puts "sending \"[escape $text]\"\n" 
+    catch {
+        # ignore that socket may already be closed
+        .$sock.t mark set insert end
+        .$sock.t insert end $text
+        .$sock.t see end
+        puts -nonewline $sock $text
+    }
 }

 proc checkNum {n} {