* tkcon.tcl (EvalSocketEvent): changed EvalSocketClosed to only

	occur after gets, then eof check. (Gerold Jury)

diff --git a/ChangeLog b/ChangeLog
index da62ff0daeaa67d32e2a3701cbd4490690e8a1dc..6e1245dfa6724c366356d749e14dfd25be18d466 100644 (file)
--- 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 dd3ba3609830a946615aa8b72264c84ecba1b71e..c406f6805c0b15881de78f910c0a0a2a214a2ba3 100755 (executable)
--- 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