(EvalCmd): Changed EvalSocket functionality to have the \'s

	substituted before sending data, to allow for special chars to be
	added to the string.

diff --git a/ChangeLog b/ChangeLog
index f2fcb15629dcfde65d6bc0d5c936bf02eba8bda1..053f9153cdf80eac8489bb05229a24e2411a629c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -7,6 +7,9 @@
        they accept only one arg as the command string to be evaluated.
        Prior behavior left some ambiguity as to what was eval'ed where.
        EvalOther, EvalSlave may need some sanitation as well.
+       (EvalCmd): Changed EvalSocket functionality to have the \'s
+       substituted before sending data, to allow for special chars to be
+       added to the string.
 
 2000-09-19  Jeff Hobbs  <hobbs@scriptics.com>
 

diff --git a/tkcon.tcl b/tkcon.tcl
index b4bdf6846fc1723b795698d0c2c97e91dec88f68..dedd0149e524823583c35dbc65bf5821b7e9d474 100755 (executable)
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -771,6 +771,9 @@ proc ::tkcon::EvalSocket cmd {
            Prompt "\n\"$PRIV(app)\" alive\n" [CmdGet $PRIV(console)]
        }
     }
+    # Sockets get \'s interpreted, so that users can
+    # send things like \n\r or explicit hex values
+    set cmd [subst -novariables -nocommands $cmd]
     #puts [list $PRIV(app) $cmd]
     set code [catch {puts $PRIV(app) $cmd ; flush $PRIV(app)} result]
     if {$code && [eof $PRIV(app)]} {