* tkcon.tcl (::tkcon::EvalSocket): pass sock arg. (allaert)

diff --git a/ChangeLog b/ChangeLog
index 910b7d7e746e3179b0b2b943d099a273e3d719ef..aa4865de9011daf05b4fede83cfd8e7d53c508b1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-11-12  Jeff Hobbs  <jeffh@ActiveState.com>
+
+       * tkcon.tcl (::tkcon::EvalSocket): pass sock arg. (allaert)
+
 2004-11-11  Jeff Hobbs  <jeffh@ActiveState.com>
 
        * tkcon.tcl (::tkcon::DeleteTab): allow for exit code to be passed

diff --git a/tkcon.tcl b/tkcon.tcl
index 27324516731d152246fb07ba1e7aceb7f622e11c..ab2881e7eecb12cb8209935fccf39f5c0b15da09 100755 (executable)
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -1089,7 +1089,7 @@ proc ::tkcon::EvalSocket cmd {
     if {$code && [eof $PRIV(app)]} {
        ## Interpreter died or disappeared
        puts "$code eof [eof $PRIV(app)]"
-       EvalSocketClosed
+       EvalSocketClosed $PRIV(app)
     }
     return -code $code $result
 }