From 2e1d71c392721850e39b673a6c72b1e5082febca Mon Sep 17 00:00:00 2001 From: Jeff Hobbs Date: Fri, 16 Jun 2006 00:13:12 +0000 Subject: [PATCH] modify CVS location after SF changes --- ChangeLog | 6 ++++++ tkcon.tcl | 4 +++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 3490128..871fcf9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2006-06-15 Jeff Hobbs + + * tkcon.tcl: modify CVS location after SF changes + + * README.txt: correct reference email address + 2006-02-28 Jeff Hobbs * 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)} { -- 2.23.0