From: Jeff Hobbs <hobbs@users.sourceforge.net>
Date: Fri, 16 Jun 2006 00:13:12 +0000 (+0000)
Subject: modify CVS location after SF changes
X-Git-Tag: tkcon-2-5~20
X-Git-Url: http://www.privyetmir.co.uk/gitweb?a=commitdiff_plain;h=2e1d71c392721850e39b673a6c72b1e5082febca;p=tkcon

modify CVS location after SF changes
---

diff --git a/ChangeLog b/ChangeLog
index 3490128..871fcf9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2006-06-15  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tkcon.tcl: modify CVS location after SF changes
+
+	* README.txt: correct reference email address
+
 2006-02-28  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tkcon.tcl (tkcon): update 'gets stdin' override (tkcon congets)
diff --git a/tkcon.tcl b/tkcon.tcl
index cb91413..9c747c2 100755
--- a/tkcon.tcl
+++ b/tkcon.tcl
@@ -191,7 +191,7 @@ proc ::tkcon::Init {args} {
 	    tkcon_puts tkcon_gets observe observe_var unalias which what
 	}
 	RCS		{RCS: @(#) $Id$}
-	HEADURL		{http://cvs.sourceforge.net/viewcvs.py/*checkout*/tkcon/tkcon/tkcon.tcl?rev=HEAD}
+	HEADURL		{http://tkcon.cvs.sourceforge.net/*checkout*/tkcon/tkcon/tkcon.tcl}
 
 	docs		"http://tkcon.sourceforge.net/"
 	email		{jeff(a)hobbs(.)org}
@@ -2196,6 +2196,8 @@ proc ::tkcon::AttachNamespace { name } {
     variable PRIV
     variable OPT
 
+    # We could enable 'socket' bound Tcl interps, but we'd have to create
+    # a return listening socket
     if {($OPT(nontcl) && [string match interp $PRIV(apptype)]) \
 	    || [string match socket $PRIV(apptype)] \
 	    || $PRIV(deadapp)} {