From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Fri, 12 Nov 2004 18:06:54 +0000 (+0000)
Subject: 	* tkcon.tcl (::tkcon::EvalSocket): pass sock arg. (allaert)
X-Git-Tag: tkcon-2-5~30
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=9605c402380cd41bea790337bbc4d4e805d020f6;p=tkcon

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

diff --git a/ChangeLog b/ChangeLog
index 910b7d7..aa4865d 100644
--- 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 2732451..ab2881e 100755
--- 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
 }