From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Thu, 13 Dec 2001 00:53:29 +0000 (+0000)
Subject: 	* tkcon.tcl (EvalSocketEvent): changed EvalSocketClosed to only
X-Git-Tag: tkcon-2-4~37
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=59e530082d8deadca435d4cbbe27dce26d38ed2f;p=tkcon

	* tkcon.tcl (EvalSocketEvent): changed EvalSocketClosed to only
	occur after gets, then eof check. (Gerold Jury)
---

diff --git a/ChangeLog b/ChangeLog
index da62ff0..6e1245d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-12  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl (EvalSocketEvent): changed EvalSocketClosed to only
+	occur after gets, then eof check. (Gerold Jury)
+
 2001-11-14  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tkcon.tcl: added catch around file type call
diff --git a/tkcon.tcl b/tkcon.tcl
index dd3ba36..c406f68 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -867,8 +867,10 @@ proc ::tkcon::EvalSocket cmd {
 proc ::tkcon::EvalSocketEvent {} {
     variable PRIV
 
-    if {[eof $PRIV(app)] || ([gets $PRIV(app) line] == -1)} {
-	EvalSocketClosed
+    if {[gets $PRIV(app) line] == -1} {
+	if {[eof $PRIV(app)]} {
+	    EvalSocketClosed
+	}
 	return
     }
     puts $line