Tk Library Source Code

Artifact 0b1b5852a60bf2757cc7c5ad2f9ff1a0a103dadb:

Attachment "ftp.tcl.patch" to ticket [1709566fff] added by hofkensg 2007-04-29 19:13:45.

---

--- ftp.tcl	2007-04-29 14:08:19.468750000 +0200
+++ ftp2.tcl	2007-04-29 14:09:48.328125000 +0200
@@ -121,7 +121,7 @@
     upvar ::ftp::ftp$s ftp
 
     after cancel $ftp(Wait)
-    set ftp(state.control) 1
+    set ftp(state.control) 0
 
     DisplayMsg "" "Timeout of control connection after $ftp(Timeout) sec.!" error
     Command $ftp(Command) timeout