From c6af859f9da7c8dcc4268a3b16eecc6cc0742e34 Mon Sep 17 00:00:00 2001
From: zimoch <zimoch>
Date: Fri, 6 Jul 2012 11:19:06 +0000
Subject: [PATCH] no eol translation

---
 streamApp/terminal.tcl | 12 ++----------
 streamApp/test.proto   |  4 ++--
 2 files changed, 4 insertions(+), 12 deletions(-)

diff --git a/streamApp/terminal.tcl b/streamApp/terminal.tcl
index bba4351..0f2568d 100755
--- a/streamApp/terminal.tcl
+++ b/streamApp/terminal.tcl
@@ -18,7 +18,7 @@ proc createTerm {sock} {
 }
 
 proc connect {sock addr port} {
-    fconfigure $sock -blocking 0 -buffering none
+    fconfigure $sock -blocking 0 -buffering none -translation binary
     createTerm $sock
     fileevent $sock readable "receiveHandler $sock"
 }
@@ -136,14 +136,6 @@ proc sendAsync {wait message} {
     after $wait sendAsync $wait [list $message]
 }
 
-proc sendAsyncX {wait} {
-    if {$::counter < 0} return
-    foreach term [array names ::socket] {
-        sendReply $::socket($term) "\u00101\u0004~\u0005~\u00100\u0002|0062|2|1|0|1216|0|0.1087E+0 \u0003\u0012"
-    }
-    after $wait sendAsyncX $wait
-}
-
 if {[info proc tkTextInsert] != ""} {
     set insert tkTextInsert
     set paste tkTextPaste
@@ -196,7 +188,7 @@ for {set ascii 0x61} {$ascii <= 0x7a} {incr ascii} {
     bind Text <Control-[format %c $ascii]> ""
 }
 #remove bindings on symbolic tags
-foreach tag {Clear Paste Copy Cut } {
+foreach tag {Clear Paste Copy Cut} {
     bind Text <<$tag>> ""
 }
 
diff --git a/streamApp/test.proto b/streamApp/test.proto
index 6ffedf0..4e0964f 100644
--- a/streamApp/test.proto
+++ b/streamApp/test.proto
@@ -1,5 +1,5 @@
-terminator = CR LF;
-readtimeout = 1000;
+terminator = LF;
+readtimeout = 10;
 pollperiod = 10;
 replytimeout = 1000;
 command {