update TEA 3.13

author: William Joye <wjoye@cfa.harvard.edu> 2019-01-08 20:15:33 (GMT)
committer: William Joye <wjoye@cfa.harvard.edu> 2019-01-08 20:15:33 (GMT)
commit: 38d941c01b73c1d0611976e4cb9d361592ff30bd (patch)
tree: 18dc8ae526baafc21c4200c29979434b64898fca /tkcon
parent: 4750a6186365f1457eea083102108b8c2a4d5936 (diff)
download: blt-38d941c01b73c1d0611976e4cb9d361592ff30bd.zip
blt-38d941c01b73c1d0611976e4cb9d361592ff30bd.tar.gz
blt-38d941c01b73c1d0611976e4cb9d361592ff30bd.tar.bz2
43 files changed, 0 insertions, 27476 deletions
diff --git a/tkcon/ChangeLog b/tkcon/ChangeLog
deleted file mode 100644
index 5931e4d..0000000
--- a/tkcon/ChangeLog
+++ /dev/null
@@ -1,607 +0,0 @@
-2016-09-14  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: Use -underline clearly to disambiguate from new 8.6.6
-	option -underlinefg [Bug #54] (bachmann)
-
-2015-10-20  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (edit): prevent file edit from undoing loading of file
-	[Bug #52] (budyak)
-
-2014-09-09  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::tkcon::SaveHistory): save history at each command
-	to prevent loss during abnormal termination. [bachmann]
-
-2014-07-09  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (idebug): allow multi-char patterns as debug id [Lama]
-
-2013-01-22  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (tkcon show): catch deiconify as it will throw an
-	error if tkcon is embedded.
-
-2012-12-27  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (edit): add support for ::tkcon::OPT(tabspace) to
-	adjust tab spacing in edit window (default: 8). [Bug #7]
-
-	* tkcon.tcl (::tkcon::Bindings): minimal patch for 8.6b3+ event
-	compatibility. Larger patch to come that addresses shift towards
-	virtual events in core widgets. [Bug #48] (gollwitzer)
-
-	* docs/{dump.man,tkcon.1.man,tkconc.5.man}: make dtplite happy for
-	the docs [Bug #47]
-
-	* tkcon.tcl (::tkcon::Init): update to use latest /viewvc/tkcon
-	url to retrieve head version of tkcon.
-
-	* tkcon.tcl (::tkcon::InitUI): catch deiconify to prevent error
-	when embedding. [Bug #44]
-
-	* tkcon.tcl (::tkcon::ExpandMethodname): improved expansion for
-	xotcl methods.  Also enhance expansion to allow break/continue
-	signals to differentiate "I'm not responsible" results from "I
-	don't have any results". (neumann)
-
-	* tkcon.tcl (::tkcon::InitInterp): correct sending tkcon commands
-	to user created interps [Bug #42] (kuhn)
-
-2012-03-06  Jeff Hobbs  <jeffh@>
-
-	* tkcon.tcl (idebug): better line handling to not use list
-	functions. [Bug 111462] (goth)
-	(tkcon): pass any init args to 'tkcon show'
-
-2011-10-28  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* pkgIndex.tcl: update to v2.7
-	* tkcon.tcl:    Improve UI to work on OS X.  Adjust some dialogs,
-	use Command- instead of Control- bindings on OS X.  Handle right
-	click properly.
-
-	* docs/license.terms: removed outdated restricted rights section.
-
-2010-01-24  Pat Thoyts  <patthoyts@users.sourceforge.net>
-
-	* icons/*:                Added an SVG icon and .desktop file suitable
-	* tkcon-console.desktop:  for use installing tkcon into the desktop
-	* install-desktop-menu.sh: menus on a unix desktop. Also an install
-	* tkcon.tcl:              script to show how it is done. And for
-	use with 8.6 on X11 - if we can locate the icon, use it as the
-	tkcon iconphoto so it shows up associated with the running app.
-
-2010-01-23  Pat Thoyts  <patthoyts@users.sourceforge.net>
-
-	* tkcon.tcl: Make use of the extended window manager hints from
-	tip 359 on unix for all the dialog windows.
-
-2009-04-24  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: override 8.5 [chan puts|gets]. [Bug 1876707]
-
-	* tkcon.tcl: update pre-8.4 private text binding refs
-
-	* tkcon.tcl: clean up cmd global var used [Bug 2441583]
-
-	* tkcon.tcl (::tkcon::Retrieve): support http code redirect for
-	downloading latest version. [Bug 1755500]
-
-	* README.txt, docs/limits.html, docs/nontcl.html: bump to 2.6
-	* pkgIndex.tcl, tkcon.tcl: Use Tcl 8.4 code style.
-
-2009-02-26  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	**** TKCON 2.5 TAGGED FOR RELEASE ****
-
-	* index.html, docs/*.html: update links and references
-
-2009-02-25  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* docs/tkcon.html, docs/tkcon.n.man: add tkcon resultfilter docs.
-
-2008-02-07  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::tkcon::Bindings): prevent Expand virtual events
-	from triggering follow-on events (most important for <Tab>).
-	(::tkcon::Retrieve): remove extraneous http::geturl call.
-	
-2007-06-22  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::tkcon::EvalCmd): add OPT(resultfilter) and 'tkcon
-	resultfilter ?cmd?' to allow optional result filter command.
-	Command will be passed result code and data and must return what
-	tkcon will return to the user.  Command is run in attached slave.
-	Ensure that initial files are sources at level #0.
-	Convert args after (--|-argv|-args) into slave arguments and set
-	them as the main $::argv/$::argc for propagation.
-
-2007-06-21  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* docs/tkcon.1.man, docs/tkcon.n.man, docs/tkconrc.5.man (new): 
-	* docs/dump.n.man, docs/observe.n.man, docs/idebug.n.man (new): 
-	* index.html, docs/demopic.gif (removed), docs/demopic.png (new):
-	* docs/plugin.html, docs/start.html, docs/tkcon.html:
-	Updated docs and added doctools equivalents courtesy Sergei Golovan
-	* docs/style.css: updated stylesheet
-	
-2007-04-04  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	*** BUMPED TO VERSION 2.5 ***
-
-	* tkcon.tcl: ensure option overrides only effect tkcon and
-	subwidgets.
-	(edit): Add -wrap option to 'edit' command.
-	(::tkcon::AtSource): adjust argv0 existence check
-
-2006-09-05  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::tkcon::NewTab, ::tkcon::GetSlave): ensure that new
-	tabs in other toplevel tkcon windows are built in the correct
-	slave hierarchy.
-
-	* pkgIndex.tcl: sample pkgIndex.tcl that allows using tkcon as a
-	package.
-
-	* tkcon.tcl (::tkcon::InitSlave): adjust to make the first file
-	passed in to be argv0 in the slave
-
-2006-08-25  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (tkcon): default wm protocol to hide tkcon when used
-	in embedded context.
-
-2006-08-23  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: remove use of -exact in package require Tk
-
-2006-06-29  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: updated to handle ttk scrollbars as well as other UI
-	cleanup.
-
-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)
-	to support usage at script load time. (decoster)
-
-2006-01-25  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (MenuConfigure): Fix ActiveTcl Help link when pointing
-	to a file with space in path. [Bug 1408425]
-	(::tkcon::Save, ::tkcon::Load): in VFS paths, use the X11 dialogs
-	that support viewing in VFS dirs.
-
-2005-09-12  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::tkcon::AtSource): do not require argv to be defined
-	(edit): enable text -undo in editor
-	(::tkcon::InitUI): shrink aqua resize control space alloted
-
-2005-07-14  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: add ::tkcon::OPT(maxlinelen) (default 0 == unlimited)
-	and 'tkcon linelength ?value?' to optionally limit long result
-	lines.  True result is still captured in $_ (and 'puts $_' works).
-
-2005-05-25  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (InitMenus): add ActiveTcl Help menu item, if AT Help
-	is found.
-
-2005-04-06  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (ExpandXotcl): allow for xotcl method name expansion,
-	if you change ::tkcon::OPT(expandorder) to include Xotcl before
-	Procname
-
-2005-02-21  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::send::send): propagate -displayof to winfo interps
-	call. [Bug 1124369] (mbec)
-
-2004-11-17  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::tkcon::ExpandVariable): correct array keyname
-	expansion. [Bug 1004508] (bold)
-
-2004-11-12  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::tkcon::EvalSocket): pass sock arg. (allaert)
-
-2004-11-11  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::tkcon::DeleteTab): allow for exit code to be passed
-	when exit is aliased to DeleteTab. [Bug 1064462]
-	(::tkcon::Expect): graphicsSet isn't valid yet
-
-2004-10-10  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::tkcon::Highlight): use ctext for the 'edit' dialog
-	if available
-
-2004-07-26  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	**** TKCON 2.4 TAGGED FOR RELEASE ****
-
-	* index.html, docs/*.html: remove email links, update 2.4 info
-	* docs/plugin.html: update plugin page embed code
-
-2004-06-24  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (DeleteTab, Destroy): improve the 'exit' handling so
-	that 'exit' in the first created tab doesn't do a full exit.
-	'exit' in the last tab of the first created console still exits
-	tkcon, fixing that requires a rearch of the console
-	creation/management.
-	(InitTab): Have the <Configure> binding only fire for the root
-	window, not for each tab.
-	(GotoTab): Keep tabs around - just raise/lower instead of grid
-	remove/add.  break on Next/Prev Tab binding to get focus right.
-	(Prompt): return if console w doesn't exist
-
-2004-06-10  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: add [X] tab delete button and Console -> Delete Tab
-	menu item. [Bug 970785]
-
-2004-05-12  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (observe): allow observe of 'proc'
-
-2004-03-20  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::tkcon::EvalSocketEvent): correctly handle socket
-	events after attachment changes
-
-2004-03-01  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: correct 'exit' in extra tabs.
-	make tkconfixed font Courier -12 (was Courier 10), use it on unix.
-	Add extra space for OS X/Aqua in statusbar (for resize handle).
-	Only use -overrelief in 8.4
-
-2004-02-12  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::tkcon::InitUI): check existence of tcl_platform(os)
-	as it doesn't exist in the Tcl plugin.
-	Show Attach info in tab text, maintain namespace attachment
-	between console switches.
-	(::tkcon::InterpEval, Interps): beware safe interps with Tk
-
-2004-02-05  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: brought code back to 8.0 compatability.
-	Use $_ as last cached result var (was ${}).
-	Ensure hoterrors garbage collection occurs across all tabs.
-
-2004-01-29  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: first whack at tabbed consoles
-
-2004-01-28  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: don't use menu tearoffs
-	remove recognizable email addresses from source
-	enabled more send variants (comm, dde, winsend) [bug 649257] (thoyts)
-	change Packages menu (that would be too large with many packages)
-	to a Manage Packages dialog.
-	tightened up Create Socket dialog, added <Escape> dismiss binding.
-	Moved source time initialization into ::tkcon::AtSource to guard
-	against leftover vars and just better encapsulate it.
-	(::tkcon::Retrieve): correct retrieve URL and add intelligence to
-	sense whether what we retrieved is correct before overwriting file.
-
-2003-11-18  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::tkcon::InitSlave): remove tk_library from the
-	seeded auto_path.  Do not add OPT(library) to auto_path if it is "".
-
-2003-11-04  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::tkcon::EvalSocketClosed): use tk_messageBox instead
-	of tk_dialog
-
-2003-10-06  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (dir): use %9ld instead of %9d to support large files
-
-2003-04-08  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (::tkcon::InitUI): WinCE code to resize the window to
-	fit on the small screen
-
-2003-03-31  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (tkcon::Retrieve): correct the check for tkcon version
-	when retrieving from http.
-
-2003-02-20  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (EvalCmd): set $:: (aka ${}) var to last command result.
-	(EvalOther): use tk_messageBox instead of tk_dialog
-	(Init): allow 'edit' to be overridden using OPT(edit)
-
-2003-01-13  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: add tk appname alias in WWW plugin case.
-
-2002-10-08  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (tcl_unknown): allow ::namespace (:'s) to be
-	recognized. (koloska)
-	(MainInit): add option for overriding exit command.
-	(InitUI): add option to control the wm protocol for WM_DELETE_WINDOW.
-
-2002-10-01  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (InterpEval): correctly handle no args case.
-	(New): autoload tbcload when it exists.
-
-2002-06-22  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: call Init with eval to break out argv into args.
-
-2002-06-04  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (Init): convert env(home) from 'C:' to 'C:/' if necessary.
-
-2002-06-03  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: fixed Retrieve to use the proxy info (Thoyts).
-	Added code so that tkcon.tcl can be sourced in and used like a
-	quasi-package.  Once sourced, you can do a 'package require tkcon'
-	(there is no pkgIndex.tcl for it), and the first 'tkcon show' will
-	initialize anything that is needed.
-	(observe): corrected variables tracing to not allow duplicates.
-	(dump): improved check for empty named arrays as well as locally
-	aliased vars in var dumps.
-	Use the 'fixed' font on unix by default.
-
-2002-02-22  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (AddSlaveHistory): changed history to not add the
-	command if it is the same as the previous command (it will still
-	be evaluated).  (soderstrom)
-	Added panedwindow and labelframe as recognized Tk commands.
-
-2002-01-24  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	**** TKCON 2.3 RELEASE ****
-
-	* tkcon.tcl: bumped to v2.3
-
-2002-01-23  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* docs/procs.html:
-	* tkcon.tcl (what): changed to differentiate between 'array' and
-	'scalar' instead of just returning 'variable'.
-	(which): called what in uplevel to get scope right.
-
-2002-01-22  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (ExpandPathname): use a safer regsub to first unescape
-	the str, then to protect it in the glob.
-	(dir): Use -directory arg in 8.3+ for better results.
-
-	* docs/idebug.html: added note about ? help at debug prompt.
-
-	* tkcon.tcl (dir): prevented possible 'divide by zero' error.
-	[Bug #496584]
-	(Expand*): fixed ExpandPathname to better handle spaced pathnames.
-	[Bug #497079]
-
-2001-12-14  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: 'tkcon show' causes loss of focus on Windows, so an
-	extra focus to the console was added.
-
-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
-
-2001-10-14  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (Init): corrected loading of rcfile when it was in a
-	path including spaces. (siltberg)
-	(About): clarified CVS info in about box.
-
-	* docs/start.html: correct old refs to TKCON var.
-
-2001-09-28  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (ExpandPathname): recognize NT as a case *in*sensitive
-	file system for pathname expansion.
-
-2001-08-31  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (InitSlave): propagate auto_path from master to slave.
-
-2001-08-24  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (NewSocket, NewDisplay): when nothing is specified,
-	just return.
-	(Display): fixed connecting to interps on other displays.
-
-2001-08-22  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* docs/bindings.html: noted ^r/^s change. 
-
-	* tkcon.tcl (Event): changed event ^r/^s searching to search for
-	any matching substring, and blink the substring.
-	Added statusbar, default off (not much in status yet).
-
-2001-08-20  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (EvalNamespace): fixed to work when attached to a
-	foreign interpreter. [Bug #453431]
-	Added fix that allows access to Tk privates in 8.4.  Still needs
-	a long-term fix. [Bug #450865] (porter)
-
-2001-08-03  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (EvalCmd): protected against non-existent
-	tkPriv(mouseMoved) variable
-
-2001-07-05  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (RetrieveFilter, RetrieveAuthentication): added
-	support for retrieving latest tkcon via a proxy. (Thoyts)
-
-2001-07-04  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (tkcon): made tkcon console return whatever result it
-	received.  Fixed Bug #438281.
-
-2001-06-20  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	TKCON 2.2 RELEASE
-
-	* README.txt:
-	* index.html:
-	* docs/index.html: updated for 2.2 release
-
-	* tkcon.tcl (InitUI): moved wm protocol inside check to not run
-	under plugin.
-	(::tkcon::Retrieve): added a new method to allow tkcon to retrieve
-	the latest version of itself.
-
-2001-06-19  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl (dir): added fallback in generic dir command to not
-	require being run in tkcon.
-	(Init): Changed around how all options are initialized to allow
-	for tkcon embedders to set their own defaults.  Added a usehistory
-	PRIV key that tells us whether to load/save history files.  Added
-	showOnStartup PRIV key to control whether tkcon should deiconify
-	itself on startup.  Changed setting root to .tkcon to ensure that
-	root was just . before.
-
-2001-06-18  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: (InitUI) added WM_DELETE_WINDOW hook to exit to
-	correctly deconstruct slave consoles.
-	(tkcon congets/getc) added tkcon show to ensure that tkcon would
-	be displayed when input is expected.
-	(GetSelection) new command to handle getting selection, this
-	supports the new UTF8_STRING type.
-	(InitMenus) added version check around Attach to Socket menu, as
-	8.3 is need for the file channels call.
-
-2001-05-28  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* docs/start.html: added note about ::tkcon::OPT(gets) var.
-	* docs/tkcon.html: improved docs for tkcon *get* methods.
-	* tkcon.tcl: reinstituted override of gets by default to use the
-	tkcon console based gets.
-
-	* tkcon.tcl (dump): corrected outputting local vars with dump.
-	Added RCS info to PRIV array and About box.
-	(tkcon congets) corrected congets to set the limit and insert
-	properly to return data without needing to call the prompt.
-	(tkcon set) corrected to return [array get] string for arrays,
-	and scalar value for vars.
-	Placed exact level value to all calls to uplevel and upvar.
-
-2001-05-17  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tkcon.tcl: make check for actual tkcon root existence to allow
-	for setting the var ($::tkcon::PRIV(root)) in controlling apps to
-	better control the root window.
-
-2001-05-04  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	TKCON 2.1 RELEASE
-
-	* docs/style.css: new file for html files to use.
-	* README.txt:
-	* index.html:
-	* doc/*: updated for 2.1 release.
-
-	* tkcon.tcl: allowed 'tkcon font ...' and 'tkcon buffer ...' to
-	work before the main console have been created.
-	Changed "TkCon" -> "tkcon", updated for new release.
-
-2001-03-28  Jeff Hobbs  <jeffh@activestate.com>
-
-	* tkcon.tcl (::tkcon::Init): added safe interp check around 'cd'
-	call for Macs
-
-2000-10-30  Jeff Hobbs  <hobbs@ajubasolutions.com>
-
-	* tkcon.tcl (dir): fixed bug where permissions wouldn't print
-	correctly if user had no permissions. (kuchler)
-
-2000-10-18  Jeff Hobbs  <hobbs@ajubasolutions.com>
-
-	* tkcon.tcl (::tkcon::NamespacesList): corrected to not use window
-	starting with an uppercase letter (error). (reins)
-
-2000-09-27  Jeff Hobbs  <hobbs@scriptics.com>
-
-	* tkcon.tcl (::tkcon::About): added 'variable COLOR' decl (Zaers).
-
-2000-09-20  Jeff Hobbs  <hobbs@scriptics.com>
-
-	* tkcon.tcl (InitMenus): restricted the Attach Socket
-	functionality to Tcl 8.3+ due to use of [file channels].
-	(InitUI): fixed Configure binding to use correct namespace for OPT
-	(EvalSocket, EvalSend, EvalAttached): cleaned up to require that
-	they accept only one arg as the command string to be evaluated.
-	Prior behavior left some ambiguity as to what was eval'ed where.
-	EvalOther, EvalSlave may need some sanitation as well.
-	(EvalCmd): Changed EvalSocket functionality to have the \'s
-	substituted before sending data, to allow for special chars to be
-	added to the string.
-
-2000-09-19  Jeff Hobbs  <hobbs@scriptics.com>
-
-	* tkcon.tcl (::tkcon::InitUI): corrected plugin handling, as 'wm
-	withdraw' worked, but 'wm deiconify' was disallowed.
-
-	* docs/plugin.html: updated link to plugin source
-	* docs/changes.txt: noted that changes.txt is no longer updated in
-	favor of this ChangeLog
-
-	* index.html: updated page with sourceforge links
-	* index.html: added toplevel html index doc
-
-	* tkcon.tcl: updated v2.0 to v2.1 alpha version
-	All tkcon procedures have been namespaced, except for the ones
-	that are visible to the user.  TkCon has added the ability to
-	attach to other displays or a socket.
-
-	* tkcon.tcl: updated v1.6 to v2.0 version, tagged tkcon-2-0
-	This is the first version to require 8.0+ to run, although it
-	will still connect to older interps.
-
-	* tkcon.tcl: updated v1.5 to v1.6 version, tagged tkcon-1-6
-	* tkcon.tcl: updated v1.4 to v1.5 version, tagged tkcon-1-5
-	* tkcon.tcl: updated v1.3 to v1.4 version, tagged tkcon-1-4
-	* tkcon.tcl: updated v1.2 to v1.3 version, tagged tkcon-1-3
-	* tkcon.tcl: updated v1.1 to v1.2 version, tagged tkcon-1-2
-	* tkcon.tcl: updated v1.03 to v1.1 version, tagged tkcon-1-1
-	* tkcon.tcl: updated v1.02 to v1.03 version, tagged tkcon-1-03
-	* tkcon.tcl: updated v0.71 to v1.02 version, tagged tkcon-1-02
-	* tkcon.tcl: updated v0.69 to v0.71 version, tagged tkcon-0-71
-	* tkcon.tcl: updated v0.68 to v0.69 version, tagged tkcon-0-69
-	* tkcon.tcl: updated v0.67 to v0.68 version, tagged tkcon-0-68
-	* tkcon.tcl: updated v0.66 to v0.67 version, tagged tkcon-0-67
-	* tkcon.tcl: updated v0.65 to v0.66 version, tagged tkcon-0-66
-	* tkcon.tcl: updated v0.64 to v0.65 version, tagged tkcon-0-65
-	* tkcon.tcl: updated v0.63 to v0.64 version, tagged tkcon-0-64
-	* tkcon.tcl: updated v0.52 to v0.63 version, tagged tkcon-0-63
-
-	* ChangeLog: added a ChangeLog
diff --git a/tkcon/Makefile.in b/tkcon/Makefile.in
deleted file mode 100644
index 3749010..0000000
--- a/tkcon/Makefile.in
+++ /dev/null
@@ -1,458 +0,0 @@
-# Makefile.in --
-#
-#	This file is a Makefile for Sample TEA Extension.  If it has the name
-#	"Makefile.in" then it is a template for a Makefile;  to generate the
-#	actual Makefile, run "./configure", which is a configuration script
-#	generated by the "autoconf" program (constructs like "@foo@" will get
-#	replaced in the actual Makefile.
-#
-# Copyright (c) 1999 Scriptics Corporation.
-# Copyright (c) 2002-2005 ActiveState Corporation.
-#
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-
-#========================================================================
-# Add additional lines to handle any additional AC_SUBST cases that
-# have been added in a customized configure script.
-#========================================================================
-
-#SAMPLE_NEW_VAR	= @SAMPLE_NEW_VAR@
-
-#========================================================================
-# Nothing of the variables below this line should need to be changed.
-# Please check the TARGETS section below to make sure the make targets
-# are correct.
-#========================================================================
-
-#========================================================================
-# The names of the source files is defined in the configure script.
-# The object files are used for linking into the final library.
-# This will be used when a dist target is added to the Makefile.
-# It is not important to specify the directory, as long as it is the
-# $(srcdir) or in the generic, win or unix subdirectory.
-#========================================================================
-
-PKG_SOURCES	= @PKG_SOURCES@
-PKG_OBJECTS	= @PKG_OBJECTS@
-
-PKG_STUB_SOURCES = @PKG_STUB_SOURCES@
-PKG_STUB_OBJECTS = @PKG_STUB_OBJECTS@
-
-#========================================================================
-# PKG_TCL_SOURCES identifies Tcl runtime files that are associated with
-# this package that need to be installed, if any.
-#========================================================================
-
-PKG_TCL_SOURCES = @PKG_TCL_SOURCES@
-
-#========================================================================
-# This is a list of public header files to be installed, if any.
-#========================================================================
-
-PKG_HEADERS	= @PKG_HEADERS@
-
-#========================================================================
-# "PKG_LIB_FILE" refers to the library (dynamic or static as per
-# configuration options) composed of the named objects.
-#========================================================================
-
-PKG_LIB_FILE	= @PKG_LIB_FILE@
-PKG_STUB_LIB_FILE = @PKG_STUB_LIB_FILE@
-
-lib_BINARIES	= $(PKG_LIB_FILE)
-BINARIES	= $(lib_BINARIES)
-
-SHELL		= @SHELL@
-
-srcdir		= @srcdir@
-prefix		= @prefix@
-exec_prefix	= @exec_prefix@
-
-bindir		= @bindir@
-libdir		= @libdir@
-includedir	= @includedir@
-datarootdir	= @datarootdir@
-datadir		= @datadir@
-mandir		= @mandir@
-
-DESTDIR		=
-
-PKG_DIR		= $(PACKAGE_NAME)$(PACKAGE_VERSION)
-pkgdatadir	= $(datadir)/$(PKG_DIR)
-pkglibdir	= $(libdir)/$(PKG_DIR)
-pkgincludedir	= $(includedir)/$(PKG_DIR)
-
-top_builddir	= @abs_top_builddir@
-
-INSTALL_OPTIONS	=
-INSTALL		= @INSTALL@ $(INSTALL_OPTIONS)
-INSTALL_DATA_DIR = ${INSTALL} -d -m 755
-INSTALL_DATA	= @INSTALL_DATA@
-INSTALL_PROGRAM	= @INSTALL_PROGRAM@
-INSTALL_SCRIPT	= @INSTALL_SCRIPT@
-INSTALL_LIBRARY	= ${INSTALL_DATA}
-
-PACKAGE_NAME	= @PACKAGE_NAME@
-PACKAGE_VERSION	= @PACKAGE_VERSION@
-CC		= @CC@
-CFLAGS_DEFAULT	= @CFLAGS_DEFAULT@
-CFLAGS_WARNING	= @CFLAGS_WARNING@
-EXEEXT		= @EXEEXT@
-LDFLAGS_DEFAULT	= @LDFLAGS_DEFAULT@
-MAKE_LIB	= @MAKE_LIB@
-MAKE_SHARED_LIB	= @MAKE_SHARED_LIB@
-MAKE_STATIC_LIB	= @MAKE_STATIC_LIB@
-MAKE_STUB_LIB	= @MAKE_STUB_LIB@
-OBJEXT		= @OBJEXT@
-RANLIB		= @RANLIB@
-RANLIB_STUB	= @RANLIB_STUB@
-SHLIB_CFLAGS	= @SHLIB_CFLAGS@
-SHLIB_LD	= @SHLIB_LD@
-SHLIB_LD_LIBS	= @SHLIB_LD_LIBS@
-STLIB_LD	= @STLIB_LD@
-#TCL_DEFS	= @TCL_DEFS@
-TCL_BIN_DIR	= @TCL_BIN_DIR@
-TCL_SRC_DIR	= @TCL_SRC_DIR@
-#TK_BIN_DIR	= @TK_BIN_DIR@
-#TK_SRC_DIR	= @TK_SRC_DIR@
-
-# Not used, but retained for reference of what libs Tcl required
-#TCL_LIBS	= @TCL_LIBS@
-
-#========================================================================
-# TCLLIBPATH seeds the auto_path in Tcl's init.tcl so we can test our
-# package without installing.  The other environment variables allow us
-# to test against an uninstalled Tcl.  Add special env vars that you
-# require for testing here (like TCLX_LIBRARY).
-#========================================================================
-
-EXTRA_PATH	= $(top_builddir):$(TCL_BIN_DIR)
-#EXTRA_PATH	= $(top_builddir):$(TCL_BIN_DIR):$(TK_BIN_DIR)
-TCLLIBPATH	= $(top_builddir)
-TCLSH_ENV	= TCL_LIBRARY=`@CYGPATH@ $(TCL_SRC_DIR)/library`
-PKG_ENV		= @LD_LIBRARY_PATH_VAR@="$(EXTRA_PATH):$(@LD_LIBRARY_PATH_VAR@)" \
-		  PATH="$(EXTRA_PATH):$(PATH)" \
-		  TCLLIBPATH="$(TCLLIBPATH)"
-
-TCLSH_PROG	= @TCLSH_PROG@
-TCLSH		= $(TCLSH_ENV) $(PKG_ENV) $(TCLSH_PROG)
-
-#WISH_ENV	= TK_LIBRARY=`@CYGPATH@ $(TK_SRC_DIR)/library`
-#WISH_PROG	= @WISH_PROG@
-#WISH		= $(TCLSH_ENV) $(WISH_ENV) $(PKG_ENV) $(WISH_PROG)
-
-SHARED_BUILD	= @SHARED_BUILD@
-
-INCLUDES	= @PKG_INCLUDES@ @TCL_INCLUDES@
-#INCLUDES	= @PKG_INCLUDES@ @TCL_INCLUDES@ @TK_INCLUDES@ @TK_XINCLUDES@
-
-PKG_CFLAGS	= @PKG_CFLAGS@
-
-# TCL_DEFS is not strictly need here, but if you remove it, then you
-# must make sure that configure.ac checks for the necessary components
-# that your library may use.  TCL_DEFS can actually be a problem if
-# you do not compile with a similar machine setup as the Tcl core was
-# compiled with.
-#DEFS		= $(TCL_DEFS) @DEFS@ $(PKG_CFLAGS)
-DEFS		= @DEFS@ $(PKG_CFLAGS)
-
-# Move pkgIndex.tcl to 'BINARIES' var if it is generated in the Makefile
-CONFIG_CLEAN_FILES = Makefile pkgIndex.tcl
-CLEANFILES	= @CLEANFILES@
-
-CPPFLAGS	= @CPPFLAGS@
-LIBS		= @PKG_LIBS@ @LIBS@
-AR		= @AR@
-CFLAGS		= @CFLAGS@
-COMPILE		= $(CC) $(DEFS) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) \
-			  $(CFLAGS_DEFAULT) $(CFLAGS_WARNING) $(SHLIB_CFLAGS) $(CFLAGS)
-
-GDB		= gdb
-VALGRIND	= valgrind
-VALGRINDARGS	= --tool=memcheck --num-callers=8 --leak-resolution=high \
-		  --leak-check=yes --show-reachable=yes -v
-
-.SUFFIXES: .c .$(OBJEXT)
-
-#========================================================================
-# Start of user-definable TARGETS section
-#========================================================================
-
-#========================================================================
-# TEA TARGETS.  Please note that the "libraries:" target refers to platform
-# independent files, and the "binaries:" target includes executable programs and
-# platform-dependent libraries.  Modify these targets so that they install
-# the various pieces of your package.  The make and install rules
-# for the BINARIES that you specified above have already been done.
-#========================================================================
-
-all: binaries libraries doc
-
-#========================================================================
-# The binaries target builds executable programs, Windows .dll's, unix
-# shared/static libraries, and any other platform-dependent files.
-# The list of targets to build for "binaries:" is specified at the top
-# of the Makefile, in the "BINARIES" variable.
-#========================================================================
-
-binaries: $(BINARIES)
-
-libraries:
-
-#========================================================================
-# Your doc target should differentiate from doc builds (by the developer)
-# and doc installs (see install-doc), which just install the docs on the
-# end user machine when building from source.
-#========================================================================
-
-doc:
-	@echo "If you have documentation to create, place the commands to"
-	@echo "build the docs in the 'doc:' target.  For example:"
-	@echo "        xml2nroff sample.xml > sample.n"
-	@echo "        xml2html sample.xml > sample.html"
-
-install: all install-binaries install-libraries #install-doc
-
-install-binaries: binaries install-lib-binaries install-bin-binaries
-
-#========================================================================
-# This rule installs platform-independent files, such as header files.
-# The list=...; for p in $$list handles the empty list case x-platform.
-#========================================================================
-
-install-libraries: libraries
-	@$(INSTALL_DATA_DIR) $(DESTDIR)$(includedir)
-	@echo "Installing header files in $(DESTDIR)$(includedir)"
-	@list='$(PKG_HEADERS)'; for i in $$list; do \
-	    echo "Installing $(srcdir)/$$i" ; \
-	    $(INSTALL_DATA) $(srcdir)/$$i $(DESTDIR)$(includedir) ; \
-	done;
-
-#========================================================================
-# Install documentation.  Unix manpages should go in the $(mandir)
-# directory.
-#========================================================================
-
-install-doc: doc
-	@$(INSTALL_DATA_DIR) $(DESTDIR)$(mandir)/mann
-	@echo "Installing documentation in $(DESTDIR)$(mandir)"
-	@list='$(srcdir)/doc/*.n'; for i in $$list; do \
-	    echo "Installing $$i"; \
-	    $(INSTALL_DATA) $$i $(DESTDIR)$(mandir)/mann ; \
-	done
-
-test: binaries libraries
-	$(TCLSH) `@CYGPATH@ $(srcdir)/tests/all.tcl` $(TESTFLAGS) \
-	    -load "package ifneeded $(PACKAGE_NAME) $(PACKAGE_VERSION) \
-		[list load `@CYGPATH@ $(PKG_LIB_FILE)` $(PACKAGE_NAME)]"
-
-shell: binaries libraries
-	@$(TCLSH) $(SCRIPT)
-
-gdb:
-	$(TCLSH_ENV) $(PKG_ENV) $(GDB) $(TCLSH_PROG) $(SCRIPT)
-
-gdb-test: binaries libraries 
-	$(TCLSH_ENV) $(PKG_ENV) $(GDB) \
-	    --args $(TCLSH_PROG) `@CYGPATH@ $(srcdir)/tests/all.tcl` \
-	    $(TESTFLAGS) -singleproc 1 \
-	    -load "package ifneeded $(PACKAGE_NAME) $(PACKAGE_VERSION) \
-		[list load `@CYGPATH@ $(PKG_LIB_FILE)` $(PACKAGE_NAME)]"
-
-valgrind: binaries libraries
-	$(TCLSH_ENV) $(PKG_ENV) $(VALGRIND) $(VALGRINDARGS) $(TCLSH_PROG) \
-	    `@CYGPATH@ $(srcdir)/tests/all.tcl` $(TESTFLAGS)
-
-valgrindshell: binaries libraries
-	$(TCLSH_ENV) $(PKG_ENV) $(VALGRIND) $(VALGRINDARGS) $(TCLSH_PROG) $(SCRIPT)
-
-depend:
-
-#========================================================================
-# $(PKG_LIB_FILE) should be listed as part of the BINARIES variable
-# mentioned above.  That will ensure that this target is built when you
-# run "make binaries".
-#
-# The $(PKG_OBJECTS) objects are created and linked into the final
-# library.  In most cases these object files will correspond to the
-# source files above.
-#========================================================================
-
-$(PKG_LIB_FILE): $(PKG_OBJECTS)
-	-rm -f $(PKG_LIB_FILE)
-	${MAKE_LIB}
-	$(RANLIB) $(PKG_LIB_FILE)
-
-$(PKG_STUB_LIB_FILE): $(PKG_STUB_OBJECTS)
-	-rm -f $(PKG_STUB_LIB_FILE)
-	${MAKE_STUB_LIB}
-	$(RANLIB_STUB) $(PKG_STUB_LIB_FILE)
-
-#========================================================================
-# We need to enumerate the list of .c to .o lines here.
-#
-# In the following lines, $(srcdir) refers to the toplevel directory
-# containing your extension.  If your sources are in a subdirectory,
-# you will have to modify the paths to reflect this:
-#
-# sample.$(OBJEXT): $(srcdir)/generic/sample.c
-# 	$(COMPILE) -c `@CYGPATH@ $(srcdir)/generic/sample.c` -o $@
-#
-# Setting the VPATH variable to a list of paths will cause the makefile
-# to look into these paths when resolving .c to .obj dependencies.
-# As necessary, add $(srcdir):$(srcdir)/compat:....
-#========================================================================
-
-VPATH = $(srcdir):$(srcdir)/generic:$(srcdir)/unix:$(srcdir)/win:$(srcdir)/macosx
-
-.c.@OBJEXT@:
-	$(COMPILE) -c `@CYGPATH@ $<` -o $@
-
-#========================================================================
-# Distribution creation
-# You may need to tweak this target to make it work correctly.
-#========================================================================
-
-#COMPRESS	= tar cvf $(PKG_DIR).tar $(PKG_DIR); compress $(PKG_DIR).tar
-COMPRESS	= tar zcvf $(PKG_DIR).tar.gz $(PKG_DIR)
-DIST_ROOT	= /tmp/dist
-DIST_DIR	= $(DIST_ROOT)/$(PKG_DIR)
-
-DIST_INSTALL_DATA	= CPPROG='cp -p' $(INSTALL) -m 644
-DIST_INSTALL_SCRIPT	= CPPROG='cp -p' $(INSTALL) -m 755
-
-dist-clean:
-	rm -rf $(DIST_DIR) $(DIST_ROOT)/$(PKG_DIR).tar.*
-
-dist: dist-clean
-	$(INSTALL_DATA_DIR) $(DIST_DIR)
-
-	# TEA files
-	$(DIST_INSTALL_DATA) $(srcdir)/Makefile.in \
-	    $(srcdir)/aclocal.m4 $(srcdir)/configure.ac \
-	    $(DIST_DIR)/
-	$(DIST_INSTALL_SCRIPT) $(srcdir)/configure $(DIST_DIR)/
-
-	$(INSTALL_DATA_DIR) $(DIST_DIR)/tclconfig
-	$(DIST_INSTALL_DATA) $(srcdir)/tclconfig/README.txt \
-	    $(srcdir)/tclconfig/tcl.m4 $(srcdir)/tclconfig/install-sh \
-	    $(DIST_DIR)/tclconfig/
-
-	# Extension files
-	$(DIST_INSTALL_DATA) \
-	    $(srcdir)/ChangeLog \
-	    $(srcdir)/README.sha \
-	    $(srcdir)/license.terms \
-	    $(srcdir)/README \
-	    $(srcdir)/pkgIndex.tcl.in \
-	    $(DIST_DIR)/
-
-	list='demos doc generic library mac tests unix win'; \
-	for p in $$list; do \
-	    if test -d $(srcdir)/$$p ; then \
-		$(INSTALL_DATA_DIR) $(DIST_DIR)/$$p; \
-		$(DIST_INSTALL_DATA) $(srcdir)/$$p/* $(DIST_DIR)/$$p/; \
-	    fi; \
-	done
-
-	(cd $(DIST_ROOT); $(COMPRESS);)
-
-#========================================================================
-# End of user-definable section
-#========================================================================
-
-#========================================================================
-# Don't modify the file to clean here.  Instead, set the "CLEANFILES"
-# variable in configure.ac
-#========================================================================
-
-clean:
-	-test -z "$(BINARIES)" || rm -f $(BINARIES)
-	-rm -f *.$(OBJEXT) core *.core
-	-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
-
-distclean: clean
-	-rm -f *.tab.c
-	-rm -f $(CONFIG_CLEAN_FILES)
-	-rm -f config.cache config.log config.status
-
-#========================================================================
-# Install binary object libraries.  On Windows this includes both .dll and
-# .lib files.  Because the .lib files are not explicitly listed anywhere,
-# we need to deduce their existence from the .dll file of the same name.
-# Library files go into the lib directory.
-# In addition, this will generate the pkgIndex.tcl
-# file in the install location (assuming it can find a usable tclsh shell)
-#
-# You should not have to modify this target.
-#========================================================================
-
-install-lib-binaries: binaries
-	@$(INSTALL_DATA_DIR) $(DESTDIR)$(pkglibdir)
-	@list='$(lib_BINARIES)'; for p in $$list; do \
-	  if test -f $$p; then \
-	    echo " $(INSTALL_LIBRARY) $$p $(DESTDIR)$(pkglibdir)/$$p"; \
-	    $(INSTALL_LIBRARY) $$p $(DESTDIR)$(pkglibdir)/$$p; \
-	    ext=`echo $$p|sed -e "s/.*\.//"`; \
-	    if test "x$$ext" = "xdll"; then \
-		lib=`basename $$p|sed -e 's/.[^.]*$$//'`.lib; \
-		if test -f $$lib; then \
-		    echo " $(INSTALL_DATA) $$lib $(DESTDIR)$(pkglibdir)/$$lib"; \
-	            $(INSTALL_DATA) $$lib $(DESTDIR)$(pkglibdir)/$$lib; \
-		fi; \
-	    fi; \
-	  fi; \
-	done
-	@list='$(PKG_TCL_SOURCES)'; for p in $$list; do \
-	  if test -f $(srcdir)/$$p; then \
-	    destp=`basename $$p`; \
-	    echo " Install $$destp $(DESTDIR)$(pkglibdir)/$$destp"; \
-	    $(INSTALL_DATA) $(srcdir)/$$p $(DESTDIR)$(pkglibdir)/$$destp; \
-	  fi; \
-	done
-	@if test "x$(SHARED_BUILD)" = "x1"; then \
-	    echo " Install pkgIndex.tcl $(DESTDIR)$(pkglibdir)"; \
-	    $(INSTALL_DATA) pkgIndex.tcl $(DESTDIR)$(pkglibdir); \
-	fi
-
-#========================================================================
-# Install binary executables (e.g. .exe files and dependent .dll files)
-# This is for files that must go in the bin directory (located next to
-# wish and tclsh), like dependent .dll files on Windows.
-#
-# You should not have to modify this target, except to define bin_BINARIES
-# above if necessary.
-#========================================================================
-
-install-bin-binaries: binaries
-	@$(INSTALL_DATA_DIR) $(DESTDIR)$(bindir)
-	@list='$(bin_BINARIES)'; for p in $$list; do \
-	  if test -f $$p; then \
-	    echo " $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/$$p"; \
-	    $(INSTALL_PROGRAM) $$p $(DESTDIR)$(bindir)/$$p; \
-	  fi; \
-	done
-
-Makefile: $(srcdir)/Makefile.in  $(top_builddir)/config.status
-	cd $(top_builddir) \
-	  && CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status
-
-uninstall-binaries:
-	list='$(lib_BINARIES)'; for p in $$list; do \
-	  rm -f $(DESTDIR)$(pkglibdir)/$$p; \
-	done
-	list='$(PKG_TCL_SOURCES)'; for p in $$list; do \
-	  p=`basename $$p`; \
-	  rm -f $(DESTDIR)$(pkglibdir)/$$p; \
-	done
-	list='$(bin_BINARIES)'; for p in $$list; do \
-	  rm -f $(DESTDIR)$(bindir)/$$p; \
-	done
-
-.PHONY: all binaries clean depend distclean doc install libraries test
-.PHONY: gdb gdb-test valgrind valgrindshell
-
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:
diff --git a/tkcon/README.txt b/tkcon/README.txt
deleted file mode 100644
index cd9b6cc..0000000
--- a/tkcon/README.txt
+++ /dev/null
@@ -1,42 +0,0 @@
-WHAT:   Enhanced Tk Console for all Tk platforms
-
-WHERE:  http://tkcon.sourceforge.net/
-	http://www.purl.org/net/hobbs/tcl/script/
-
-REQUIREMENTS: Tcl/Tk 8.4+
-	Tested through Tcl/Tk 8.6.
-        tkcon is all Tcl/Tk code, no compiling required
-
-tkcon is a replacement for the standard console that comes with Tk (on
-Windows/Mac, but also works on Unix).  tkcon provides many more features
-than the standard console and works on all platforms where Tcl/Tk is
-available.  It is meant primarily to aid one when working with the little
-details inside tcl and tk and to give Unix users the GUI console provided
-by default in the Mac and Windows Tk.
-
-FEATURES:
-    Command history
-    Path (Unix style) / Proc / Variable name expansion
-    Multiple and tabbed consoles, each with its own state (via multiple
-        interpreters)
-    Captures stdout and stderr to console window (puts overridden)
-    Hot errors (click on error result to see stack trace)
-    Electric character matching (a la emacs)
-    Electric proc highlighting
-    Enhanced history searching
-    Configurable
-    Cut / Copy / Paste between windows (interoperates with native platform)
-    Communication between consoles and other Tk interpreters
-        (including non-tcl ones)
-    Works on all Tk platforms
-
-CONTACT: Jeffrey Hobbs, jeff at hobbs dot org
-
-GETTING STARTED:
-
-tkcon is a single drop-in file.  On Windows, I place this on the desktop
-and double-click on it instead of wish/tclsh.  On Unix and OS X, I place it
-in a directory on my path and run this instead of wish.
-
-Documentation can be reading by starting with index.html in the docs/
-subdirectory.  Happying Tcl'ing!
diff --git a/tkcon/aclocal.m4 b/tkcon/aclocal.m4
deleted file mode 100644
index 0b05739..0000000
--- a/tkcon/aclocal.m4
+++ /dev/null
@@ -1,9 +0,0 @@
-#
-# Include the TEA standard macro set
-#
-
-builtin(include,tclconfig/tcl.m4)
-
-#
-# Add here whatever m4 macros you want to define for your package
-#
diff --git a/tkcon/configure b/tkcon/configure
deleted file mode 100755
index 3c057b5..0000000
--- a/tkcon/configure
+++ /dev/null
@@ -1,6263 +0,0 @@
-#! /bin/sh
-# Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.69 for tkcon 2.7.
-#
-#
-# Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc.
-#
-#
-# This configure script is free software; the Free Software Foundation
-# gives unlimited permission to copy, distribute and modify it.
-## -------------------- ##
-## M4sh Initialization. ##
-## -------------------- ##
-
-# Be more Bourne compatible
-DUALCASE=1; export DUALCASE # for MKS sh
-if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
-  emulate sh
-  NULLCMD=:
-  # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
-  # is contrary to our usage.  Disable this feature.
-  alias -g '${1+"$@"}'='"$@"'
-  setopt NO_GLOB_SUBST
-else
-  case `(set -o) 2>/dev/null` in #(
-  *posix*) :
-    set -o posix ;; #(
-  *) :
-     ;;
-esac
-fi
-
-
-as_nl='
-'
-export as_nl
-# Printing a long string crashes Solaris 7 /usr/bin/printf.
-as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
-# Prefer a ksh shell builtin over an external printf program on Solaris,
-# but without wasting forks for bash or zsh.
-if test -z "$BASH_VERSION$ZSH_VERSION" \
-    && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
-  as_echo='print -r --'
-  as_echo_n='print -rn --'
-elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
-  as_echo='printf %s\n'
-  as_echo_n='printf %s'
-else
-  if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
-    as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
-    as_echo_n='/usr/ucb/echo -n'
-  else
-    as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
-    as_echo_n_body='eval
-      arg=$1;
-      case $arg in #(
-      *"$as_nl"*)
-	expr "X$arg" : "X\\(.*\\)$as_nl";
-	arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
-      esac;
-      expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
-    '
-    export as_echo_n_body
-    as_echo_n='sh -c $as_echo_n_body as_echo'
-  fi
-  export as_echo_body
-  as_echo='sh -c $as_echo_body as_echo'
-fi
-
-# The user is always right.
-if test "${PATH_SEPARATOR+set}" != set; then
-  PATH_SEPARATOR=:
-  (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
-    (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
-      PATH_SEPARATOR=';'
-  }
-fi
-
-
-# IFS
-# We need space, tab and new line, in precisely that order.  Quoting is
-# there to prevent editors from complaining about space-tab.
-# (If _AS_PATH_WALK were called with IFS unset, it would disable word
-# splitting by setting IFS to empty value.)
-IFS=" ""	$as_nl"
-
-# Find who we are.  Look in the path if we contain no directory separator.
-as_myself=
-case $0 in #((
-  *[\\/]* ) as_myself=$0 ;;
-  *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
-  done
-IFS=$as_save_IFS
-
-     ;;
-esac
-# We did not find ourselves, most probably we were run as `sh COMMAND'
-# in which case we are not to be found in the path.
-if test "x$as_myself" = x; then
-  as_myself=$0
-fi
-if test ! -f "$as_myself"; then
-  $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
-  exit 1
-fi
-
-# Unset variables that we do not need and which cause bugs (e.g. in
-# pre-3.0 UWIN ksh).  But do not cause bugs in bash 2.01; the "|| exit 1"
-# suppresses any "Segmentation fault" message there.  '((' could
-# trigger a bug in pdksh 5.2.14.
-for as_var in BASH_ENV ENV MAIL MAILPATH
-do eval test x\${$as_var+set} = xset \
-  && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
-done
-PS1='$ '
-PS2='> '
-PS4='+ '
-
-# NLS nuisances.
-LC_ALL=C
-export LC_ALL
-LANGUAGE=C
-export LANGUAGE
-
-# CDPATH.
-(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
-
-# Use a proper internal environment variable to ensure we don't fall
-  # into an infinite loop, continuously re-executing ourselves.
-  if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then
-    _as_can_reexec=no; export _as_can_reexec;
-    # We cannot yet assume a decent shell, so we have to provide a
-# neutralization value for shells without unset; and this also
-# works around shells that cannot unset nonexistent variables.
-# Preserve -v and -x to the replacement shell.
-BASH_ENV=/dev/null
-ENV=/dev/null
-(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
-case $- in # ((((
-  *v*x* | *x*v* ) as_opts=-vx ;;
-  *v* ) as_opts=-v ;;
-  *x* ) as_opts=-x ;;
-  * ) as_opts= ;;
-esac
-exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
-# Admittedly, this is quite paranoid, since all the known shells bail
-# out after a failed `exec'.
-$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
-as_fn_exit 255
-  fi
-  # We don't want this to propagate to other subprocesses.
-          { _as_can_reexec=; unset _as_can_reexec;}
-if test "x$CONFIG_SHELL" = x; then
-  as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then :
-  emulate sh
-  NULLCMD=:
-  # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which
-  # is contrary to our usage.  Disable this feature.
-  alias -g '\${1+\"\$@\"}'='\"\$@\"'
-  setopt NO_GLOB_SUBST
-else
-  case \`(set -o) 2>/dev/null\` in #(
-  *posix*) :
-    set -o posix ;; #(
-  *) :
-     ;;
-esac
-fi
-"
-  as_required="as_fn_return () { (exit \$1); }
-as_fn_success () { as_fn_return 0; }
-as_fn_failure () { as_fn_return 1; }
-as_fn_ret_success () { return 0; }
-as_fn_ret_failure () { return 1; }
-
-exitcode=0
-as_fn_success || { exitcode=1; echo as_fn_success failed.; }
-as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; }
-as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; }
-as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; }
-if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then :
-
-else
-  exitcode=1; echo positional parameters were not saved.
-fi
-test x\$exitcode = x0 || exit 1
-test -x / || exit 1"
-  as_suggested="  as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO
-  as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO
-  eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&
-  test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1
-test \$(( 1 + 1 )) = 2 || exit 1"
-  if (eval "$as_required") 2>/dev/null; then :
-  as_have_required=yes
-else
-  as_have_required=no
-fi
-  if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then :
-
-else
-  as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-as_found=false
-for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-  as_found=:
-  case $as_dir in #(
-	 /*)
-	   for as_base in sh bash ksh sh5; do
-	     # Try only shells that exist, to save several forks.
-	     as_shell=$as_dir/$as_base
-	     if { test -f "$as_shell" || test -f "$as_shell.exe"; } &&
-		    { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then :
-  CONFIG_SHELL=$as_shell as_have_required=yes
-		   if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then :
-  break 2
-fi
-fi
-	   done;;
-       esac
-  as_found=false
-done
-$as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } &&
-	      { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then :
-  CONFIG_SHELL=$SHELL as_have_required=yes
-fi; }
-IFS=$as_save_IFS
-
-
-      if test "x$CONFIG_SHELL" != x; then :
-  export CONFIG_SHELL
-             # We cannot yet assume a decent shell, so we have to provide a
-# neutralization value for shells without unset; and this also
-# works around shells that cannot unset nonexistent variables.
-# Preserve -v and -x to the replacement shell.
-BASH_ENV=/dev/null
-ENV=/dev/null
-(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
-case $- in # ((((
-  *v*x* | *x*v* ) as_opts=-vx ;;
-  *v* ) as_opts=-v ;;
-  *x* ) as_opts=-x ;;
-  * ) as_opts= ;;
-esac
-exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
-# Admittedly, this is quite paranoid, since all the known shells bail
-# out after a failed `exec'.
-$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
-exit 255
-fi
-
-    if test x$as_have_required = xno; then :
-  $as_echo "$0: This script requires a shell more modern than all"
-  $as_echo "$0: the shells that I found on your system."
-  if test x${ZSH_VERSION+set} = xset ; then
-    $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should"
-    $as_echo "$0: be upgraded to zsh 4.3.4 or later."
-  else
-    $as_echo "$0: Please tell bug-autoconf@gnu.org about your system,
-$0: including any error possibly output before this
-$0: message. Then install a modern shell, or manually run
-$0: the script under such a shell if you do have one."
-  fi
-  exit 1
-fi
-fi
-fi
-SHELL=${CONFIG_SHELL-/bin/sh}
-export SHELL
-# Unset more variables known to interfere with behavior of common tools.
-CLICOLOR_FORCE= GREP_OPTIONS=
-unset CLICOLOR_FORCE GREP_OPTIONS
-
-## --------------------- ##
-## M4sh Shell Functions. ##
-## --------------------- ##
-# as_fn_unset VAR
-# ---------------
-# Portably unset VAR.
-as_fn_unset ()
-{
-  { eval $1=; unset $1;}
-}
-as_unset=as_fn_unset
-
-# as_fn_set_status STATUS
-# -----------------------
-# Set $? to STATUS, without forking.
-as_fn_set_status ()
-{
-  return $1
-} # as_fn_set_status
-
-# as_fn_exit STATUS
-# -----------------
-# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
-as_fn_exit ()
-{
-  set +e
-  as_fn_set_status $1
-  exit $1
-} # as_fn_exit
-
-# as_fn_mkdir_p
-# -------------
-# Create "$as_dir" as a directory, including parents if necessary.
-as_fn_mkdir_p ()
-{
-
-  case $as_dir in #(
-  -*) as_dir=./$as_dir;;
-  esac
-  test -d "$as_dir" || eval $as_mkdir_p || {
-    as_dirs=
-    while :; do
-      case $as_dir in #(
-      *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
-      *) as_qdir=$as_dir;;
-      esac
-      as_dirs="'$as_qdir' $as_dirs"
-      as_dir=`$as_dirname -- "$as_dir" ||
-$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
-	 X"$as_dir" : 'X\(//\)[^/]' \| \
-	 X"$as_dir" : 'X\(//\)$' \| \
-	 X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$as_dir" |
-    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
-	    s//\1/
-	    q
-	  }
-	  /^X\(\/\/\)[^/].*/{
-	    s//\1/
-	    q
-	  }
-	  /^X\(\/\/\)$/{
-	    s//\1/
-	    q
-	  }
-	  /^X\(\/\).*/{
-	    s//\1/
-	    q
-	  }
-	  s/.*/./; q'`
-      test -d "$as_dir" && break
-    done
-    test -z "$as_dirs" || eval "mkdir $as_dirs"
-  } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
-
-
-} # as_fn_mkdir_p
-
-# as_fn_executable_p FILE
-# -----------------------
-# Test if FILE is an executable regular file.
-as_fn_executable_p ()
-{
-  test -f "$1" && test -x "$1"
-} # as_fn_executable_p
-# as_fn_append VAR VALUE
-# ----------------------
-# Append the text in VALUE to the end of the definition contained in VAR. Take
-# advantage of any shell optimizations that allow amortized linear growth over
-# repeated appends, instead of the typical quadratic growth present in naive
-# implementations.
-if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
-  eval 'as_fn_append ()
-  {
-    eval $1+=\$2
-  }'
-else
-  as_fn_append ()
-  {
-    eval $1=\$$1\$2
-  }
-fi # as_fn_append
-
-# as_fn_arith ARG...
-# ------------------
-# Perform arithmetic evaluation on the ARGs, and store the result in the
-# global $as_val. Take advantage of shells that can avoid forks. The arguments
-# must be portable across $(()) and expr.
-if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
-  eval 'as_fn_arith ()
-  {
-    as_val=$(( $* ))
-  }'
-else
-  as_fn_arith ()
-  {
-    as_val=`expr "$@" || test $? -eq 1`
-  }
-fi # as_fn_arith
-
-
-# as_fn_error STATUS ERROR [LINENO LOG_FD]
-# ----------------------------------------
-# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
-# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
-# script with STATUS, using 1 if that was 0.
-as_fn_error ()
-{
-  as_status=$1; test $as_status -eq 0 && as_status=1
-  if test "$4"; then
-    as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-    $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
-  fi
-  $as_echo "$as_me: error: $2" >&2
-  as_fn_exit $as_status
-} # as_fn_error
-
-if expr a : '\(a\)' >/dev/null 2>&1 &&
-   test "X`expr 00001 : '.*\(...\)'`" = X001; then
-  as_expr=expr
-else
-  as_expr=false
-fi
-
-if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
-  as_basename=basename
-else
-  as_basename=false
-fi
-
-if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
-  as_dirname=dirname
-else
-  as_dirname=false
-fi
-
-as_me=`$as_basename -- "$0" ||
-$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
-	 X"$0" : 'X\(//\)$' \| \
-	 X"$0" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X/"$0" |
-    sed '/^.*\/\([^/][^/]*\)\/*$/{
-	    s//\1/
-	    q
-	  }
-	  /^X\/\(\/\/\)$/{
-	    s//\1/
-	    q
-	  }
-	  /^X\/\(\/\).*/{
-	    s//\1/
-	    q
-	  }
-	  s/.*/./; q'`
-
-# Avoid depending upon Character Ranges.
-as_cr_letters='abcdefghijklmnopqrstuvwxyz'
-as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-as_cr_Letters=$as_cr_letters$as_cr_LETTERS
-as_cr_digits='0123456789'
-as_cr_alnum=$as_cr_Letters$as_cr_digits
-
-
-  as_lineno_1=$LINENO as_lineno_1a=$LINENO
-  as_lineno_2=$LINENO as_lineno_2a=$LINENO
-  eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" &&
-  test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || {
-  # Blame Lee E. McMahon (1931-1989) for sed's syntax.  :-)
-  sed -n '
-    p
-    /[$]LINENO/=
-  ' <$as_myself |
-    sed '
-      s/[$]LINENO.*/&-/
-      t lineno
-      b
-      :lineno
-      N
-      :loop
-      s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/
-      t loop
-      s/-\n.*//
-    ' >$as_me.lineno &&
-  chmod +x "$as_me.lineno" ||
-    { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; }
-
-  # If we had to re-execute with $CONFIG_SHELL, we're ensured to have
-  # already done that, so ensure we don't try to do so again and fall
-  # in an infinite loop.  This has already happened in practice.
-  _as_can_reexec=no; export _as_can_reexec
-  # Don't try to exec as it changes $[0], causing all sort of problems
-  # (the dirname of $[0] is not the place where we might find the
-  # original and so on.  Autoconf is especially sensitive to this).
-  . "./$as_me.lineno"
-  # Exit status is that of the last command.
-  exit
-}
-
-ECHO_C= ECHO_N= ECHO_T=
-case `echo -n x` in #(((((
--n*)
-  case `echo 'xy\c'` in
-  *c*) ECHO_T='	';;	# ECHO_T is single tab character.
-  xy)  ECHO_C='\c';;
-  *)   echo `echo ksh88 bug on AIX 6.1` > /dev/null
-       ECHO_T='	';;
-  esac;;
-*)
-  ECHO_N='-n';;
-esac
-
-rm -f conf$$ conf$$.exe conf$$.file
-if test -d conf$$.dir; then
-  rm -f conf$$.dir/conf$$.file
-else
-  rm -f conf$$.dir
-  mkdir conf$$.dir 2>/dev/null
-fi
-if (echo >conf$$.file) 2>/dev/null; then
-  if ln -s conf$$.file conf$$ 2>/dev/null; then
-    as_ln_s='ln -s'
-    # ... but there are two gotchas:
-    # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
-    # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
-    # In both cases, we have to default to `cp -pR'.
-    ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
-      as_ln_s='cp -pR'
-  elif ln conf$$.file conf$$ 2>/dev/null; then
-    as_ln_s=ln
-  else
-    as_ln_s='cp -pR'
-  fi
-else
-  as_ln_s='cp -pR'
-fi
-rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
-rmdir conf$$.dir 2>/dev/null
-
-if mkdir -p . 2>/dev/null; then
-  as_mkdir_p='mkdir -p "$as_dir"'
-else
-  test -d ./-p && rmdir ./-p
-  as_mkdir_p=false
-fi
-
-as_test_x='test -x'
-as_executable_p=as_fn_executable_p
-
-# Sed expression to map a string onto a valid CPP name.
-as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
-
-# Sed expression to map a string onto a valid variable name.
-as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
-
-
-test -n "$DJDIR" || exec 7<&0 </dev/null
-exec 6>&1
-
-# Name of the host.
-# hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status,
-# so uname gets run too.
-ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q`
-
-#
-# Initializations.
-#
-ac_default_prefix=/usr/local
-ac_clean_files=
-ac_config_libobj_dir=.
-LIBOBJS=
-cross_compiling=no
-subdirs=
-MFLAGS=
-MAKEFLAGS=
-
-# Identity of this package.
-PACKAGE_NAME='tkcon'
-PACKAGE_TARNAME='tkcon'
-PACKAGE_VERSION='2.7'
-PACKAGE_STRING='tkcon 2.7'
-PACKAGE_BUGREPORT=''
-PACKAGE_URL=''
-
-# Factoring default headers for most tests.
-ac_includes_default="\
-#include <stdio.h>
-#ifdef HAVE_SYS_TYPES_H
-# include <sys/types.h>
-#endif
-#ifdef HAVE_SYS_STAT_H
-# include <sys/stat.h>
-#endif
-#ifdef STDC_HEADERS
-# include <stdlib.h>
-# include <stddef.h>
-#else
-# ifdef HAVE_STDLIB_H
-#  include <stdlib.h>
-# endif
-#endif
-#ifdef HAVE_STRING_H
-# if !defined STDC_HEADERS && defined HAVE_MEMORY_H
-#  include <memory.h>
-# endif
-# include <string.h>
-#endif
-#ifdef HAVE_STRINGS_H
-# include <strings.h>
-#endif
-#ifdef HAVE_INTTYPES_H
-# include <inttypes.h>
-#endif
-#ifdef HAVE_STDINT_H
-# include <stdint.h>
-#endif
-#ifdef HAVE_UNISTD_H
-# include <unistd.h>
-#endif"
-
-ac_subst_vars='LTLIBOBJS
-LIBOBJS
-PKG_OBJECTS
-PKG_SOURCES
-EGREP
-GREP
-RANLIB
-SET_MAKE
-CPP
-TK_XINCLUDES
-TK_LIBS
-TK_STUB_LIB_SPEC
-TK_STUB_LIB_FLAG
-TK_STUB_LIB_FILE
-TK_LIB_SPEC
-TK_LIB_FLAG
-TK_LIB_FILE
-TK_SRC_DIR
-TK_BIN_DIR
-TK_VERSION
-TCL_SHLIB_LD_LIBS
-TCL_LD_FLAGS
-TCL_EXTRA_CFLAGS
-TCL_DEFS
-TCL_LIBS
-CLEANFILES
-OBJEXT
-ac_ct_CC
-CPPFLAGS
-LDFLAGS
-CFLAGS
-CC
-TCL_STUB_LIB_SPEC
-TCL_STUB_LIB_FLAG
-TCL_STUB_LIB_FILE
-TCL_LIB_SPEC
-TCL_LIB_FLAG
-TCL_LIB_FILE
-TCL_SRC_DIR
-TCL_BIN_DIR
-TCL_PATCH_LEVEL
-TCL_VERSION
-INSTALL_LIBRARY
-INSTALL_SCRIPT
-INSTALL_PROGRAM
-INSTALL_DATA
-INSTALL_DATA_DIR
-INSTALL
-PKG_CFLAGS
-PKG_LIBS
-PKG_INCLUDES
-PKG_HEADERS
-PKG_TCL_SOURCES
-PKG_STUB_OBJECTS
-PKG_STUB_SOURCES
-PKG_STUB_LIB_FILE
-PKG_LIB_FILE
-EXEEXT
-CYGPATH
-target_alias
-host_alias
-build_alias
-LIBS
-ECHO_T
-ECHO_N
-ECHO_C
-DEFS
-mandir
-localedir
-libdir
-psdir
-pdfdir
-dvidir
-htmldir
-infodir
-docdir
-oldincludedir
-includedir
-localstatedir
-sharedstatedir
-sysconfdir
-datadir
-datarootdir
-libexecdir
-sbindir
-bindir
-program_transform_name
-prefix
-exec_prefix
-PACKAGE_URL
-PACKAGE_BUGREPORT
-PACKAGE_STRING
-PACKAGE_VERSION
-PACKAGE_TARNAME
-PACKAGE_NAME
-PATH_SEPARATOR
-SHELL'
-ac_subst_files=''
-ac_user_opts='
-enable_option_checking
-with_tcl
-with_tk
-'
-      ac_precious_vars='build_alias
-host_alias
-target_alias
-CC
-CFLAGS
-LDFLAGS
-LIBS
-CPPFLAGS
-CPP'
-
-
-# Initialize some variables set by options.
-ac_init_help=
-ac_init_version=false
-ac_unrecognized_opts=
-ac_unrecognized_sep=
-# The variables have the same names as the options, with
-# dashes changed to underlines.
-cache_file=/dev/null
-exec_prefix=NONE
-no_create=
-no_recursion=
-prefix=NONE
-program_prefix=NONE
-program_suffix=NONE
-program_transform_name=s,x,x,
-silent=
-site=
-srcdir=
-verbose=
-x_includes=NONE
-x_libraries=NONE
-
-# Installation directory options.
-# These are left unexpanded so users can "make install exec_prefix=/foo"
-# and all the variables that are supposed to be based on exec_prefix
-# by default will actually change.
-# Use braces instead of parens because sh, perl, etc. also accept them.
-# (The list follows the same order as the GNU Coding Standards.)
-bindir='${exec_prefix}/bin'
-sbindir='${exec_prefix}/sbin'
-libexecdir='${exec_prefix}/libexec'
-datarootdir='${prefix}/share'
-datadir='${datarootdir}'
-sysconfdir='${prefix}/etc'
-sharedstatedir='${prefix}/com'
-localstatedir='${prefix}/var'
-includedir='${prefix}/include'
-oldincludedir='/usr/include'
-docdir='${datarootdir}/doc/${PACKAGE_TARNAME}'
-infodir='${datarootdir}/info'
-htmldir='${docdir}'
-dvidir='${docdir}'
-pdfdir='${docdir}'
-psdir='${docdir}'
-libdir='${exec_prefix}/lib'
-localedir='${datarootdir}/locale'
-mandir='${datarootdir}/man'
-
-ac_prev=
-ac_dashdash=
-for ac_option
-do
-  # If the previous option needs an argument, assign it.
-  if test -n "$ac_prev"; then
-    eval $ac_prev=\$ac_option
-    ac_prev=
-    continue
-  fi
-
-  case $ac_option in
-  *=?*) ac_optarg=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;;
-  *=)   ac_optarg= ;;
-  *)    ac_optarg=yes ;;
-  esac
-
-  # Accept the important Cygnus configure options, so we can diagnose typos.
-
-  case $ac_dashdash$ac_option in
-  --)
-    ac_dashdash=yes ;;
-
-  -bindir | --bindir | --bindi | --bind | --bin | --bi)
-    ac_prev=bindir ;;
-  -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*)
-    bindir=$ac_optarg ;;
-
-  -build | --build | --buil | --bui | --bu)
-    ac_prev=build_alias ;;
-  -build=* | --build=* | --buil=* | --bui=* | --bu=*)
-    build_alias=$ac_optarg ;;
-
-  -cache-file | --cache-file | --cache-fil | --cache-fi \
-  | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c)
-    ac_prev=cache_file ;;
-  -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \
-  | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*)
-    cache_file=$ac_optarg ;;
-
-  --config-cache | -C)
-    cache_file=config.cache ;;
-
-  -datadir | --datadir | --datadi | --datad)
-    ac_prev=datadir ;;
-  -datadir=* | --datadir=* | --datadi=* | --datad=*)
-    datadir=$ac_optarg ;;
-
-  -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \
-  | --dataroo | --dataro | --datar)
-    ac_prev=datarootdir ;;
-  -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \
-  | --dataroot=* | --dataroo=* | --dataro=* | --datar=*)
-    datarootdir=$ac_optarg ;;
-
-  -disable-* | --disable-*)
-    ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'`
-    # Reject names that are not valid shell variable names.
-    expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
-      as_fn_error $? "invalid feature name: $ac_useropt"
-    ac_useropt_orig=$ac_useropt
-    ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
-    case $ac_user_opts in
-      *"
-"enable_$ac_useropt"
-"*) ;;
-      *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig"
-	 ac_unrecognized_sep=', ';;
-    esac
-    eval enable_$ac_useropt=no ;;
-
-  -docdir | --docdir | --docdi | --doc | --do)
-    ac_prev=docdir ;;
-  -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*)
-    docdir=$ac_optarg ;;
-
-  -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv)
-    ac_prev=dvidir ;;
-  -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*)
-    dvidir=$ac_optarg ;;
-
-  -enable-* | --enable-*)
-    ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'`
-    # Reject names that are not valid shell variable names.
-    expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
-      as_fn_error $? "invalid feature name: $ac_useropt"
-    ac_useropt_orig=$ac_useropt
-    ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
-    case $ac_user_opts in
-      *"
-"enable_$ac_useropt"
-"*) ;;
-      *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig"
-	 ac_unrecognized_sep=', ';;
-    esac
-    eval enable_$ac_useropt=\$ac_optarg ;;
-
-  -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \
-  | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \
-  | --exec | --exe | --ex)
-    ac_prev=exec_prefix ;;
-  -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \
-  | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \
-  | --exec=* | --exe=* | --ex=*)
-    exec_prefix=$ac_optarg ;;
-
-  -gas | --gas | --ga | --g)
-    # Obsolete; use --with-gas.
-    with_gas=yes ;;
-
-  -help | --help | --hel | --he | -h)
-    ac_init_help=long ;;
-  -help=r* | --help=r* | --hel=r* | --he=r* | -hr*)
-    ac_init_help=recursive ;;
-  -help=s* | --help=s* | --hel=s* | --he=s* | -hs*)
-    ac_init_help=short ;;
-
-  -host | --host | --hos | --ho)
-    ac_prev=host_alias ;;
-  -host=* | --host=* | --hos=* | --ho=*)
-    host_alias=$ac_optarg ;;
-
-  -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht)
-    ac_prev=htmldir ;;
-  -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \
-  | --ht=*)
-    htmldir=$ac_optarg ;;
-
-  -includedir | --includedir | --includedi | --included | --include \
-  | --includ | --inclu | --incl | --inc)
-    ac_prev=includedir ;;
-  -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \
-  | --includ=* | --inclu=* | --incl=* | --inc=*)
-    includedir=$ac_optarg ;;
-
-  -infodir | --infodir | --infodi | --infod | --info | --inf)
-    ac_prev=infodir ;;
-  -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*)
-    infodir=$ac_optarg ;;
-
-  -libdir | --libdir | --libdi | --libd)
-    ac_prev=libdir ;;
-  -libdir=* | --libdir=* | --libdi=* | --libd=*)
-    libdir=$ac_optarg ;;
-
-  -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \
-  | --libexe | --libex | --libe)
-    ac_prev=libexecdir ;;
-  -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \
-  | --libexe=* | --libex=* | --libe=*)
-    libexecdir=$ac_optarg ;;
-
-  -localedir | --localedir | --localedi | --localed | --locale)
-    ac_prev=localedir ;;
-  -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*)
-    localedir=$ac_optarg ;;
-
-  -localstatedir | --localstatedir | --localstatedi | --localstated \
-  | --localstate | --localstat | --localsta | --localst | --locals)
-    ac_prev=localstatedir ;;
-  -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \
-  | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*)
-    localstatedir=$ac_optarg ;;
-
-  -mandir | --mandir | --mandi | --mand | --man | --ma | --m)
-    ac_prev=mandir ;;
-  -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*)
-    mandir=$ac_optarg ;;
-
-  -nfp | --nfp | --nf)
-    # Obsolete; use --without-fp.
-    with_fp=no ;;
-
-  -no-create | --no-create | --no-creat | --no-crea | --no-cre \
-  | --no-cr | --no-c | -n)
-    no_create=yes ;;
-
-  -no-recursion | --no-recursion | --no-recursio | --no-recursi \
-  | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r)
-    no_recursion=yes ;;
-
-  -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \
-  | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \
-  | --oldin | --oldi | --old | --ol | --o)
-    ac_prev=oldincludedir ;;
-  -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \
-  | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \
-  | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*)
-    oldincludedir=$ac_optarg ;;
-
-  -prefix | --prefix | --prefi | --pref | --pre | --pr | --p)
-    ac_prev=prefix ;;
-  -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*)
-    prefix=$ac_optarg ;;
-
-  -program-prefix | --program-prefix | --program-prefi | --program-pref \
-  | --program-pre | --program-pr | --program-p)
-    ac_prev=program_prefix ;;
-  -program-prefix=* | --program-prefix=* | --program-prefi=* \
-  | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*)
-    program_prefix=$ac_optarg ;;
-
-  -program-suffix | --program-suffix | --program-suffi | --program-suff \
-  | --program-suf | --program-su | --program-s)
-    ac_prev=program_suffix ;;
-  -program-suffix=* | --program-suffix=* | --program-suffi=* \
-  | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*)
-    program_suffix=$ac_optarg ;;
-
-  -program-transform-name | --program-transform-name \
-  | --program-transform-nam | --program-transform-na \
-  | --program-transform-n | --program-transform- \
-  | --program-transform | --program-transfor \
-  | --program-transfo | --program-transf \
-  | --program-trans | --program-tran \
-  | --progr-tra | --program-tr | --program-t)
-    ac_prev=program_transform_name ;;
-  -program-transform-name=* | --program-transform-name=* \
-  | --program-transform-nam=* | --program-transform-na=* \
-  | --program-transform-n=* | --program-transform-=* \
-  | --program-transform=* | --program-transfor=* \
-  | --program-transfo=* | --program-transf=* \
-  | --program-trans=* | --program-tran=* \
-  | --progr-tra=* | --program-tr=* | --program-t=*)
-    program_transform_name=$ac_optarg ;;
-
-  -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd)
-    ac_prev=pdfdir ;;
-  -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*)
-    pdfdir=$ac_optarg ;;
-
-  -psdir | --psdir | --psdi | --psd | --ps)
-    ac_prev=psdir ;;
-  -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*)
-    psdir=$ac_optarg ;;
-
-  -q | -quiet | --quiet | --quie | --qui | --qu | --q \
-  | -silent | --silent | --silen | --sile | --sil)
-    silent=yes ;;
-
-  -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
-    ac_prev=sbindir ;;
-  -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
-  | --sbi=* | --sb=*)
-    sbindir=$ac_optarg ;;
-
-  -sharedstatedir | --sharedstatedir | --sharedstatedi \
-  | --sharedstated | --sharedstate | --sharedstat | --sharedsta \
-  | --sharedst | --shareds | --shared | --share | --shar \
-  | --sha | --sh)
-    ac_prev=sharedstatedir ;;
-  -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \
-  | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \
-  | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \
-  | --sha=* | --sh=*)
-    sharedstatedir=$ac_optarg ;;
-
-  -site | --site | --sit)
-    ac_prev=site ;;
-  -site=* | --site=* | --sit=*)
-    site=$ac_optarg ;;
-
-  -srcdir | --srcdir | --srcdi | --srcd | --src | --sr)
-    ac_prev=srcdir ;;
-  -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*)
-    srcdir=$ac_optarg ;;
-
-  -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \
-  | --syscon | --sysco | --sysc | --sys | --sy)
-    ac_prev=sysconfdir ;;
-  -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \
-  | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*)
-    sysconfdir=$ac_optarg ;;
-
-  -target | --target | --targe | --targ | --tar | --ta | --t)
-    ac_prev=target_alias ;;
-  -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*)
-    target_alias=$ac_optarg ;;
-
-  -v | -verbose | --verbose | --verbos | --verbo | --verb)
-    verbose=yes ;;
-
-  -version | --version | --versio | --versi | --vers | -V)
-    ac_init_version=: ;;
-
-  -with-* | --with-*)
-    ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'`
-    # Reject names that are not valid shell variable names.
-    expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
-      as_fn_error $? "invalid package name: $ac_useropt"
-    ac_useropt_orig=$ac_useropt
-    ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
-    case $ac_user_opts in
-      *"
-"with_$ac_useropt"
-"*) ;;
-      *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig"
-	 ac_unrecognized_sep=', ';;
-    esac
-    eval with_$ac_useropt=\$ac_optarg ;;
-
-  -without-* | --without-*)
-    ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'`
-    # Reject names that are not valid shell variable names.
-    expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null &&
-      as_fn_error $? "invalid package name: $ac_useropt"
-    ac_useropt_orig=$ac_useropt
-    ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'`
-    case $ac_user_opts in
-      *"
-"with_$ac_useropt"
-"*) ;;
-      *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig"
-	 ac_unrecognized_sep=', ';;
-    esac
-    eval with_$ac_useropt=no ;;
-
-  --x)
-    # Obsolete; use --with-x.
-    with_x=yes ;;
-
-  -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \
-  | --x-incl | --x-inc | --x-in | --x-i)
-    ac_prev=x_includes ;;
-  -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \
-  | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*)
-    x_includes=$ac_optarg ;;
-
-  -x-libraries | --x-libraries | --x-librarie | --x-librari \
-  | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l)
-    ac_prev=x_libraries ;;
-  -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \
-  | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*)
-    x_libraries=$ac_optarg ;;
-
-  -*) as_fn_error $? "unrecognized option: \`$ac_option'
-Try \`$0 --help' for more information"
-    ;;
-
-  *=*)
-    ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='`
-    # Reject names that are not valid shell variable names.
-    case $ac_envvar in #(
-      '' | [0-9]* | *[!_$as_cr_alnum]* )
-      as_fn_error $? "invalid variable name: \`$ac_envvar'" ;;
-    esac
-    eval $ac_envvar=\$ac_optarg
-    export $ac_envvar ;;
-
-  *)
-    # FIXME: should be removed in autoconf 3.0.
-    $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2
-    expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null &&
-      $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2
-    : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}"
-    ;;
-
-  esac
-done
-
-if test -n "$ac_prev"; then
-  ac_option=--`echo $ac_prev | sed 's/_/-/g'`
-  as_fn_error $? "missing argument to $ac_option"
-fi
-
-if test -n "$ac_unrecognized_opts"; then
-  case $enable_option_checking in
-    no) ;;
-    fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;;
-    *)     $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;;
-  esac
-fi
-
-# Check all directory arguments for consistency.
-for ac_var in	exec_prefix prefix bindir sbindir libexecdir datarootdir \
-		datadir sysconfdir sharedstatedir localstatedir includedir \
-		oldincludedir docdir infodir htmldir dvidir pdfdir psdir \
-		libdir localedir mandir
-do
-  eval ac_val=\$$ac_var
-  # Remove trailing slashes.
-  case $ac_val in
-    */ )
-      ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'`
-      eval $ac_var=\$ac_val;;
-  esac
-  # Be sure to have absolute directory names.
-  case $ac_val in
-    [\\/$]* | ?:[\\/]* )  continue;;
-    NONE | '' ) case $ac_var in *prefix ) continue;; esac;;
-  esac
-  as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val"
-done
-
-# There might be people who depend on the old broken behavior: `$host'
-# used to hold the argument of --host etc.
-# FIXME: To remove some day.
-build=$build_alias
-host=$host_alias
-target=$target_alias
-
-# FIXME: To remove some day.
-if test "x$host_alias" != x; then
-  if test "x$build_alias" = x; then
-    cross_compiling=maybe
-  elif test "x$build_alias" != "x$host_alias"; then
-    cross_compiling=yes
-  fi
-fi
-
-ac_tool_prefix=
-test -n "$host_alias" && ac_tool_prefix=$host_alias-
-
-test "$silent" = yes && exec 6>/dev/null
-
-
-ac_pwd=`pwd` && test -n "$ac_pwd" &&
-ac_ls_di=`ls -di .` &&
-ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` ||
-  as_fn_error $? "working directory cannot be determined"
-test "X$ac_ls_di" = "X$ac_pwd_ls_di" ||
-  as_fn_error $? "pwd does not report name of working directory"
-
-
-# Find the source files, if location was not specified.
-if test -z "$srcdir"; then
-  ac_srcdir_defaulted=yes
-  # Try the directory containing this script, then the parent directory.
-  ac_confdir=`$as_dirname -- "$as_myself" ||
-$as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
-	 X"$as_myself" : 'X\(//\)[^/]' \| \
-	 X"$as_myself" : 'X\(//\)$' \| \
-	 X"$as_myself" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$as_myself" |
-    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
-	    s//\1/
-	    q
-	  }
-	  /^X\(\/\/\)[^/].*/{
-	    s//\1/
-	    q
-	  }
-	  /^X\(\/\/\)$/{
-	    s//\1/
-	    q
-	  }
-	  /^X\(\/\).*/{
-	    s//\1/
-	    q
-	  }
-	  s/.*/./; q'`
-  srcdir=$ac_confdir
-  if test ! -r "$srcdir/$ac_unique_file"; then
-    srcdir=..
-  fi
-else
-  ac_srcdir_defaulted=no
-fi
-if test ! -r "$srcdir/$ac_unique_file"; then
-  test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .."
-  as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir"
-fi
-ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work"
-ac_abs_confdir=`(
-	cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg"
-	pwd)`
-# When building in place, set srcdir=.
-if test "$ac_abs_confdir" = "$ac_pwd"; then
-  srcdir=.
-fi
-# Remove unnecessary trailing slashes from srcdir.
-# Double slashes in file names in object file debugging info
-# mess up M-x gdb in Emacs.
-case $srcdir in
-*/) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;;
-esac
-for ac_var in $ac_precious_vars; do
-  eval ac_env_${ac_var}_set=\${${ac_var}+set}
-  eval ac_env_${ac_var}_value=\$${ac_var}
-  eval ac_cv_env_${ac_var}_set=\${${ac_var}+set}
-  eval ac_cv_env_${ac_var}_value=\$${ac_var}
-done
-
-#
-# Report the --help message.
-#
-if test "$ac_init_help" = "long"; then
-  # Omit some internal or obsolete options to make the list less imposing.
-  # This message is too long to be a string in the A/UX 3.1 sh.
-  cat <<_ACEOF
-\`configure' configures tkcon 2.7 to adapt to many kinds of systems.
-
-Usage: $0 [OPTION]... [VAR=VALUE]...
-
-To assign environment variables (e.g., CC, CFLAGS...), specify them as
-VAR=VALUE.  See below for descriptions of some of the useful variables.
-
-Defaults for the options are specified in brackets.
-
-Configuration:
-  -h, --help              display this help and exit
-      --help=short        display options specific to this package
-      --help=recursive    display the short help of all the included packages
-  -V, --version           display version information and exit
-  -q, --quiet, --silent   do not print \`checking ...' messages
-      --cache-file=FILE   cache test results in FILE [disabled]
-  -C, --config-cache      alias for \`--cache-file=config.cache'
-  -n, --no-create         do not create output files
-      --srcdir=DIR        find the sources in DIR [configure dir or \`..']
-
-Installation directories:
-  --prefix=PREFIX         install architecture-independent files in PREFIX
-                          [$ac_default_prefix]
-  --exec-prefix=EPREFIX   install architecture-dependent files in EPREFIX
-                          [PREFIX]
-
-By default, \`make install' will install all the files in
-\`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc.  You can specify
-an installation prefix other than \`$ac_default_prefix' using \`--prefix',
-for instance \`--prefix=\$HOME'.
-
-For better control, use the options below.
-
-Fine tuning of the installation directories:
-  --bindir=DIR            user executables [EPREFIX/bin]
-  --sbindir=DIR           system admin executables [EPREFIX/sbin]
-  --libexecdir=DIR        program executables [EPREFIX/libexec]
-  --sysconfdir=DIR        read-only single-machine data [PREFIX/etc]
-  --sharedstatedir=DIR    modifiable architecture-independent data [PREFIX/com]
-  --localstatedir=DIR     modifiable single-machine data [PREFIX/var]
-  --libdir=DIR            object code libraries [EPREFIX/lib]
-  --includedir=DIR        C header files [PREFIX/include]
-  --oldincludedir=DIR     C header files for non-gcc [/usr/include]
-  --datarootdir=DIR       read-only arch.-independent data root [PREFIX/share]
-  --datadir=DIR           read-only architecture-independent data [DATAROOTDIR]
-  --infodir=DIR           info documentation [DATAROOTDIR/info]
-  --localedir=DIR         locale-dependent data [DATAROOTDIR/locale]
-  --mandir=DIR            man documentation [DATAROOTDIR/man]
-  --docdir=DIR            documentation root [DATAROOTDIR/doc/tkcon]
-  --htmldir=DIR           html documentation [DOCDIR]
-  --dvidir=DIR            dvi documentation [DOCDIR]
-  --pdfdir=DIR            pdf documentation [DOCDIR]
-  --psdir=DIR             ps documentation [DOCDIR]
-_ACEOF
-
-  cat <<\_ACEOF
-_ACEOF
-fi
-
-if test -n "$ac_init_help"; then
-  case $ac_init_help in
-     short | recursive ) echo "Configuration of tkcon 2.7:";;
-   esac
-  cat <<\_ACEOF
-
-Optional Packages:
-  --with-PACKAGE[=ARG]    use PACKAGE [ARG=yes]
-  --without-PACKAGE       do not use PACKAGE (same as --with-PACKAGE=no)
-  --with-tcl              directory containing tcl configuration
-                          (tclConfig.sh)
-  --with-tk               directory containing tk configuration (tkConfig.sh)
-
-Some influential environment variables:
-  CC          C compiler command
-  CFLAGS      C compiler flags
-  LDFLAGS     linker flags, e.g. -L<lib dir> if you have libraries in a
-              nonstandard directory <lib dir>
-  LIBS        libraries to pass to the linker, e.g. -l<library>
-  CPPFLAGS    (Objective) C/C++ preprocessor flags, e.g. -I<include dir> if
-              you have headers in a nonstandard directory <include dir>
-  CPP         C preprocessor
-
-Use these variables to override the choices made by `configure' or to help
-it to find libraries and programs with nonstandard names/locations.
-
-Report bugs to the package provider.
-_ACEOF
-ac_status=$?
-fi
-
-if test "$ac_init_help" = "recursive"; then
-  # If there are subdirs, report their specific --help.
-  for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue
-    test -d "$ac_dir" ||
-      { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } ||
-      continue
-    ac_builddir=.
-
-case "$ac_dir" in
-.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
-*)
-  ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
-  # A ".." for each directory in $ac_dir_suffix.
-  ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
-  case $ac_top_builddir_sub in
-  "") ac_top_builddir_sub=. ac_top_build_prefix= ;;
-  *)  ac_top_build_prefix=$ac_top_builddir_sub/ ;;
-  esac ;;
-esac
-ac_abs_top_builddir=$ac_pwd
-ac_abs_builddir=$ac_pwd$ac_dir_suffix
-# for backward compatibility:
-ac_top_builddir=$ac_top_build_prefix
-
-case $srcdir in
-  .)  # We are building in place.
-    ac_srcdir=.
-    ac_top_srcdir=$ac_top_builddir_sub
-    ac_abs_top_srcdir=$ac_pwd ;;
-  [\\/]* | ?:[\\/]* )  # Absolute name.
-    ac_srcdir=$srcdir$ac_dir_suffix;
-    ac_top_srcdir=$srcdir
-    ac_abs_top_srcdir=$srcdir ;;
-  *) # Relative name.
-    ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
-    ac_top_srcdir=$ac_top_build_prefix$srcdir
-    ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
-esac
-ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
-
-    cd "$ac_dir" || { ac_status=$?; continue; }
-    # Check for guested configure.
-    if test -f "$ac_srcdir/configure.gnu"; then
-      echo &&
-      $SHELL "$ac_srcdir/configure.gnu" --help=recursive
-    elif test -f "$ac_srcdir/configure"; then
-      echo &&
-      $SHELL "$ac_srcdir/configure" --help=recursive
-    else
-      $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2
-    fi || ac_status=$?
-    cd "$ac_pwd" || { ac_status=$?; break; }
-  done
-fi
-
-test -n "$ac_init_help" && exit $ac_status
-if $ac_init_version; then
-  cat <<\_ACEOF
-tkcon configure 2.7
-generated by GNU Autoconf 2.69
-
-Copyright (C) 2012 Free Software Foundation, Inc.
-This configure script is free software; the Free Software Foundation
-gives unlimited permission to copy, distribute and modify it.
-_ACEOF
-  exit
-fi
-
-## ------------------------ ##
-## Autoconf initialization. ##
-## ------------------------ ##
-
-# ac_fn_c_try_compile LINENO
-# --------------------------
-# Try to compile conftest.$ac_ext, and return whether this succeeded.
-ac_fn_c_try_compile ()
-{
-  as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-  rm -f conftest.$ac_objext
-  if { { ac_try="$ac_compile"
-case "(($ac_try" in
-  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-  *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
-  (eval "$ac_compile") 2>conftest.err
-  ac_status=$?
-  if test -s conftest.err; then
-    grep -v '^ *+' conftest.err >conftest.er1
-    cat conftest.er1 >&5
-    mv -f conftest.er1 conftest.err
-  fi
-  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-  test $ac_status = 0; } && {
-	 test -z "$ac_c_werror_flag" ||
-	 test ! -s conftest.err
-       } && test -s conftest.$ac_objext; then :
-  ac_retval=0
-else
-  $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-	ac_retval=1
-fi
-  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-  as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_compile
-
-# ac_fn_c_try_cpp LINENO
-# ----------------------
-# Try to preprocess conftest.$ac_ext, and return whether this succeeded.
-ac_fn_c_try_cpp ()
-{
-  as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-  if { { ac_try="$ac_cpp conftest.$ac_ext"
-case "(($ac_try" in
-  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-  *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
-  (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err
-  ac_status=$?
-  if test -s conftest.err; then
-    grep -v '^ *+' conftest.err >conftest.er1
-    cat conftest.er1 >&5
-    mv -f conftest.er1 conftest.err
-  fi
-  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-  test $ac_status = 0; } > conftest.i && {
-	 test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" ||
-	 test ! -s conftest.err
-       }; then :
-  ac_retval=0
-else
-  $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-    ac_retval=1
-fi
-  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-  as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_cpp
-
-# ac_fn_c_try_run LINENO
-# ----------------------
-# Try to link conftest.$ac_ext, and return whether this succeeded. Assumes
-# that executables *can* be run.
-ac_fn_c_try_run ()
-{
-  as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-  if { { ac_try="$ac_link"
-case "(($ac_try" in
-  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-  *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
-  (eval "$ac_link") 2>&5
-  ac_status=$?
-  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-  test $ac_status = 0; } && { ac_try='./conftest$ac_exeext'
-  { { case "(($ac_try" in
-  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-  *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
-  (eval "$ac_try") 2>&5
-  ac_status=$?
-  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-  test $ac_status = 0; }; }; then :
-  ac_retval=0
-else
-  $as_echo "$as_me: program exited with status $ac_status" >&5
-       $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-       ac_retval=$ac_status
-fi
-  rm -rf conftest.dSYM conftest_ipa8_conftest.oo
-  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-  as_fn_set_status $ac_retval
-
-} # ac_fn_c_try_run
-
-# ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES
-# -------------------------------------------------------
-# Tests whether HEADER exists and can be compiled using the include files in
-# INCLUDES, setting the cache variable VAR accordingly.
-ac_fn_c_check_header_compile ()
-{
-  as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-  { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5
-$as_echo_n "checking for $2... " >&6; }
-if eval \${$3+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-$4
-#include <$2>
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-  eval "$3=yes"
-else
-  eval "$3=no"
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-eval ac_res=\$$3
-	       { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5
-$as_echo "$ac_res" >&6; }
-  eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno
-
-} # ac_fn_c_check_header_compile
-cat >config.log <<_ACEOF
-This file contains any messages produced by compilers while
-running configure, to aid debugging if configure makes a mistake.
-
-It was created by tkcon $as_me 2.7, which was
-generated by GNU Autoconf 2.69.  Invocation command line was
-
-  $ $0 $@
-
-_ACEOF
-exec 5>>config.log
-{
-cat <<_ASUNAME
-## --------- ##
-## Platform. ##
-## --------- ##
-
-hostname = `(hostname || uname -n) 2>/dev/null | sed 1q`
-uname -m = `(uname -m) 2>/dev/null || echo unknown`
-uname -r = `(uname -r) 2>/dev/null || echo unknown`
-uname -s = `(uname -s) 2>/dev/null || echo unknown`
-uname -v = `(uname -v) 2>/dev/null || echo unknown`
-
-/usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown`
-/bin/uname -X     = `(/bin/uname -X) 2>/dev/null     || echo unknown`
-
-/bin/arch              = `(/bin/arch) 2>/dev/null              || echo unknown`
-/usr/bin/arch -k       = `(/usr/bin/arch -k) 2>/dev/null       || echo unknown`
-/usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown`
-/usr/bin/hostinfo      = `(/usr/bin/hostinfo) 2>/dev/null      || echo unknown`
-/bin/machine           = `(/bin/machine) 2>/dev/null           || echo unknown`
-/usr/bin/oslevel       = `(/usr/bin/oslevel) 2>/dev/null       || echo unknown`
-/bin/universe          = `(/bin/universe) 2>/dev/null          || echo unknown`
-
-_ASUNAME
-
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    $as_echo "PATH: $as_dir"
-  done
-IFS=$as_save_IFS
-
-} >&5
-
-cat >&5 <<_ACEOF
-
-
-## ----------- ##
-## Core tests. ##
-## ----------- ##
-
-_ACEOF
-
-
-# Keep a trace of the command line.
-# Strip out --no-create and --no-recursion so they do not pile up.
-# Strip out --silent because we don't want to record it for future runs.
-# Also quote any args containing shell meta-characters.
-# Make two passes to allow for proper duplicate-argument suppression.
-ac_configure_args=
-ac_configure_args0=
-ac_configure_args1=
-ac_must_keep_next=false
-for ac_pass in 1 2
-do
-  for ac_arg
-  do
-    case $ac_arg in
-    -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;;
-    -q | -quiet | --quiet | --quie | --qui | --qu | --q \
-    | -silent | --silent | --silen | --sile | --sil)
-      continue ;;
-    *\'*)
-      ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;;
-    esac
-    case $ac_pass in
-    1) as_fn_append ac_configure_args0 " '$ac_arg'" ;;
-    2)
-      as_fn_append ac_configure_args1 " '$ac_arg'"
-      if test $ac_must_keep_next = true; then
-	ac_must_keep_next=false # Got value, back to normal.
-      else
-	case $ac_arg in
-	  *=* | --config-cache | -C | -disable-* | --disable-* \
-	  | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \
-	  | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \
-	  | -with-* | --with-* | -without-* | --without-* | --x)
-	    case "$ac_configure_args0 " in
-	      "$ac_configure_args1"*" '$ac_arg' "* ) continue ;;
-	    esac
-	    ;;
-	  -* ) ac_must_keep_next=true ;;
-	esac
-      fi
-      as_fn_append ac_configure_args " '$ac_arg'"
-      ;;
-    esac
-  done
-done
-{ ac_configure_args0=; unset ac_configure_args0;}
-{ ac_configure_args1=; unset ac_configure_args1;}
-
-# When interrupted or exit'd, cleanup temporary files, and complete
-# config.log.  We remove comments because anyway the quotes in there
-# would cause problems or look ugly.
-# WARNING: Use '\'' to represent an apostrophe within the trap.
-# WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug.
-trap 'exit_status=$?
-  # Save into config.log some information that might help in debugging.
-  {
-    echo
-
-    $as_echo "## ---------------- ##
-## Cache variables. ##
-## ---------------- ##"
-    echo
-    # The following way of writing the cache mishandles newlines in values,
-(
-  for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do
-    eval ac_val=\$$ac_var
-    case $ac_val in #(
-    *${as_nl}*)
-      case $ac_var in #(
-      *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
-$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
-      esac
-      case $ac_var in #(
-      _ | IFS | as_nl) ;; #(
-      BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
-      *) { eval $ac_var=; unset $ac_var;} ;;
-      esac ;;
-    esac
-  done
-  (set) 2>&1 |
-    case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #(
-    *${as_nl}ac_space=\ *)
-      sed -n \
-	"s/'\''/'\''\\\\'\'''\''/g;
-	  s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p"
-      ;; #(
-    *)
-      sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
-      ;;
-    esac |
-    sort
-)
-    echo
-
-    $as_echo "## ----------------- ##
-## Output variables. ##
-## ----------------- ##"
-    echo
-    for ac_var in $ac_subst_vars
-    do
-      eval ac_val=\$$ac_var
-      case $ac_val in
-      *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
-      esac
-      $as_echo "$ac_var='\''$ac_val'\''"
-    done | sort
-    echo
-
-    if test -n "$ac_subst_files"; then
-      $as_echo "## ------------------- ##
-## File substitutions. ##
-## ------------------- ##"
-      echo
-      for ac_var in $ac_subst_files
-      do
-	eval ac_val=\$$ac_var
-	case $ac_val in
-	*\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;;
-	esac
-	$as_echo "$ac_var='\''$ac_val'\''"
-      done | sort
-      echo
-    fi
-
-    if test -s confdefs.h; then
-      $as_echo "## ----------- ##
-## confdefs.h. ##
-## ----------- ##"
-      echo
-      cat confdefs.h
-      echo
-    fi
-    test "$ac_signal" != 0 &&
-      $as_echo "$as_me: caught signal $ac_signal"
-    $as_echo "$as_me: exit $exit_status"
-  } >&5
-  rm -f core *.core core.conftest.* &&
-    rm -f -r conftest* confdefs* conf$$* $ac_clean_files &&
-    exit $exit_status
-' 0
-for ac_signal in 1 2 13 15; do
-  trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal
-done
-ac_signal=0
-
-# confdefs.h avoids OS command line length limits that DEFS can exceed.
-rm -f -r conftest* confdefs.h
-
-$as_echo "/* confdefs.h */" > confdefs.h
-
-# Predefined preprocessor variables.
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_NAME "$PACKAGE_NAME"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_TARNAME "$PACKAGE_TARNAME"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_VERSION "$PACKAGE_VERSION"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_STRING "$PACKAGE_STRING"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT"
-_ACEOF
-
-cat >>confdefs.h <<_ACEOF
-#define PACKAGE_URL "$PACKAGE_URL"
-_ACEOF
-
-
-# Let the site file select an alternate cache file if it wants to.
-# Prefer an explicitly selected file to automatically selected ones.
-ac_site_file1=NONE
-ac_site_file2=NONE
-if test -n "$CONFIG_SITE"; then
-  # We do not want a PATH search for config.site.
-  case $CONFIG_SITE in #((
-    -*)  ac_site_file1=./$CONFIG_SITE;;
-    */*) ac_site_file1=$CONFIG_SITE;;
-    *)   ac_site_file1=./$CONFIG_SITE;;
-  esac
-elif test "x$prefix" != xNONE; then
-  ac_site_file1=$prefix/share/config.site
-  ac_site_file2=$prefix/etc/config.site
-else
-  ac_site_file1=$ac_default_prefix/share/config.site
-  ac_site_file2=$ac_default_prefix/etc/config.site
-fi
-for ac_site_file in "$ac_site_file1" "$ac_site_file2"
-do
-  test "x$ac_site_file" = xNONE && continue
-  if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then
-    { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5
-$as_echo "$as_me: loading site script $ac_site_file" >&6;}
-    sed 's/^/| /' "$ac_site_file" >&5
-    . "$ac_site_file" \
-      || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "failed to load site script $ac_site_file
-See \`config.log' for more details" "$LINENO" 5; }
-  fi
-done
-
-if test -r "$cache_file"; then
-  # Some versions of bash will fail to source /dev/null (special files
-  # actually), so we avoid doing that.  DJGPP emulates it as a regular file.
-  if test /dev/null != "$cache_file" && test -f "$cache_file"; then
-    { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5
-$as_echo "$as_me: loading cache $cache_file" >&6;}
-    case $cache_file in
-      [\\/]* | ?:[\\/]* ) . "$cache_file";;
-      *)                      . "./$cache_file";;
-    esac
-  fi
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5
-$as_echo "$as_me: creating cache $cache_file" >&6;}
-  >$cache_file
-fi
-
-# Check that the precious variables saved in the cache have kept the same
-# value.
-ac_cache_corrupted=false
-for ac_var in $ac_precious_vars; do
-  eval ac_old_set=\$ac_cv_env_${ac_var}_set
-  eval ac_new_set=\$ac_env_${ac_var}_set
-  eval ac_old_val=\$ac_cv_env_${ac_var}_value
-  eval ac_new_val=\$ac_env_${ac_var}_value
-  case $ac_old_set,$ac_new_set in
-    set,)
-      { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5
-$as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;}
-      ac_cache_corrupted=: ;;
-    ,set)
-      { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5
-$as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;}
-      ac_cache_corrupted=: ;;
-    ,);;
-    *)
-      if test "x$ac_old_val" != "x$ac_new_val"; then
-	# differences in whitespace do not lead to failure.
-	ac_old_val_w=`echo x $ac_old_val`
-	ac_new_val_w=`echo x $ac_new_val`
-	if test "$ac_old_val_w" != "$ac_new_val_w"; then
-	  { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5
-$as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;}
-	  ac_cache_corrupted=:
-	else
-	  { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5
-$as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;}
-	  eval $ac_var=\$ac_old_val
-	fi
-	{ $as_echo "$as_me:${as_lineno-$LINENO}:   former value:  \`$ac_old_val'" >&5
-$as_echo "$as_me:   former value:  \`$ac_old_val'" >&2;}
-	{ $as_echo "$as_me:${as_lineno-$LINENO}:   current value: \`$ac_new_val'" >&5
-$as_echo "$as_me:   current value: \`$ac_new_val'" >&2;}
-      fi;;
-  esac
-  # Pass precious variables to config.status.
-  if test "$ac_new_set" = set; then
-    case $ac_new_val in
-    *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;;
-    *) ac_arg=$ac_var=$ac_new_val ;;
-    esac
-    case " $ac_configure_args " in
-      *" '$ac_arg' "*) ;; # Avoid dups.  Use of quotes ensures accuracy.
-      *) as_fn_append ac_configure_args " '$ac_arg'" ;;
-    esac
-  fi
-done
-if $ac_cache_corrupted; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-  { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5
-$as_echo "$as_me: error: changes in the environment can compromise the build" >&2;}
-  as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5
-fi
-## -------------------- ##
-## Main body of script. ##
-## -------------------- ##
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-
-
-#--------------------------------------------------------------------
-# Call TEA_INIT as the first TEA_ macro to set up initial vars.
-# This will define a ${TEA_PLATFORM} variable == "unix" or "windows"
-# as well as PKG_LIB_FILE and PKG_STUB_LIB_FILE.
-#--------------------------------------------------------------------
-
-
-    TEA_VERSION="3.13"
-
-    { $as_echo "$as_me:${as_lineno-$LINENO}: checking TEA configuration" >&5
-$as_echo_n "checking TEA configuration... " >&6; }
-    if test x"${PACKAGE_NAME}" = x ; then
-	as_fn_error $? "
-The PACKAGE_NAME variable must be defined by your TEA configure.ac" "$LINENO" 5
-    fi
-    { $as_echo "$as_me:${as_lineno-$LINENO}: result: ok (TEA ${TEA_VERSION})" >&5
-$as_echo "ok (TEA ${TEA_VERSION})" >&6; }
-
-    # If the user did not set CFLAGS, set it now to keep macros
-    # like AC_PROG_CC and AC_TRY_COMPILE from adding "-g -O2".
-    if test "${CFLAGS+set}" != "set" ; then
-	CFLAGS=""
-    fi
-
-    case "`uname -s`" in
-	*win32*|*WIN32*|*MINGW32_*|*MINGW64_*)
-	    # Extract the first word of "cygpath", so it can be a program name with args.
-set dummy cygpath; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CYGPATH+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$CYGPATH"; then
-  ac_cv_prog_CYGPATH="$CYGPATH" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_CYGPATH="cygpath -m"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-  test -z "$ac_cv_prog_CYGPATH" && ac_cv_prog_CYGPATH="echo"
-fi
-fi
-CYGPATH=$ac_cv_prog_CYGPATH
-if test -n "$CYGPATH"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CYGPATH" >&5
-$as_echo "$CYGPATH" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-	    EXEEXT=".exe"
-	    TEA_PLATFORM="windows"
-	    ;;
-	*CYGWIN_*)
-	    EXEEXT=".exe"
-	    # CYGPATH and TEA_PLATFORM are determined later in LOAD_TCLCONFIG
-	    ;;
-	*)
-	    CYGPATH=echo
-	    # Maybe we are cross-compiling....
-	    case ${host_alias} in
-		*mingw32*)
-		EXEEXT=".exe"
-		TEA_PLATFORM="windows"
-		;;
-	    *)
-		EXEEXT=""
-		TEA_PLATFORM="unix"
-		;;
-	    esac
-	    ;;
-    esac
-
-    # Check if exec_prefix is set. If not use fall back to prefix.
-    # Note when adjusted, so that TEA_PREFIX can correct for this.
-    # This is needed for recursive configures, since autoconf propagates
-    # $prefix, but not $exec_prefix (doh!).
-    if test x$exec_prefix = xNONE ; then
-	exec_prefix_default=yes
-	exec_prefix=$prefix
-    fi
-
-    { $as_echo "$as_me:${as_lineno-$LINENO}: configuring ${PACKAGE_NAME} ${PACKAGE_VERSION}" >&5
-$as_echo "$as_me: configuring ${PACKAGE_NAME} ${PACKAGE_VERSION}" >&6;}
-
-
-
-
-    # This package name must be replaced statically for AC_SUBST to work
-
-    # Substitute STUB_LIB_FILE in case package creates a stub library too.
-
-
-    # We AC_SUBST these here to ensure they are subst'ed,
-    # in case the user doesn't call TEA_ADD_...
-
-
-
-
-
-
-
-
-    # Configure the installer.
-
-    INSTALL='$(SHELL) $(srcdir)/tclconfig/install-sh -c'
-    INSTALL_DATA_DIR='${INSTALL} -d -m 755'
-    INSTALL_DATA='${INSTALL} -m 644'
-    INSTALL_PROGRAM='${INSTALL} -m 755'
-    INSTALL_SCRIPT='${INSTALL} -m 755'
-
-
-    { $as_echo "$as_me:${as_lineno-$LINENO}: checking system version" >&5
-$as_echo_n "checking system version... " >&6; }
-if ${tcl_cv_sys_version+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-
-	# TEA specific:
-	if test "${TEA_PLATFORM}" = "windows" ; then
-	    tcl_cv_sys_version=windows
-	else
-	    tcl_cv_sys_version=`uname -s`-`uname -r`
-	    if test "$?" -ne 0 ; then
-		{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: can't find uname command" >&5
-$as_echo "$as_me: WARNING: can't find uname command" >&2;}
-		tcl_cv_sys_version=unknown
-	    else
-		if test "`uname -s`" = "AIX" ; then
-		    tcl_cv_sys_version=AIX-`uname -v`.`uname -r`
-		fi
-	    fi
-	fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_sys_version" >&5
-$as_echo "$tcl_cv_sys_version" >&6; }
-    system=$tcl_cv_sys_version
-
-    case $system in
-	HP-UX-*) INSTALL_LIBRARY='${INSTALL} -m 755' ;;
-	      *) INSTALL_LIBRARY='${INSTALL} -m 644' ;;
-    esac
-
-
-
-
-
-
-
-
-
-
-ac_aux_dir=
-for ac_dir in tclconfig "$srcdir"/tclconfig; do
-  if test -f "$ac_dir/install-sh"; then
-    ac_aux_dir=$ac_dir
-    ac_install_sh="$ac_aux_dir/install-sh -c"
-    break
-  elif test -f "$ac_dir/install.sh"; then
-    ac_aux_dir=$ac_dir
-    ac_install_sh="$ac_aux_dir/install.sh -c"
-    break
-  elif test -f "$ac_dir/shtool"; then
-    ac_aux_dir=$ac_dir
-    ac_install_sh="$ac_aux_dir/shtool install -c"
-    break
-  fi
-done
-if test -z "$ac_aux_dir"; then
-  as_fn_error $? "cannot find install-sh, install.sh, or shtool in tclconfig \"$srcdir\"/tclconfig" "$LINENO" 5
-fi
-
-# These three variables are undocumented and unsupported,
-# and are intended to be withdrawn in a future Autoconf release.
-# They can cause serious problems if a builder's source tree is in a directory
-# whose full name contains unusual characters.
-ac_config_guess="$SHELL $ac_aux_dir/config.guess"  # Please don't use this var.
-ac_config_sub="$SHELL $ac_aux_dir/config.sub"  # Please don't use this var.
-ac_configure="$SHELL $ac_aux_dir/configure"  # Please don't use this var.
-
-
-
-#--------------------------------------------------------------------
-# Load the tclConfig.sh file
-#--------------------------------------------------------------------
-
-
-
-    #
-    # Ok, lets find the tcl configuration
-    # First, look for one uninstalled.
-    # the alternative search directory is invoked by --with-tcl
-    #
-
-    if test x"${no_tcl}" = x ; then
-	# we reset no_tcl in case something fails here
-	no_tcl=true
-
-# Check whether --with-tcl was given.
-if test "${with_tcl+set}" = set; then :
-  withval=$with_tcl; with_tclconfig="${withval}"
-fi
-
-	{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Tcl configuration" >&5
-$as_echo_n "checking for Tcl configuration... " >&6; }
-	if ${ac_cv_c_tclconfig+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-
-
-	    # First check to see if --with-tcl was specified.
-	    if test x"${with_tclconfig}" != x ; then
-		case "${with_tclconfig}" in
-		    */tclConfig.sh )
-			if test -f "${with_tclconfig}"; then
-			    { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: --with-tcl argument should refer to directory containing tclConfig.sh, not to tclConfig.sh itself" >&5
-$as_echo "$as_me: WARNING: --with-tcl argument should refer to directory containing tclConfig.sh, not to tclConfig.sh itself" >&2;}
-			    with_tclconfig="`echo "${with_tclconfig}" | sed 's!/tclConfig\.sh$!!'`"
-			fi ;;
-		esac
-		if test -f "${with_tclconfig}/tclConfig.sh" ; then
-		    ac_cv_c_tclconfig="`(cd "${with_tclconfig}"; pwd)`"
-		else
-		    as_fn_error $? "${with_tclconfig} directory doesn't contain tclConfig.sh" "$LINENO" 5
-		fi
-	    fi
-
-	    # then check for a private Tcl installation
-	    if test x"${ac_cv_c_tclconfig}" = x ; then
-		for i in \
-			../tcl \
-			`ls -dr ../tcl[8-9].[0-9].[0-9]* 2>/dev/null` \
-			`ls -dr ../tcl[8-9].[0-9] 2>/dev/null` \
-			`ls -dr ../tcl[8-9].[0-9]* 2>/dev/null` \
-			../../tcl \
-			`ls -dr ../../tcl[8-9].[0-9].[0-9]* 2>/dev/null` \
-			`ls -dr ../../tcl[8-9].[0-9] 2>/dev/null` \
-			`ls -dr ../../tcl[8-9].[0-9]* 2>/dev/null` \
-			../../../tcl \
-			`ls -dr ../../../tcl[8-9].[0-9].[0-9]* 2>/dev/null` \
-			`ls -dr ../../../tcl[8-9].[0-9] 2>/dev/null` \
-			`ls -dr ../../../tcl[8-9].[0-9]* 2>/dev/null` ; do
-		    if test "${TEA_PLATFORM}" = "windows" \
-			    -a -f "$i/win/tclConfig.sh" ; then
-			ac_cv_c_tclconfig="`(cd $i/win; pwd)`"
-			break
-		    fi
-		    if test -f "$i/unix/tclConfig.sh" ; then
-			ac_cv_c_tclconfig="`(cd $i/unix; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # on Darwin, check in Framework installation locations
-	    if test "`uname -s`" = "Darwin" -a x"${ac_cv_c_tclconfig}" = x ; then
-		for i in `ls -d ~/Library/Frameworks 2>/dev/null` \
-			`ls -d /Library/Frameworks 2>/dev/null` \
-			`ls -d /Network/Library/Frameworks 2>/dev/null` \
-			`ls -d /System/Library/Frameworks 2>/dev/null` \
-			`ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Library/Frameworks/Tcl.framework 2>/dev/null` \
-			`ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Network/Library/Frameworks/Tcl.framework 2>/dev/null` \
-			`ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/System/Library/Frameworks/Tcl.framework 2>/dev/null` \
-			; do
-		    if test -f "$i/Tcl.framework/tclConfig.sh" ; then
-			ac_cv_c_tclconfig="`(cd $i/Tcl.framework; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # TEA specific: on Windows, check in common installation locations
-	    if test "${TEA_PLATFORM}" = "windows" \
-		-a x"${ac_cv_c_tclconfig}" = x ; then
-		for i in `ls -d C:/Tcl/lib 2>/dev/null` \
-			`ls -d C:/Progra~1/Tcl/lib 2>/dev/null` \
-			; do
-		    if test -f "$i/tclConfig.sh" ; then
-			ac_cv_c_tclconfig="`(cd $i; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # check in a few common install locations
-	    if test x"${ac_cv_c_tclconfig}" = x ; then
-		for i in `ls -d ${libdir} 2>/dev/null` \
-			`ls -d ${exec_prefix}/lib 2>/dev/null` \
-			`ls -d ${prefix}/lib 2>/dev/null` \
-			`ls -d /usr/local/lib 2>/dev/null` \
-			`ls -d /usr/contrib/lib 2>/dev/null` \
-			`ls -d /usr/pkg/lib 2>/dev/null` \
-			`ls -d /usr/lib 2>/dev/null` \
-			`ls -d /usr/lib64 2>/dev/null` \
-			`ls -d /usr/lib/tcl8.6 2>/dev/null` \
-			`ls -d /usr/lib/tcl8.5 2>/dev/null` \
-			`ls -d /usr/local/lib/tcl8.6 2>/dev/null` \
-			`ls -d /usr/local/lib/tcl8.5 2>/dev/null` \
-			`ls -d /usr/local/lib/tcl/tcl8.6 2>/dev/null` \
-			`ls -d /usr/local/lib/tcl/tcl8.5 2>/dev/null` \
-			; do
-		    if test -f "$i/tclConfig.sh" ; then
-			ac_cv_c_tclconfig="`(cd $i; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # check in a few other private locations
-	    if test x"${ac_cv_c_tclconfig}" = x ; then
-		for i in \
-			${srcdir}/../tcl \
-			`ls -dr ${srcdir}/../tcl[8-9].[0-9].[0-9]* 2>/dev/null` \
-			`ls -dr ${srcdir}/../tcl[8-9].[0-9] 2>/dev/null` \
-			`ls -dr ${srcdir}/../tcl[8-9].[0-9]* 2>/dev/null` ; do
-		    if test "${TEA_PLATFORM}" = "windows" \
-			    -a -f "$i/win/tclConfig.sh" ; then
-			ac_cv_c_tclconfig="`(cd $i/win; pwd)`"
-			break
-		    fi
-		    if test -f "$i/unix/tclConfig.sh" ; then
-			ac_cv_c_tclconfig="`(cd $i/unix; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-fi
-
-
-	if test x"${ac_cv_c_tclconfig}" = x ; then
-	    TCL_BIN_DIR="# no Tcl configs found"
-	    as_fn_error $? "Can't find Tcl configuration definitions. Use --with-tcl to specify a directory containing tclConfig.sh" "$LINENO" 5
-	else
-	    no_tcl=
-	    TCL_BIN_DIR="${ac_cv_c_tclconfig}"
-	    { $as_echo "$as_me:${as_lineno-$LINENO}: result: found ${TCL_BIN_DIR}/tclConfig.sh" >&5
-$as_echo "found ${TCL_BIN_DIR}/tclConfig.sh" >&6; }
-	fi
-    fi
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-if test -n "$ac_tool_prefix"; then
-  # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args.
-set dummy ${ac_tool_prefix}gcc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CC+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$CC"; then
-  ac_cv_prog_CC="$CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_CC="${ac_tool_prefix}gcc"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_CC"; then
-  ac_ct_CC=$CC
-  # Extract the first word of "gcc", so it can be a program name with args.
-set dummy gcc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_CC+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$ac_ct_CC"; then
-  ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_ac_ct_CC="gcc"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_CC=$ac_cv_prog_ac_ct_CC
-if test -n "$ac_ct_CC"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
-$as_echo "$ac_ct_CC" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-  if test "x$ac_ct_CC" = x; then
-    CC=""
-  else
-    case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
-    CC=$ac_ct_CC
-  fi
-else
-  CC="$ac_cv_prog_CC"
-fi
-
-if test -z "$CC"; then
-          if test -n "$ac_tool_prefix"; then
-    # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args.
-set dummy ${ac_tool_prefix}cc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CC+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$CC"; then
-  ac_cv_prog_CC="$CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_CC="${ac_tool_prefix}cc"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-  fi
-fi
-if test -z "$CC"; then
-  # Extract the first word of "cc", so it can be a program name with args.
-set dummy cc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CC+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$CC"; then
-  ac_cv_prog_CC="$CC" # Let the user override the test.
-else
-  ac_prog_rejected=no
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then
-       ac_prog_rejected=yes
-       continue
-     fi
-    ac_cv_prog_CC="cc"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-if test $ac_prog_rejected = yes; then
-  # We found a bogon in the path, so make sure we never use it.
-  set dummy $ac_cv_prog_CC
-  shift
-  if test $# != 0; then
-    # We chose a different compiler from the bogus one.
-    # However, it has the same basename, so the bogon will be chosen
-    # first if we set CC to just the basename; use the full file name.
-    shift
-    ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@"
-  fi
-fi
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$CC"; then
-  if test -n "$ac_tool_prefix"; then
-  for ac_prog in cl.exe
-  do
-    # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
-set dummy $ac_tool_prefix$ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CC+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$CC"; then
-  ac_cv_prog_CC="$CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_CC="$ac_tool_prefix$ac_prog"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-    test -n "$CC" && break
-  done
-fi
-if test -z "$CC"; then
-  ac_ct_CC=$CC
-  for ac_prog in cl.exe
-do
-  # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_CC+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$ac_ct_CC"; then
-  ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_ac_ct_CC="$ac_prog"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_CC=$ac_cv_prog_ac_ct_CC
-if test -n "$ac_ct_CC"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
-$as_echo "$ac_ct_CC" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-  test -n "$ac_ct_CC" && break
-done
-
-  if test "x$ac_ct_CC" = x; then
-    CC=""
-  else
-    case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
-    CC=$ac_ct_CC
-  fi
-fi
-
-fi
-
-
-test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "no acceptable C compiler found in \$PATH
-See \`config.log' for more details" "$LINENO" 5; }
-
-# Provide some information about the compiler.
-$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5
-set X $ac_compile
-ac_compiler=$2
-for ac_option in --version -v -V -qversion; do
-  { { ac_try="$ac_compiler $ac_option >&5"
-case "(($ac_try" in
-  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-  *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
-  (eval "$ac_compiler $ac_option >&5") 2>conftest.err
-  ac_status=$?
-  if test -s conftest.err; then
-    sed '10a\
-... rest of stderr output deleted ...
-         10q' conftest.err >conftest.er1
-    cat conftest.er1 >&5
-  fi
-  rm -f conftest.er1 conftest.err
-  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-  test $ac_status = 0; }
-done
-
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-
-int
-main ()
-{
-
-  ;
-  return 0;
-}
-_ACEOF
-ac_clean_files_save=$ac_clean_files
-ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out"
-# Try to create an executable without -o first, disregard a.out.
-# It will help us diagnose broken compilers, and finding out an intuition
-# of exeext.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5
-$as_echo_n "checking whether the C compiler works... " >&6; }
-ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'`
-
-# The possible output files:
-ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*"
-
-ac_rmfiles=
-for ac_file in $ac_files
-do
-  case $ac_file in
-    *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
-    * ) ac_rmfiles="$ac_rmfiles $ac_file";;
-  esac
-done
-rm -f $ac_rmfiles
-
-if { { ac_try="$ac_link_default"
-case "(($ac_try" in
-  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-  *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
-  (eval "$ac_link_default") 2>&5
-  ac_status=$?
-  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-  test $ac_status = 0; }; then :
-  # Autoconf-2.13 could set the ac_cv_exeext variable to `no'.
-# So ignore a value of `no', otherwise this would lead to `EXEEXT = no'
-# in a Makefile.  We should not override ac_cv_exeext if it was cached,
-# so that the user can short-circuit this test for compilers unknown to
-# Autoconf.
-for ac_file in $ac_files ''
-do
-  test -f "$ac_file" || continue
-  case $ac_file in
-    *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj )
-	;;
-    [ab].out )
-	# We found the default executable, but exeext='' is most
-	# certainly right.
-	break;;
-    *.* )
-	if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no;
-	then :; else
-	   ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
-	fi
-	# We set ac_cv_exeext here because the later test for it is not
-	# safe: cross compilers may not add the suffix if given an `-o'
-	# argument, so we may need to know it at that point already.
-	# Even if this section looks crufty: it has the advantage of
-	# actually working.
-	break;;
-    * )
-	break;;
-  esac
-done
-test "$ac_cv_exeext" = no && ac_cv_exeext=
-
-else
-  ac_file=''
-fi
-if test -z "$ac_file"; then :
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-$as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error 77 "C compiler cannot create executables
-See \`config.log' for more details" "$LINENO" 5; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5
-$as_echo_n "checking for C compiler default output file name... " >&6; }
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5
-$as_echo "$ac_file" >&6; }
-ac_exeext=$ac_cv_exeext
-
-rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out
-ac_clean_files=$ac_clean_files_save
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5
-$as_echo_n "checking for suffix of executables... " >&6; }
-if { { ac_try="$ac_link"
-case "(($ac_try" in
-  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-  *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
-  (eval "$ac_link") 2>&5
-  ac_status=$?
-  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-  test $ac_status = 0; }; then :
-  # If both `conftest.exe' and `conftest' are `present' (well, observable)
-# catch `conftest.exe'.  For instance with Cygwin, `ls conftest' will
-# work properly (i.e., refer to `conftest.exe'), while it won't with
-# `rm'.
-for ac_file in conftest.exe conftest conftest.*; do
-  test -f "$ac_file" || continue
-  case $ac_file in
-    *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;;
-    *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'`
-	  break;;
-    * ) break;;
-  esac
-done
-else
-  { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot compute suffix of executables: cannot compile and link
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-rm -f conftest conftest$ac_cv_exeext
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5
-$as_echo "$ac_cv_exeext" >&6; }
-
-rm -f conftest.$ac_ext
-EXEEXT=$ac_cv_exeext
-ac_exeext=$EXEEXT
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#include <stdio.h>
-int
-main ()
-{
-FILE *f = fopen ("conftest.out", "w");
- return ferror (f) || fclose (f) != 0;
-
-  ;
-  return 0;
-}
-_ACEOF
-ac_clean_files="$ac_clean_files conftest.out"
-# Check that the compiler produces executables we can run.  If not, either
-# the compiler is broken, or we cross compile.
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5
-$as_echo_n "checking whether we are cross compiling... " >&6; }
-if test "$cross_compiling" != yes; then
-  { { ac_try="$ac_link"
-case "(($ac_try" in
-  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-  *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
-  (eval "$ac_link") 2>&5
-  ac_status=$?
-  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-  test $ac_status = 0; }
-  if { ac_try='./conftest$ac_cv_exeext'
-  { { case "(($ac_try" in
-  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-  *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
-  (eval "$ac_try") 2>&5
-  ac_status=$?
-  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-  test $ac_status = 0; }; }; then
-    cross_compiling=no
-  else
-    if test "$cross_compiling" = maybe; then
-	cross_compiling=yes
-    else
-	{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot run C compiled programs.
-If you meant to cross compile, use \`--host'.
-See \`config.log' for more details" "$LINENO" 5; }
-    fi
-  fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5
-$as_echo "$cross_compiling" >&6; }
-
-rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out
-ac_clean_files=$ac_clean_files_save
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5
-$as_echo_n "checking for suffix of object files... " >&6; }
-if ${ac_cv_objext+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-
-int
-main ()
-{
-
-  ;
-  return 0;
-}
-_ACEOF
-rm -f conftest.o conftest.obj
-if { { ac_try="$ac_compile"
-case "(($ac_try" in
-  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-  *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
-  (eval "$ac_compile") 2>&5
-  ac_status=$?
-  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-  test $ac_status = 0; }; then :
-  for ac_file in conftest.o conftest.obj conftest.*; do
-  test -f "$ac_file" || continue;
-  case $ac_file in
-    *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;;
-    *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'`
-       break;;
-  esac
-done
-else
-  $as_echo "$as_me: failed program was:" >&5
-sed 's/^/| /' conftest.$ac_ext >&5
-
-{ { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "cannot compute suffix of object files: cannot compile
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-rm -f conftest.$ac_cv_objext conftest.$ac_ext
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5
-$as_echo "$ac_cv_objext" >&6; }
-OBJEXT=$ac_cv_objext
-ac_objext=$OBJEXT
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5
-$as_echo_n "checking whether we are using the GNU C compiler... " >&6; }
-if ${ac_cv_c_compiler_gnu+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-
-int
-main ()
-{
-#ifndef __GNUC__
-       choke me
-#endif
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-  ac_compiler_gnu=yes
-else
-  ac_compiler_gnu=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-ac_cv_c_compiler_gnu=$ac_compiler_gnu
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5
-$as_echo "$ac_cv_c_compiler_gnu" >&6; }
-if test $ac_compiler_gnu = yes; then
-  GCC=yes
-else
-  GCC=
-fi
-ac_test_CFLAGS=${CFLAGS+set}
-ac_save_CFLAGS=$CFLAGS
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5
-$as_echo_n "checking whether $CC accepts -g... " >&6; }
-if ${ac_cv_prog_cc_g+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  ac_save_c_werror_flag=$ac_c_werror_flag
-   ac_c_werror_flag=yes
-   ac_cv_prog_cc_g=no
-   CFLAGS="-g"
-   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-
-int
-main ()
-{
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-  ac_cv_prog_cc_g=yes
-else
-  CFLAGS=""
-      cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-
-int
-main ()
-{
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-
-else
-  ac_c_werror_flag=$ac_save_c_werror_flag
-	 CFLAGS="-g"
-	 cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-
-int
-main ()
-{
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-  ac_cv_prog_cc_g=yes
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-   ac_c_werror_flag=$ac_save_c_werror_flag
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5
-$as_echo "$ac_cv_prog_cc_g" >&6; }
-if test "$ac_test_CFLAGS" = set; then
-  CFLAGS=$ac_save_CFLAGS
-elif test $ac_cv_prog_cc_g = yes; then
-  if test "$GCC" = yes; then
-    CFLAGS="-g -O2"
-  else
-    CFLAGS="-g"
-  fi
-else
-  if test "$GCC" = yes; then
-    CFLAGS="-O2"
-  else
-    CFLAGS=
-  fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5
-$as_echo_n "checking for $CC option to accept ISO C89... " >&6; }
-if ${ac_cv_prog_cc_c89+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  ac_cv_prog_cc_c89=no
-ac_save_CC=$CC
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#include <stdarg.h>
-#include <stdio.h>
-struct stat;
-/* Most of the following tests are stolen from RCS 5.7's src/conf.sh.  */
-struct buf { int x; };
-FILE * (*rcsopen) (struct buf *, struct stat *, int);
-static char *e (p, i)
-     char **p;
-     int i;
-{
-  return p[i];
-}
-static char *f (char * (*g) (char **, int), char **p, ...)
-{
-  char *s;
-  va_list v;
-  va_start (v,p);
-  s = g (p, va_arg (v,int));
-  va_end (v);
-  return s;
-}
-
-/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default.  It has
-   function prototypes and stuff, but not '\xHH' hex character constants.
-   These don't provoke an error unfortunately, instead are silently treated
-   as 'x'.  The following induces an error, until -std is added to get
-   proper ANSI mode.  Curiously '\x00'!='x' always comes out true, for an
-   array size at least.  It's necessary to write '\x00'==0 to get something
-   that's true only with -std.  */
-int osf4_cc_array ['\x00' == 0 ? 1 : -1];
-
-/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters
-   inside strings and character constants.  */
-#define FOO(x) 'x'
-int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1];
-
-int test (int i, double x);
-struct s1 {int (*f) (int a);};
-struct s2 {int (*f) (double a);};
-int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int);
-int argc;
-char **argv;
-int
-main ()
-{
-return f (e, argv, 0) != argv[0]  ||  f (e, argv, 1) != argv[1];
-  ;
-  return 0;
-}
-_ACEOF
-for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \
-	-Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__"
-do
-  CC="$ac_save_CC $ac_arg"
-  if ac_fn_c_try_compile "$LINENO"; then :
-  ac_cv_prog_cc_c89=$ac_arg
-fi
-rm -f core conftest.err conftest.$ac_objext
-  test "x$ac_cv_prog_cc_c89" != "xno" && break
-done
-rm -f conftest.$ac_ext
-CC=$ac_save_CC
-
-fi
-# AC_CACHE_VAL
-case "x$ac_cv_prog_cc_c89" in
-  x)
-    { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5
-$as_echo "none needed" >&6; } ;;
-  xno)
-    { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5
-$as_echo "unsupported" >&6; } ;;
-  *)
-    CC="$CC $ac_cv_prog_cc_c89"
-    { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5
-$as_echo "$ac_cv_prog_cc_c89" >&6; } ;;
-esac
-if test "x$ac_cv_prog_cc_c89" != xno; then :
-
-fi
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-
-
-    { $as_echo "$as_me:${as_lineno-$LINENO}: checking for existence of ${TCL_BIN_DIR}/tclConfig.sh" >&5
-$as_echo_n "checking for existence of ${TCL_BIN_DIR}/tclConfig.sh... " >&6; }
-
-    if test -f "${TCL_BIN_DIR}/tclConfig.sh" ; then
-        { $as_echo "$as_me:${as_lineno-$LINENO}: result: loading" >&5
-$as_echo "loading" >&6; }
-	. "${TCL_BIN_DIR}/tclConfig.sh"
-    else
-        { $as_echo "$as_me:${as_lineno-$LINENO}: result: could not find ${TCL_BIN_DIR}/tclConfig.sh" >&5
-$as_echo "could not find ${TCL_BIN_DIR}/tclConfig.sh" >&6; }
-    fi
-
-    # eval is required to do the TCL_DBGX substitution
-    eval "TCL_LIB_FILE=\"${TCL_LIB_FILE}\""
-    eval "TCL_STUB_LIB_FILE=\"${TCL_STUB_LIB_FILE}\""
-
-    # If the TCL_BIN_DIR is the build directory (not the install directory),
-    # then set the common variable name to the value of the build variables.
-    # For example, the variable TCL_LIB_SPEC will be set to the value
-    # of TCL_BUILD_LIB_SPEC. An extension should make use of TCL_LIB_SPEC
-    # instead of TCL_BUILD_LIB_SPEC since it will work with both an
-    # installed and uninstalled version of Tcl.
-    if test -f "${TCL_BIN_DIR}/Makefile" ; then
-        TCL_LIB_SPEC="${TCL_BUILD_LIB_SPEC}"
-        TCL_STUB_LIB_SPEC="${TCL_BUILD_STUB_LIB_SPEC}"
-        TCL_STUB_LIB_PATH="${TCL_BUILD_STUB_LIB_PATH}"
-    elif test "`uname -s`" = "Darwin"; then
-	# If Tcl was built as a framework, attempt to use the libraries
-	# from the framework at the given location so that linking works
-	# against Tcl.framework installed in an arbitrary location.
-	case ${TCL_DEFS} in
-	    *TCL_FRAMEWORK*)
-		if test -f "${TCL_BIN_DIR}/${TCL_LIB_FILE}"; then
-		    for i in "`cd "${TCL_BIN_DIR}"; pwd`" \
-			     "`cd "${TCL_BIN_DIR}"/../..; pwd`"; do
-			if test "`basename "$i"`" = "${TCL_LIB_FILE}.framework"; then
-			    TCL_LIB_SPEC="-F`dirname "$i" | sed -e 's/ /\\\\ /g'` -framework ${TCL_LIB_FILE}"
-			    break
-			fi
-		    done
-		fi
-		if test -f "${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}"; then
-		    TCL_STUB_LIB_SPEC="-L`echo "${TCL_BIN_DIR}"  | sed -e 's/ /\\\\ /g'` ${TCL_STUB_LIB_FLAG}"
-		    TCL_STUB_LIB_PATH="${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}"
-		fi
-		;;
-	esac
-    fi
-
-    # eval is required to do the TCL_DBGX substitution
-    eval "TCL_LIB_FLAG=\"${TCL_LIB_FLAG}\""
-    eval "TCL_LIB_SPEC=\"${TCL_LIB_SPEC}\""
-    eval "TCL_STUB_LIB_FLAG=\"${TCL_STUB_LIB_FLAG}\""
-    eval "TCL_STUB_LIB_SPEC=\"${TCL_STUB_LIB_SPEC}\""
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-    { $as_echo "$as_me:${as_lineno-$LINENO}: checking platform" >&5
-$as_echo_n "checking platform... " >&6; }
-    hold_cc=$CC; CC="$TCL_CC"
-    cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-
-int
-main ()
-{
-
-	    #ifdef _WIN32
-		#error win32
-	    #endif
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-
-	    TEA_PLATFORM="unix"
-	    CYGPATH=echo
-
-else
-
-	    TEA_PLATFORM="windows"
-	    # Extract the first word of "cygpath", so it can be a program name with args.
-set dummy cygpath; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CYGPATH+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$CYGPATH"; then
-  ac_cv_prog_CYGPATH="$CYGPATH" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_CYGPATH="cygpath -m"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-  test -z "$ac_cv_prog_CYGPATH" && ac_cv_prog_CYGPATH="echo"
-fi
-fi
-CYGPATH=$ac_cv_prog_CYGPATH
-if test -n "$CYGPATH"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CYGPATH" >&5
-$as_echo "$CYGPATH" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-    CC=$hold_cc
-    { $as_echo "$as_me:${as_lineno-$LINENO}: result: $TEA_PLATFORM" >&5
-$as_echo "$TEA_PLATFORM" >&6; }
-
-    # The BUILD_$pkg is to define the correct extern storage class
-    # handling when making this package
-
-cat >>confdefs.h <<_ACEOF
-#define BUILD_${PACKAGE_NAME} /**/
-_ACEOF
-
-    # Do this here as we have fully defined TEA_PLATFORM now
-    if test "${TEA_PLATFORM}" = "windows" ; then
-	EXEEXT=".exe"
-	CLEANFILES="$CLEANFILES *.lib *.dll *.pdb *.exp"
-    fi
-
-    # TEA specific:
-
-
-
-
-
-
-
-
-#--------------------------------------------------------------------
-# Load the tkConfig.sh file if necessary (Tk extension)
-#--------------------------------------------------------------------
-
-
-    #
-    # Ok, lets find the tk configuration
-    # First, look for one uninstalled.
-    # the alternative search directory is invoked by --with-tk
-    #
-
-    if test x"${no_tk}" = x ; then
-	# we reset no_tk in case something fails here
-	no_tk=true
-
-# Check whether --with-tk was given.
-if test "${with_tk+set}" = set; then :
-  withval=$with_tk; with_tkconfig="${withval}"
-fi
-
-	{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for Tk configuration" >&5
-$as_echo_n "checking for Tk configuration... " >&6; }
-	if ${ac_cv_c_tkconfig+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-
-
-	    # First check to see if --with-tkconfig was specified.
-	    if test x"${with_tkconfig}" != x ; then
-		case "${with_tkconfig}" in
-		    */tkConfig.sh )
-			if test -f "${with_tkconfig}"; then
-			    { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: --with-tk argument should refer to directory containing tkConfig.sh, not to tkConfig.sh itself" >&5
-$as_echo "$as_me: WARNING: --with-tk argument should refer to directory containing tkConfig.sh, not to tkConfig.sh itself" >&2;}
-			    with_tkconfig="`echo "${with_tkconfig}" | sed 's!/tkConfig\.sh$!!'`"
-			fi ;;
-		esac
-		if test -f "${with_tkconfig}/tkConfig.sh" ; then
-		    ac_cv_c_tkconfig="`(cd "${with_tkconfig}"; pwd)`"
-		else
-		    as_fn_error $? "${with_tkconfig} directory doesn't contain tkConfig.sh" "$LINENO" 5
-		fi
-	    fi
-
-	    # then check for a private Tk library
-	    if test x"${ac_cv_c_tkconfig}" = x ; then
-		for i in \
-			../tk \
-			`ls -dr ../tk[8-9].[0-9].[0-9]* 2>/dev/null` \
-			`ls -dr ../tk[8-9].[0-9] 2>/dev/null` \
-			`ls -dr ../tk[8-9].[0-9]* 2>/dev/null` \
-			../../tk \
-			`ls -dr ../../tk[8-9].[0-9].[0-9]* 2>/dev/null` \
-			`ls -dr ../../tk[8-9].[0-9] 2>/dev/null` \
-			`ls -dr ../../tk[8-9].[0-9]* 2>/dev/null` \
-			../../../tk \
-			`ls -dr ../../../tk[8-9].[0-9].[0-9]* 2>/dev/null` \
-			`ls -dr ../../../tk[8-9].[0-9] 2>/dev/null` \
-			`ls -dr ../../../tk[8-9].[0-9]* 2>/dev/null` ; do
-		    if test "${TEA_PLATFORM}" = "windows" \
-			    -a -f "$i/win/tkConfig.sh" ; then
-			ac_cv_c_tkconfig="`(cd $i/win; pwd)`"
-			break
-		    fi
-		    if test -f "$i/unix/tkConfig.sh" ; then
-			ac_cv_c_tkconfig="`(cd $i/unix; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # on Darwin, check in Framework installation locations
-	    if test "`uname -s`" = "Darwin" -a x"${ac_cv_c_tkconfig}" = x ; then
-		for i in `ls -d ~/Library/Frameworks 2>/dev/null` \
-			`ls -d /Library/Frameworks 2>/dev/null` \
-			`ls -d /Network/Library/Frameworks 2>/dev/null` \
-			`ls -d /System/Library/Frameworks 2>/dev/null` \
-			`ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Library/Frameworks/Tcl.framework 2>/dev/null` \
-			`ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Network/Library/Frameworks/Tcl.framework 2>/dev/null` \
-			`ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/System/Library/Frameworks/Tcl.framework 2>/dev/null` \
-			; do
-		    if test -f "$i/Tk.framework/tkConfig.sh" ; then
-			ac_cv_c_tkconfig="`(cd $i/Tk.framework; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # check in a few common install locations
-	    if test x"${ac_cv_c_tkconfig}" = x ; then
-		for i in `ls -d ${libdir} 2>/dev/null` \
-			`ls -d ${exec_prefix}/lib 2>/dev/null` \
-			`ls -d ${prefix}/lib 2>/dev/null` \
-			`ls -d /usr/local/lib 2>/dev/null` \
-			`ls -d /usr/contrib/lib 2>/dev/null` \
-			`ls -d /usr/pkg/lib 2>/dev/null` \
-			`ls -d /usr/lib 2>/dev/null` \
-			`ls -d /usr/lib64 2>/dev/null` \
-			`ls -d /usr/lib/tk8.6 2>/dev/null` \
-			`ls -d /usr/lib/tk8.5 2>/dev/null` \
-			`ls -d /usr/local/lib/tk8.6 2>/dev/null` \
-			`ls -d /usr/local/lib/tk8.5 2>/dev/null` \
-			`ls -d /usr/local/lib/tcl/tk8.6 2>/dev/null` \
-			`ls -d /usr/local/lib/tcl/tk8.5 2>/dev/null` \
-			; do
-		    if test -f "$i/tkConfig.sh" ; then
-			ac_cv_c_tkconfig="`(cd $i; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # TEA specific: on Windows, check in common installation locations
-	    if test "${TEA_PLATFORM}" = "windows" \
-		-a x"${ac_cv_c_tkconfig}" = x ; then
-		for i in `ls -d C:/Tcl/lib 2>/dev/null` \
-			`ls -d C:/Progra~1/Tcl/lib 2>/dev/null` \
-			; do
-		    if test -f "$i/tkConfig.sh" ; then
-			ac_cv_c_tkconfig="`(cd $i; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # check in a few other private locations
-	    if test x"${ac_cv_c_tkconfig}" = x ; then
-		for i in \
-			${srcdir}/../tk \
-			`ls -dr ${srcdir}/../tk[8-9].[0-9].[0-9]* 2>/dev/null` \
-			`ls -dr ${srcdir}/../tk[8-9].[0-9] 2>/dev/null` \
-			`ls -dr ${srcdir}/../tk[8-9].[0-9]* 2>/dev/null` ; do
-		    if test "${TEA_PLATFORM}" = "windows" \
-			    -a -f "$i/win/tkConfig.sh" ; then
-			ac_cv_c_tkconfig="`(cd $i/win; pwd)`"
-			break
-		    fi
-		    if test -f "$i/unix/tkConfig.sh" ; then
-			ac_cv_c_tkconfig="`(cd $i/unix; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-fi
-
-
-	if test x"${ac_cv_c_tkconfig}" = x ; then
-	    TK_BIN_DIR="# no Tk configs found"
-	    as_fn_error $? "Can't find Tk configuration definitions. Use --with-tk to specify a directory containing tkConfig.sh" "$LINENO" 5
-	else
-	    no_tk=
-	    TK_BIN_DIR="${ac_cv_c_tkconfig}"
-	    { $as_echo "$as_me:${as_lineno-$LINENO}: result: found ${TK_BIN_DIR}/tkConfig.sh" >&5
-$as_echo "found ${TK_BIN_DIR}/tkConfig.sh" >&6; }
-	fi
-    fi
-
-
-    { $as_echo "$as_me:${as_lineno-$LINENO}: checking for existence of ${TK_BIN_DIR}/tkConfig.sh" >&5
-$as_echo_n "checking for existence of ${TK_BIN_DIR}/tkConfig.sh... " >&6; }
-
-    if test -f "${TK_BIN_DIR}/tkConfig.sh" ; then
-        { $as_echo "$as_me:${as_lineno-$LINENO}: result: loading" >&5
-$as_echo "loading" >&6; }
-	. "${TK_BIN_DIR}/tkConfig.sh"
-    else
-        { $as_echo "$as_me:${as_lineno-$LINENO}: result: could not find ${TK_BIN_DIR}/tkConfig.sh" >&5
-$as_echo "could not find ${TK_BIN_DIR}/tkConfig.sh" >&6; }
-    fi
-
-    # eval is required to do the TK_DBGX substitution
-    eval "TK_LIB_FILE=\"${TK_LIB_FILE}\""
-    eval "TK_STUB_LIB_FILE=\"${TK_STUB_LIB_FILE}\""
-
-    # If the TK_BIN_DIR is the build directory (not the install directory),
-    # then set the common variable name to the value of the build variables.
-    # For example, the variable TK_LIB_SPEC will be set to the value
-    # of TK_BUILD_LIB_SPEC. An extension should make use of TK_LIB_SPEC
-    # instead of TK_BUILD_LIB_SPEC since it will work with both an
-    # installed and uninstalled version of Tcl.
-    if test -f "${TK_BIN_DIR}/Makefile" ; then
-        TK_LIB_SPEC="${TK_BUILD_LIB_SPEC}"
-        TK_STUB_LIB_SPEC="${TK_BUILD_STUB_LIB_SPEC}"
-        TK_STUB_LIB_PATH="${TK_BUILD_STUB_LIB_PATH}"
-    elif test "`uname -s`" = "Darwin"; then
-	# If Tk was built as a framework, attempt to use the libraries
-	# from the framework at the given location so that linking works
-	# against Tk.framework installed in an arbitrary location.
-	case ${TK_DEFS} in
-	    *TK_FRAMEWORK*)
-		if test -f "${TK_BIN_DIR}/${TK_LIB_FILE}"; then
-		    for i in "`cd "${TK_BIN_DIR}"; pwd`" \
-			     "`cd "${TK_BIN_DIR}"/../..; pwd`"; do
-			if test "`basename "$i"`" = "${TK_LIB_FILE}.framework"; then
-			    TK_LIB_SPEC="-F`dirname "$i" | sed -e 's/ /\\\\ /g'` -framework ${TK_LIB_FILE}"
-			    break
-			fi
-		    done
-		fi
-		if test -f "${TK_BIN_DIR}/${TK_STUB_LIB_FILE}"; then
-		    TK_STUB_LIB_SPEC="-L` echo "${TK_BIN_DIR}"  | sed -e 's/ /\\\\ /g'` ${TK_STUB_LIB_FLAG}"
-		    TK_STUB_LIB_PATH="${TK_BIN_DIR}/${TK_STUB_LIB_FILE}"
-		fi
-		;;
-	esac
-    fi
-
-    # eval is required to do the TK_DBGX substitution
-    eval "TK_LIB_FLAG=\"${TK_LIB_FLAG}\""
-    eval "TK_LIB_SPEC=\"${TK_LIB_SPEC}\""
-    eval "TK_STUB_LIB_FLAG=\"${TK_STUB_LIB_FLAG}\""
-    eval "TK_STUB_LIB_SPEC=\"${TK_STUB_LIB_SPEC}\""
-
-    # TEA specific: Ensure windowingsystem is defined
-    if test "${TEA_PLATFORM}" = "unix" ; then
-	case ${TK_DEFS} in
-	    *MAC_OSX_TK*)
-
-$as_echo "#define MAC_OSX_TK 1" >>confdefs.h
-
-		TEA_WINDOWINGSYSTEM="aqua"
-		;;
-	    *)
-		TEA_WINDOWINGSYSTEM="x11"
-		;;
-	esac
-    elif test "${TEA_PLATFORM}" = "windows" ; then
-	TEA_WINDOWINGSYSTEM="win32"
-    fi
-
-
-
-
-
-
-
-
-
-
-
-
-
-    # TEA specific:
-
-
-
-
-#-----------------------------------------------------------------------
-# Handle the --prefix=... option by defaulting to what Tcl gave.
-# Must be called after TEA_LOAD_TCLCONFIG and before TEA_SETUP_COMPILER.
-#-----------------------------------------------------------------------
-
-
-    if test "${prefix}" = "NONE"; then
-	prefix_default=yes
-	if test x"${TCL_PREFIX}" != x; then
-	    { $as_echo "$as_me:${as_lineno-$LINENO}: --prefix defaulting to TCL_PREFIX ${TCL_PREFIX}" >&5
-$as_echo "$as_me: --prefix defaulting to TCL_PREFIX ${TCL_PREFIX}" >&6;}
-	    prefix=${TCL_PREFIX}
-	else
-	    { $as_echo "$as_me:${as_lineno-$LINENO}: --prefix defaulting to /usr/local" >&5
-$as_echo "$as_me: --prefix defaulting to /usr/local" >&6;}
-	    prefix=/usr/local
-	fi
-    fi
-    if test "${exec_prefix}" = "NONE" -a x"${prefix_default}" = x"yes" \
-	-o x"${exec_prefix_default}" = x"yes" ; then
-	if test x"${TCL_EXEC_PREFIX}" != x; then
-	    { $as_echo "$as_me:${as_lineno-$LINENO}: --exec-prefix defaulting to TCL_EXEC_PREFIX ${TCL_EXEC_PREFIX}" >&5
-$as_echo "$as_me: --exec-prefix defaulting to TCL_EXEC_PREFIX ${TCL_EXEC_PREFIX}" >&6;}
-	    exec_prefix=${TCL_EXEC_PREFIX}
-	else
-	    { $as_echo "$as_me:${as_lineno-$LINENO}: --exec-prefix defaulting to ${prefix}" >&5
-$as_echo "$as_me: --exec-prefix defaulting to ${prefix}" >&6;}
-	    exec_prefix=$prefix
-	fi
-    fi
-
-
-#-----------------------------------------------------------------------
-# Standard compiler checks.
-# This sets up CC by using the CC env var, or looks for gcc otherwise.
-# This also calls AC_PROG_CC and a few others to create the basic setup
-# necessary to compile executables.
-#-----------------------------------------------------------------------
-
-
-    # Don't put any macros that use the compiler (e.g. AC_TRY_COMPILE)
-    # in this macro, they need to go into TEA_SETUP_COMPILER instead.
-
-    ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-if test -n "$ac_tool_prefix"; then
-  # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args.
-set dummy ${ac_tool_prefix}gcc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CC+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$CC"; then
-  ac_cv_prog_CC="$CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_CC="${ac_tool_prefix}gcc"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_CC"; then
-  ac_ct_CC=$CC
-  # Extract the first word of "gcc", so it can be a program name with args.
-set dummy gcc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_CC+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$ac_ct_CC"; then
-  ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_ac_ct_CC="gcc"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_CC=$ac_cv_prog_ac_ct_CC
-if test -n "$ac_ct_CC"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
-$as_echo "$ac_ct_CC" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-  if test "x$ac_ct_CC" = x; then
-    CC=""
-  else
-    case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
-    CC=$ac_ct_CC
-  fi
-else
-  CC="$ac_cv_prog_CC"
-fi
-
-if test -z "$CC"; then
-          if test -n "$ac_tool_prefix"; then
-    # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args.
-set dummy ${ac_tool_prefix}cc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CC+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$CC"; then
-  ac_cv_prog_CC="$CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_CC="${ac_tool_prefix}cc"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-  fi
-fi
-if test -z "$CC"; then
-  # Extract the first word of "cc", so it can be a program name with args.
-set dummy cc; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CC+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$CC"; then
-  ac_cv_prog_CC="$CC" # Let the user override the test.
-else
-  ac_prog_rejected=no
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then
-       ac_prog_rejected=yes
-       continue
-     fi
-    ac_cv_prog_CC="cc"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-if test $ac_prog_rejected = yes; then
-  # We found a bogon in the path, so make sure we never use it.
-  set dummy $ac_cv_prog_CC
-  shift
-  if test $# != 0; then
-    # We chose a different compiler from the bogus one.
-    # However, it has the same basename, so the bogon will be chosen
-    # first if we set CC to just the basename; use the full file name.
-    shift
-    ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@"
-  fi
-fi
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$CC"; then
-  if test -n "$ac_tool_prefix"; then
-  for ac_prog in cl.exe
-  do
-    # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args.
-set dummy $ac_tool_prefix$ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_CC+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$CC"; then
-  ac_cv_prog_CC="$CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_CC="$ac_tool_prefix$ac_prog"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-fi
-fi
-CC=$ac_cv_prog_CC
-if test -n "$CC"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5
-$as_echo "$CC" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-    test -n "$CC" && break
-  done
-fi
-if test -z "$CC"; then
-  ac_ct_CC=$CC
-  for ac_prog in cl.exe
-do
-  # Extract the first word of "$ac_prog", so it can be a program name with args.
-set dummy $ac_prog; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_CC+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$ac_ct_CC"; then
-  ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_ac_ct_CC="$ac_prog"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_CC=$ac_cv_prog_ac_ct_CC
-if test -n "$ac_ct_CC"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5
-$as_echo "$ac_ct_CC" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-  test -n "$ac_ct_CC" && break
-done
-
-  if test "x$ac_ct_CC" = x; then
-    CC=""
-  else
-    case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
-    CC=$ac_ct_CC
-  fi
-fi
-
-fi
-
-
-test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "no acceptable C compiler found in \$PATH
-See \`config.log' for more details" "$LINENO" 5; }
-
-# Provide some information about the compiler.
-$as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5
-set X $ac_compile
-ac_compiler=$2
-for ac_option in --version -v -V -qversion; do
-  { { ac_try="$ac_compiler $ac_option >&5"
-case "(($ac_try" in
-  *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;;
-  *) ac_try_echo=$ac_try;;
-esac
-eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\""
-$as_echo "$ac_try_echo"; } >&5
-  (eval "$ac_compiler $ac_option >&5") 2>conftest.err
-  ac_status=$?
-  if test -s conftest.err; then
-    sed '10a\
-... rest of stderr output deleted ...
-         10q' conftest.err >conftest.er1
-    cat conftest.er1 >&5
-  fi
-  rm -f conftest.er1 conftest.err
-  $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5
-  test $ac_status = 0; }
-done
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5
-$as_echo_n "checking whether we are using the GNU C compiler... " >&6; }
-if ${ac_cv_c_compiler_gnu+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-
-int
-main ()
-{
-#ifndef __GNUC__
-       choke me
-#endif
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-  ac_compiler_gnu=yes
-else
-  ac_compiler_gnu=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-ac_cv_c_compiler_gnu=$ac_compiler_gnu
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5
-$as_echo "$ac_cv_c_compiler_gnu" >&6; }
-if test $ac_compiler_gnu = yes; then
-  GCC=yes
-else
-  GCC=
-fi
-ac_test_CFLAGS=${CFLAGS+set}
-ac_save_CFLAGS=$CFLAGS
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5
-$as_echo_n "checking whether $CC accepts -g... " >&6; }
-if ${ac_cv_prog_cc_g+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  ac_save_c_werror_flag=$ac_c_werror_flag
-   ac_c_werror_flag=yes
-   ac_cv_prog_cc_g=no
-   CFLAGS="-g"
-   cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-
-int
-main ()
-{
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-  ac_cv_prog_cc_g=yes
-else
-  CFLAGS=""
-      cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-
-int
-main ()
-{
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-
-else
-  ac_c_werror_flag=$ac_save_c_werror_flag
-	 CFLAGS="-g"
-	 cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-
-int
-main ()
-{
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-  ac_cv_prog_cc_g=yes
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-   ac_c_werror_flag=$ac_save_c_werror_flag
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5
-$as_echo "$ac_cv_prog_cc_g" >&6; }
-if test "$ac_test_CFLAGS" = set; then
-  CFLAGS=$ac_save_CFLAGS
-elif test $ac_cv_prog_cc_g = yes; then
-  if test "$GCC" = yes; then
-    CFLAGS="-g -O2"
-  else
-    CFLAGS="-g"
-  fi
-else
-  if test "$GCC" = yes; then
-    CFLAGS="-O2"
-  else
-    CFLAGS=
-  fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5
-$as_echo_n "checking for $CC option to accept ISO C89... " >&6; }
-if ${ac_cv_prog_cc_c89+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  ac_cv_prog_cc_c89=no
-ac_save_CC=$CC
-cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#include <stdarg.h>
-#include <stdio.h>
-struct stat;
-/* Most of the following tests are stolen from RCS 5.7's src/conf.sh.  */
-struct buf { int x; };
-FILE * (*rcsopen) (struct buf *, struct stat *, int);
-static char *e (p, i)
-     char **p;
-     int i;
-{
-  return p[i];
-}
-static char *f (char * (*g) (char **, int), char **p, ...)
-{
-  char *s;
-  va_list v;
-  va_start (v,p);
-  s = g (p, va_arg (v,int));
-  va_end (v);
-  return s;
-}
-
-/* OSF 4.0 Compaq cc is some sort of almost-ANSI by default.  It has
-   function prototypes and stuff, but not '\xHH' hex character constants.
-   These don't provoke an error unfortunately, instead are silently treated
-   as 'x'.  The following induces an error, until -std is added to get
-   proper ANSI mode.  Curiously '\x00'!='x' always comes out true, for an
-   array size at least.  It's necessary to write '\x00'==0 to get something
-   that's true only with -std.  */
-int osf4_cc_array ['\x00' == 0 ? 1 : -1];
-
-/* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters
-   inside strings and character constants.  */
-#define FOO(x) 'x'
-int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1];
-
-int test (int i, double x);
-struct s1 {int (*f) (int a);};
-struct s2 {int (*f) (double a);};
-int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int);
-int argc;
-char **argv;
-int
-main ()
-{
-return f (e, argv, 0) != argv[0]  ||  f (e, argv, 1) != argv[1];
-  ;
-  return 0;
-}
-_ACEOF
-for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \
-	-Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__"
-do
-  CC="$ac_save_CC $ac_arg"
-  if ac_fn_c_try_compile "$LINENO"; then :
-  ac_cv_prog_cc_c89=$ac_arg
-fi
-rm -f core conftest.err conftest.$ac_objext
-  test "x$ac_cv_prog_cc_c89" != "xno" && break
-done
-rm -f conftest.$ac_ext
-CC=$ac_save_CC
-
-fi
-# AC_CACHE_VAL
-case "x$ac_cv_prog_cc_c89" in
-  x)
-    { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5
-$as_echo "none needed" >&6; } ;;
-  xno)
-    { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5
-$as_echo "unsupported" >&6; } ;;
-  *)
-    CC="$CC $ac_cv_prog_cc_c89"
-    { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5
-$as_echo "$ac_cv_prog_cc_c89" >&6; } ;;
-esac
-if test "x$ac_cv_prog_cc_c89" != xno; then :
-
-fi
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-    ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5
-$as_echo_n "checking how to run the C preprocessor... " >&6; }
-# On Suns, sometimes $CPP names a directory.
-if test -n "$CPP" && test -d "$CPP"; then
-  CPP=
-fi
-if test -z "$CPP"; then
-  if ${ac_cv_prog_CPP+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-      # Double quotes because CPP needs to be expanded
-    for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp"
-    do
-      ac_preproc_ok=false
-for ac_c_preproc_warn_flag in '' yes
-do
-  # Use a header file that comes with gcc, so configuring glibc
-  # with a fresh cross-compiler works.
-  # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
-  # <limits.h> exists even on freestanding compilers.
-  # On the NeXT, cc -E runs the code through the compiler's parser,
-  # not just through cpp. "Syntax error" is here to catch this case.
-  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
-		     Syntax error
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
-
-else
-  # Broken: fails on valid input.
-continue
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
-  # OK, works on sane cases.  Now check whether nonexistent headers
-  # can be detected and how.
-  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#include <ac_nonexistent.h>
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
-  # Broken: success on invalid input.
-continue
-else
-  # Passes both tests.
-ac_preproc_ok=:
-break
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
-done
-# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.i conftest.err conftest.$ac_ext
-if $ac_preproc_ok; then :
-  break
-fi
-
-    done
-    ac_cv_prog_CPP=$CPP
-
-fi
-  CPP=$ac_cv_prog_CPP
-else
-  ac_cv_prog_CPP=$CPP
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5
-$as_echo "$CPP" >&6; }
-ac_preproc_ok=false
-for ac_c_preproc_warn_flag in '' yes
-do
-  # Use a header file that comes with gcc, so configuring glibc
-  # with a fresh cross-compiler works.
-  # Prefer <limits.h> to <assert.h> if __STDC__ is defined, since
-  # <limits.h> exists even on freestanding compilers.
-  # On the NeXT, cc -E runs the code through the compiler's parser,
-  # not just through cpp. "Syntax error" is here to catch this case.
-  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#ifdef __STDC__
-# include <limits.h>
-#else
-# include <assert.h>
-#endif
-		     Syntax error
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
-
-else
-  # Broken: fails on valid input.
-continue
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
-  # OK, works on sane cases.  Now check whether nonexistent headers
-  # can be detected and how.
-  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#include <ac_nonexistent.h>
-_ACEOF
-if ac_fn_c_try_cpp "$LINENO"; then :
-  # Broken: success on invalid input.
-continue
-else
-  # Passes both tests.
-ac_preproc_ok=:
-break
-fi
-rm -f conftest.err conftest.i conftest.$ac_ext
-
-done
-# Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped.
-rm -f conftest.i conftest.err conftest.$ac_ext
-if $ac_preproc_ok; then :
-
-else
-  { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5
-$as_echo "$as_me: error: in \`$ac_pwd':" >&2;}
-as_fn_error $? "C preprocessor \"$CPP\" fails sanity check
-See \`config.log' for more details" "$LINENO" 5; }
-fi
-
-ac_ext=c
-ac_cpp='$CPP $CPPFLAGS'
-ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5'
-ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5'
-ac_compiler_gnu=$ac_cv_c_compiler_gnu
-
-
-    #--------------------------------------------------------------------
-    # Checks to see if the make program sets the $MAKE variable.
-    #--------------------------------------------------------------------
-
-    { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5
-$as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; }
-set x ${MAKE-make}
-ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'`
-if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  cat >conftest.make <<\_ACEOF
-SHELL = /bin/sh
-all:
-	@echo '@@@%%%=$(MAKE)=@@@%%%'
-_ACEOF
-# GNU make sometimes prints "make[1]: Entering ...", which would confuse us.
-case `${MAKE-make} -f conftest.make 2>/dev/null` in
-  *@@@%%%=?*=@@@%%%*)
-    eval ac_cv_prog_make_${ac_make}_set=yes;;
-  *)
-    eval ac_cv_prog_make_${ac_make}_set=no;;
-esac
-rm -f conftest.make
-fi
-if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5
-$as_echo "yes" >&6; }
-  SET_MAKE=
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-  SET_MAKE="MAKE=${MAKE-make}"
-fi
-
-
-    #--------------------------------------------------------------------
-    # Find ranlib
-    #--------------------------------------------------------------------
-
-    if test -n "$ac_tool_prefix"; then
-  # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args.
-set dummy ${ac_tool_prefix}ranlib; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_RANLIB+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$RANLIB"; then
-  ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-fi
-fi
-RANLIB=$ac_cv_prog_RANLIB
-if test -n "$RANLIB"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5
-$as_echo "$RANLIB" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-
-fi
-if test -z "$ac_cv_prog_RANLIB"; then
-  ac_ct_RANLIB=$RANLIB
-  # Extract the first word of "ranlib", so it can be a program name with args.
-set dummy ranlib; ac_word=$2
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
-$as_echo_n "checking for $ac_word... " >&6; }
-if ${ac_cv_prog_ac_ct_RANLIB+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -n "$ac_ct_RANLIB"; then
-  ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test.
-else
-as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_exec_ext in '' $ac_executable_extensions; do
-  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
-    ac_cv_prog_ac_ct_RANLIB="ranlib"
-    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
-    break 2
-  fi
-done
-  done
-IFS=$as_save_IFS
-
-fi
-fi
-ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB
-if test -n "$ac_ct_RANLIB"; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5
-$as_echo "$ac_ct_RANLIB" >&6; }
-else
-  { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
-$as_echo "no" >&6; }
-fi
-
-  if test "x$ac_ct_RANLIB" = x; then
-    RANLIB=""
-  else
-    case $cross_compiling:$ac_tool_warned in
-yes:)
-{ $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5
-$as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;}
-ac_tool_warned=yes ;;
-esac
-    RANLIB=$ac_ct_RANLIB
-  fi
-else
-  RANLIB="$ac_cv_prog_RANLIB"
-fi
-
-
-    #--------------------------------------------------------------------
-    # Determines the correct binary file extension (.o, .obj, .exe etc.)
-    #--------------------------------------------------------------------
-
-
-
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5
-$as_echo_n "checking for grep that handles long lines and -e... " >&6; }
-if ${ac_cv_path_GREP+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if test -z "$GREP"; then
-  ac_path_GREP_found=false
-  # Loop through the user's path and test for each of PROGNAME-LIST
-  as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_prog in grep ggrep; do
-    for ac_exec_ext in '' $ac_executable_extensions; do
-      ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext"
-      as_fn_executable_p "$ac_path_GREP" || continue
-# Check for GNU ac_path_GREP and select it if it is found.
-  # Check for GNU $ac_path_GREP
-case `"$ac_path_GREP" --version 2>&1` in
-*GNU*)
-  ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;;
-*)
-  ac_count=0
-  $as_echo_n 0123456789 >"conftest.in"
-  while :
-  do
-    cat "conftest.in" "conftest.in" >"conftest.tmp"
-    mv "conftest.tmp" "conftest.in"
-    cp "conftest.in" "conftest.nl"
-    $as_echo 'GREP' >> "conftest.nl"
-    "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break
-    diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
-    as_fn_arith $ac_count + 1 && ac_count=$as_val
-    if test $ac_count -gt ${ac_path_GREP_max-0}; then
-      # Best one so far, save it but keep looking for a better one
-      ac_cv_path_GREP="$ac_path_GREP"
-      ac_path_GREP_max=$ac_count
-    fi
-    # 10*(2^10) chars as input seems more than enough
-    test $ac_count -gt 10 && break
-  done
-  rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
-esac
-
-      $ac_path_GREP_found && break 3
-    done
-  done
-  done
-IFS=$as_save_IFS
-  if test -z "$ac_cv_path_GREP"; then
-    as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
-  fi
-else
-  ac_cv_path_GREP=$GREP
-fi
-
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5
-$as_echo "$ac_cv_path_GREP" >&6; }
- GREP="$ac_cv_path_GREP"
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5
-$as_echo_n "checking for egrep... " >&6; }
-if ${ac_cv_path_EGREP+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  if echo a | $GREP -E '(a|b)' >/dev/null 2>&1
-   then ac_cv_path_EGREP="$GREP -E"
-   else
-     if test -z "$EGREP"; then
-  ac_path_EGREP_found=false
-  # Loop through the user's path and test for each of PROGNAME-LIST
-  as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    for ac_prog in egrep; do
-    for ac_exec_ext in '' $ac_executable_extensions; do
-      ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext"
-      as_fn_executable_p "$ac_path_EGREP" || continue
-# Check for GNU ac_path_EGREP and select it if it is found.
-  # Check for GNU $ac_path_EGREP
-case `"$ac_path_EGREP" --version 2>&1` in
-*GNU*)
-  ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;;
-*)
-  ac_count=0
-  $as_echo_n 0123456789 >"conftest.in"
-  while :
-  do
-    cat "conftest.in" "conftest.in" >"conftest.tmp"
-    mv "conftest.tmp" "conftest.in"
-    cp "conftest.in" "conftest.nl"
-    $as_echo 'EGREP' >> "conftest.nl"
-    "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break
-    diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break
-    as_fn_arith $ac_count + 1 && ac_count=$as_val
-    if test $ac_count -gt ${ac_path_EGREP_max-0}; then
-      # Best one so far, save it but keep looking for a better one
-      ac_cv_path_EGREP="$ac_path_EGREP"
-      ac_path_EGREP_max=$ac_count
-    fi
-    # 10*(2^10) chars as input seems more than enough
-    test $ac_count -gt 10 && break
-  done
-  rm -f conftest.in conftest.tmp conftest.nl conftest.out;;
-esac
-
-      $ac_path_EGREP_found && break 3
-    done
-  done
-  done
-IFS=$as_save_IFS
-  if test -z "$ac_cv_path_EGREP"; then
-    as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5
-  fi
-else
-  ac_cv_path_EGREP=$EGREP
-fi
-
-   fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5
-$as_echo "$ac_cv_path_EGREP" >&6; }
- EGREP="$ac_cv_path_EGREP"
-
-
-{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5
-$as_echo_n "checking for ANSI C header files... " >&6; }
-if ${ac_cv_header_stdc+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#include <stdlib.h>
-#include <stdarg.h>
-#include <string.h>
-#include <float.h>
-
-int
-main ()
-{
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-  ac_cv_header_stdc=yes
-else
-  ac_cv_header_stdc=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-
-if test $ac_cv_header_stdc = yes; then
-  # SunOS 4.x string.h does not declare mem*, contrary to ANSI.
-  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#include <string.h>
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
-  $EGREP "memchr" >/dev/null 2>&1; then :
-
-else
-  ac_cv_header_stdc=no
-fi
-rm -f conftest*
-
-fi
-
-if test $ac_cv_header_stdc = yes; then
-  # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI.
-  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#include <stdlib.h>
-
-_ACEOF
-if (eval "$ac_cpp conftest.$ac_ext") 2>&5 |
-  $EGREP "free" >/dev/null 2>&1; then :
-
-else
-  ac_cv_header_stdc=no
-fi
-rm -f conftest*
-
-fi
-
-if test $ac_cv_header_stdc = yes; then
-  # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi.
-  if test "$cross_compiling" = yes; then :
-  :
-else
-  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#include <ctype.h>
-#include <stdlib.h>
-#if ((' ' & 0x0FF) == 0x020)
-# define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
-# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
-#else
-# define ISLOWER(c) \
-		   (('a' <= (c) && (c) <= 'i') \
-		     || ('j' <= (c) && (c) <= 'r') \
-		     || ('s' <= (c) && (c) <= 'z'))
-# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c))
-#endif
-
-#define XOR(e, f) (((e) && !(f)) || (!(e) && (f)))
-int
-main ()
-{
-  int i;
-  for (i = 0; i < 256; i++)
-    if (XOR (islower (i), ISLOWER (i))
-	|| toupper (i) != TOUPPER (i))
-      return 2;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
-
-else
-  ac_cv_header_stdc=no
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
-  conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5
-$as_echo "$ac_cv_header_stdc" >&6; }
-if test $ac_cv_header_stdc = yes; then
-
-$as_echo "#define STDC_HEADERS 1" >>confdefs.h
-
-fi
-
-# On IRIX 5.3, sys/types and inttypes.h are conflicting.
-for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \
-		  inttypes.h stdint.h unistd.h
-do :
-  as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
-ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default
-"
-if eval test \"x\$"$as_ac_Header"\" = x"yes"; then :
-  cat >>confdefs.h <<_ACEOF
-#define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1
-_ACEOF
-
-fi
-
-done
-
-
-
-    # Any macros that use the compiler (e.g. AC_TRY_COMPILE) have to go here.
-
-
-    #------------------------------------------------------------------------
-    # If we're using GCC, see if the compiler understands -pipe. If so, use it.
-    # It makes compiling go faster.  (This is only a performance feature.)
-    #------------------------------------------------------------------------
-
-    if test -z "$no_pipe" -a -n "$GCC"; then
-	{ $as_echo "$as_me:${as_lineno-$LINENO}: checking if the compiler understands -pipe" >&5
-$as_echo_n "checking if the compiler understands -pipe... " >&6; }
-if ${tcl_cv_cc_pipe+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-
-	    hold_cflags=$CFLAGS; CFLAGS="$CFLAGS -pipe"
-	    cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-
-int
-main ()
-{
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-  tcl_cv_cc_pipe=yes
-else
-  tcl_cv_cc_pipe=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-	    CFLAGS=$hold_cflags
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $tcl_cv_cc_pipe" >&5
-$as_echo "$tcl_cv_cc_pipe" >&6; }
-	if test $tcl_cv_cc_pipe = yes; then
-	    CFLAGS="$CFLAGS -pipe"
-	fi
-    fi
-
-    #--------------------------------------------------------------------
-    # Common compiler flag setup
-    #--------------------------------------------------------------------
-
-     { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether byte ordering is bigendian" >&5
-$as_echo_n "checking whether byte ordering is bigendian... " >&6; }
-if ${ac_cv_c_bigendian+:} false; then :
-  $as_echo_n "(cached) " >&6
-else
-  ac_cv_c_bigendian=unknown
-    # See if we're dealing with a universal compiler.
-    cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#ifndef __APPLE_CC__
-	       not a universal capable compiler
-	     #endif
-	     typedef int dummy;
-
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-
-	# Check for potential -arch flags.  It is not universal unless
-	# there are at least two -arch flags with different values.
-	ac_arch=
-	ac_prev=
-	for ac_word in $CC $CFLAGS $CPPFLAGS $LDFLAGS; do
-	 if test -n "$ac_prev"; then
-	   case $ac_word in
-	     i?86 | x86_64 | ppc | ppc64)
-	       if test -z "$ac_arch" || test "$ac_arch" = "$ac_word"; then
-		 ac_arch=$ac_word
-	       else
-		 ac_cv_c_bigendian=universal
-		 break
-	       fi
-	       ;;
-	   esac
-	   ac_prev=
-	 elif test "x$ac_word" = "x-arch"; then
-	   ac_prev=arch
-	 fi
-       done
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-    if test $ac_cv_c_bigendian = unknown; then
-      # See if sys/param.h defines the BYTE_ORDER macro.
-      cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#include <sys/types.h>
-	     #include <sys/param.h>
-
-int
-main ()
-{
-#if ! (defined BYTE_ORDER && defined BIG_ENDIAN \
-		     && defined LITTLE_ENDIAN && BYTE_ORDER && BIG_ENDIAN \
-		     && LITTLE_ENDIAN)
-	      bogus endian macros
-	     #endif
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-  # It does; now see whether it defined to BIG_ENDIAN or not.
-	 cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#include <sys/types.h>
-		#include <sys/param.h>
-
-int
-main ()
-{
-#if BYTE_ORDER != BIG_ENDIAN
-		 not big endian
-		#endif
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-  ac_cv_c_bigendian=yes
-else
-  ac_cv_c_bigendian=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-    fi
-    if test $ac_cv_c_bigendian = unknown; then
-      # See if <limits.h> defines _LITTLE_ENDIAN or _BIG_ENDIAN (e.g., Solaris).
-      cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#include <limits.h>
-
-int
-main ()
-{
-#if ! (defined _LITTLE_ENDIAN || defined _BIG_ENDIAN)
-	      bogus endian macros
-	     #endif
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-  # It does; now see whether it defined to _BIG_ENDIAN or not.
-	 cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-#include <limits.h>
-
-int
-main ()
-{
-#ifndef _BIG_ENDIAN
-		 not big endian
-		#endif
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-  ac_cv_c_bigendian=yes
-else
-  ac_cv_c_bigendian=no
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-    fi
-    if test $ac_cv_c_bigendian = unknown; then
-      # Compile a test program.
-      if test "$cross_compiling" = yes; then :
-  # Try to guess by grepping values from an object file.
-	 cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-short int ascii_mm[] =
-		  { 0x4249, 0x4765, 0x6E44, 0x6961, 0x6E53, 0x7953, 0 };
-		short int ascii_ii[] =
-		  { 0x694C, 0x5454, 0x656C, 0x6E45, 0x6944, 0x6E61, 0 };
-		int use_ascii (int i) {
-		  return ascii_mm[i] + ascii_ii[i];
-		}
-		short int ebcdic_ii[] =
-		  { 0x89D3, 0xE3E3, 0x8593, 0x95C5, 0x89C4, 0x9581, 0 };
-		short int ebcdic_mm[] =
-		  { 0xC2C9, 0xC785, 0x95C4, 0x8981, 0x95E2, 0xA8E2, 0 };
-		int use_ebcdic (int i) {
-		  return ebcdic_mm[i] + ebcdic_ii[i];
-		}
-		extern int foo;
-
-int
-main ()
-{
-return use_ascii (foo) == use_ebcdic (foo);
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
-  if grep BIGenDianSyS conftest.$ac_objext >/dev/null; then
-	      ac_cv_c_bigendian=yes
-	    fi
-	    if grep LiTTleEnDian conftest.$ac_objext >/dev/null ; then
-	      if test "$ac_cv_c_bigendian" = unknown; then
-		ac_cv_c_bigendian=no
-	      else
-		# finding both strings is unlikely to happen, but who knows?
-		ac_cv_c_bigendian=unknown
-	      fi
-	    fi
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-else
-  cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h.  */
-$ac_includes_default
-int
-main ()
-{
-
-	     /* Are we little or big endian?  From Harbison&Steele.  */
-	     union
-	     {
-	       long int l;
-	       char c[sizeof (long int)];
-	     } u;
-	     u.l = 1;
-	     return u.c[sizeof (long int) - 1] == 1;
-
-  ;
-  return 0;
-}
-_ACEOF
-if ac_fn_c_try_run "$LINENO"; then :
-  ac_cv_c_bigendian=no
-else
-  ac_cv_c_bigendian=yes
-fi
-rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \
-  conftest.$ac_objext conftest.beam conftest.$ac_ext
-fi
-
-    fi
-fi
-{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_bigendian" >&5
-$as_echo "$ac_cv_c_bigendian" >&6; }
- case $ac_cv_c_bigendian in #(
-   yes)
-     $as_echo "#define WORDS_BIGENDIAN 1" >>confdefs.h
-;; #(
-   no)
-      ;; #(
-   universal)
-
-$as_echo "#define AC_APPLE_UNIVERSAL_BUILD 1" >>confdefs.h
-
-     ;; #(
-   *)
-     as_fn_error $? "unknown endianness
- presetting ac_cv_c_bigendian=no (or yes) will help" "$LINENO" 5 ;;
- esac
-
-
-
-#-----------------------------------------------------------------------
-# __CHANGE__
-# Specify the C source files to compile in TEA_ADD_SOURCES,
-# public headers that need to be installed in TEA_ADD_HEADERS,
-# stub library C source files to compile in TEA_ADD_STUB_SOURCES,
-# and runtime Tcl library files in TEA_ADD_TCL_SOURCES.
-# This defines PKG(_STUB)_SOURCES, PKG(_STUB)_OBJECTS, PKG_HEADERS
-# and PKG_TCL_SOURCES.
-#-----------------------------------------------------------------------
-
-
-    vars=""
-    for i in $vars; do
-	case $i in
-	    \$*)
-		# allow $-var names
-		PKG_SOURCES="$PKG_SOURCES $i"
-		PKG_OBJECTS="$PKG_OBJECTS $i"
-		;;
-	    *)
-		# check for existence - allows for generic/win/unix VPATH
-		# To add more dirs here (like 'src'), you have to update VPATH
-		# in Makefile.in as well
-		if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \
-		    -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \
-		    -a ! -f "${srcdir}/macosx/$i" \
-		    ; then
-		    as_fn_error $? "could not find source file '$i'" "$LINENO" 5
-		fi
-		PKG_SOURCES="$PKG_SOURCES $i"
-		# this assumes it is in a VPATH dir
-		i=`basename $i`
-		# handle user calling this before or after TEA_SETUP_COMPILER
-		if test x"${OBJEXT}" != x ; then
-		    j="`echo $i | sed -e 's/\.[^.]*$//'`.${OBJEXT}"
-		else
-		    j="`echo $i | sed -e 's/\.[^.]*$//'`.\${OBJEXT}"
-		fi
-		PKG_OBJECTS="$PKG_OBJECTS $j"
-		;;
-	esac
-    done
-
-
-
-
-    vars=""
-    for i in $vars; do
-	# check for existence, be strict because it is installed
-	if test ! -f "${srcdir}/$i" ; then
-	    as_fn_error $? "could not find header file '${srcdir}/$i'" "$LINENO" 5
-	fi
-	PKG_HEADERS="$PKG_HEADERS $i"
-    done
-
-
-
-    vars=""
-    for i in $vars; do
-	PKG_INCLUDES="$PKG_INCLUDES $i"
-    done
-
-
-
-    vars=""
-    for i in $vars; do
-	if test "${TEA_PLATFORM}" = "windows" -a "$GCC" = "yes" ; then
-	    # Convert foo.lib to -lfoo for GCC.  No-op if not *.lib
-	    i=`echo "$i" | sed -e 's/^\([^-].*\)\.lib$/-l\1/i'`
-	fi
-	PKG_LIBS="$PKG_LIBS $i"
-    done
-
-
-
-    PKG_CFLAGS="$PKG_CFLAGS "
-
-
-
-    vars=""
-    for i in $vars; do
-	# check for existence - allows for generic/win/unix VPATH
-	if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \
-	    -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \
-	    -a ! -f "${srcdir}/macosx/$i" \
-	    ; then
-	    as_fn_error $? "could not find stub source file '$i'" "$LINENO" 5
-	fi
-	PKG_STUB_SOURCES="$PKG_STUB_SOURCES $i"
-	# this assumes it is in a VPATH dir
-	i=`basename $i`
-	# handle user calling this before or after TEA_SETUP_COMPILER
-	if test x"${OBJEXT}" != x ; then
-	    j="`echo $i | sed -e 's/\.[^.]*$//'`.${OBJEXT}"
-	else
-	    j="`echo $i | sed -e 's/\.[^.]*$//'`.\${OBJEXT}"
-	fi
-	PKG_STUB_OBJECTS="$PKG_STUB_OBJECTS $j"
-    done
-
-
-
-
-    vars="tkcon.tcl"
-    for i in $vars; do
-	# check for existence, be strict because it is installed
-	if test ! -f "${srcdir}/$i" ; then
-	    as_fn_error $? "could not find tcl source file '${srcdir}/$i'" "$LINENO" 5
-	fi
-	PKG_TCL_SOURCES="$PKG_TCL_SOURCES $i"
-    done
-
-
-
-#--------------------------------------------------------------------
-# __CHANGE__
-#
-# You can add more files to clean if your extension creates any extra
-# files by extending CLEANFILES.
-# Add pkgIndex.tcl if it is generated in the Makefile instead of ./configure
-# and change Makefile.in to move it from CONFIG_CLEAN_FILES to BINARIES var.
-#
-# A few miscellaneous platform-specific items:
-# TEA_ADD_* any platform specific compiler/build info here.
-#--------------------------------------------------------------------
-
-#CLEANFILES="$CLEANFILES pkgIndex.tcl"
-if test "${TEA_PLATFORM}" = "windows" ; then
-    # Ensure no empty if clauses
-    :
-    #TEA_ADD_SOURCES([win/winFile.c])
-    #TEA_ADD_INCLUDES([-I\"$(${CYGPATH} ${srcdir}/win)\"])
-else
-    # Ensure no empty else clauses
-    :
-    #TEA_ADD_SOURCES([unix/unixFile.c])
-    #TEA_ADD_LIBS([-lsuperfly])
-fi
-
-#--------------------------------------------------------------------
-# __CHANGE__
-# Choose which headers you need.  Extension authors should try very
-# hard to only rely on the Tcl public header files.  Internal headers
-# contain private data structures and are subject to change without
-# notice.
-# This MUST be called after TEA_LOAD_TCLCONFIG / TEA_LOAD_TKCONFIG
-#--------------------------------------------------------------------
-
-#TEA_PUBLIC_TCL_HEADERS
-#TEA_PRIVATE_TCL_HEADERS
-
-#TEA_PUBLIC_TK_HEADERS
-#TEA_PRIVATE_TK_HEADERS
-#TEA_PATH_X
-
-#--------------------------------------------------------------------
-# Check whether --enable-threads or --disable-threads was given.
-# This auto-enables if Tcl was compiled threaded.
-#--------------------------------------------------------------------
-
-#TEA_ENABLE_THREADS
-
-#--------------------------------------------------------------------
-# The statement below defines a collection of symbols related to
-# building as a shared library instead of a static library.
-#--------------------------------------------------------------------
-
-#TEA_ENABLE_SHARED
-
-#--------------------------------------------------------------------
-# This macro figures out what flags to use with the compiler/linker
-# when building shared/static debug/optimized objects.  This information
-# can be taken from the tclConfig.sh file, but this figures it all out.
-#--------------------------------------------------------------------
-
-#TEA_CONFIG_CFLAGS
-
-#--------------------------------------------------------------------
-# Set the default compiler switches based on the --enable-symbols option.
-#--------------------------------------------------------------------
-
-#TEA_ENABLE_SYMBOLS
-
-#--------------------------------------------------------------------
-# This macro generates a line to use when building a library.  It
-# depends on values set by the TEA_ENABLE_SHARED, TEA_ENABLE_SYMBOLS,
-# and TEA_LOAD_TCLCONFIG macros above.
-#--------------------------------------------------------------------
-
-#TEA_MAKE_LIB
-
-#--------------------------------------------------------------------
-# Determine the name of the tclsh and/or wish executables in the
-# Tcl and Tk build directories or the location they were installed
-# into. These paths are used to support running test cases only,
-# the Makefile should not be making use of these paths to generate
-# a pkgIndex.tcl file or anything else at extension build time.
-#--------------------------------------------------------------------
-
-#TEA_PROG_TCLSH
-#TEA_PROG_WISH
-
-#--------------------------------------------------------------------
-# Setup a *Config.sh.in configuration file.
-#--------------------------------------------------------------------
-
-#TEA_EXPORT_CONFIG([sample])
-#AC_SUBST(SAMPLE_VAR)
-
-#--------------------------------------------------------------------
-# Specify files to substitute AC variables in. You may alternatively
-# have a special pkgIndex.tcl.in or other files which require
-# substituting the AC variables in. Include these here.
-#--------------------------------------------------------------------
-
-ac_config_files="$ac_config_files Makefile"
-
-#AC_CONFIG_FILES([sampleConfig.sh])
-
-#--------------------------------------------------------------------
-# Finally, substitute all of the various values into the files
-# specified with AC_CONFIG_FILES.
-#--------------------------------------------------------------------
-
-cat >confcache <<\_ACEOF
-# This file is a shell script that caches the results of configure
-# tests run on this system so they can be shared between configure
-# scripts and configure runs, see configure's option --config-cache.
-# It is not useful on other systems.  If it contains results you don't
-# want to keep, you may remove or edit it.
-#
-# config.status only pays attention to the cache file if you give it
-# the --recheck option to rerun configure.
-#
-# `ac_cv_env_foo' variables (set or unset) will be overridden when
-# loading this file, other *unset* `ac_cv_foo' will be assigned the
-# following values.
-
-_ACEOF
-
-# The following way of writing the cache mishandles newlines in values,
-# but we know of no workaround that is simple, portable, and efficient.
-# So, we kill variables containing newlines.
-# Ultrix sh set writes to stderr and can't be redirected directly,
-# and sets the high bit in the cache file unless we assign to the vars.
-(
-  for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do
-    eval ac_val=\$$ac_var
-    case $ac_val in #(
-    *${as_nl}*)
-      case $ac_var in #(
-      *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5
-$as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;;
-      esac
-      case $ac_var in #(
-      _ | IFS | as_nl) ;; #(
-      BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #(
-      *) { eval $ac_var=; unset $ac_var;} ;;
-      esac ;;
-    esac
-  done
-
-  (set) 2>&1 |
-    case $as_nl`(ac_space=' '; set) 2>&1` in #(
-    *${as_nl}ac_space=\ *)
-      # `set' does not quote correctly, so add quotes: double-quote
-      # substitution turns \\\\ into \\, and sed turns \\ into \.
-      sed -n \
-	"s/'/'\\\\''/g;
-	  s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p"
-      ;; #(
-    *)
-      # `set' quotes correctly as required by POSIX, so do not add quotes.
-      sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p"
-      ;;
-    esac |
-    sort
-) |
-  sed '
-     /^ac_cv_env_/b end
-     t clear
-     :clear
-     s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/
-     t end
-     s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/
-     :end' >>confcache
-if diff "$cache_file" confcache >/dev/null 2>&1; then :; else
-  if test -w "$cache_file"; then
-    if test "x$cache_file" != "x/dev/null"; then
-      { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5
-$as_echo "$as_me: updating cache $cache_file" >&6;}
-      if test ! -f "$cache_file" || test -h "$cache_file"; then
-	cat confcache >"$cache_file"
-      else
-        case $cache_file in #(
-        */* | ?:*)
-	  mv -f confcache "$cache_file"$$ &&
-	  mv -f "$cache_file"$$ "$cache_file" ;; #(
-        *)
-	  mv -f confcache "$cache_file" ;;
-	esac
-      fi
-    fi
-  else
-    { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5
-$as_echo "$as_me: not updating unwritable cache $cache_file" >&6;}
-  fi
-fi
-rm -f confcache
-
-test "x$prefix" = xNONE && prefix=$ac_default_prefix
-# Let make expand exec_prefix.
-test "x$exec_prefix" = xNONE && exec_prefix='${prefix}'
-
-# Transform confdefs.h into DEFS.
-# Protect against shell expansion while executing Makefile rules.
-# Protect against Makefile macro expansion.
-#
-# If the first sed substitution is executed (which looks for macros that
-# take arguments), then branch to the quote section.  Otherwise,
-# look for a macro that doesn't take arguments.
-ac_script='
-:mline
-/\\$/{
- N
- s,\\\n,,
- b mline
-}
-t clear
-:clear
-s/^[	 ]*#[	 ]*define[	 ][	 ]*\([^	 (][^	 (]*([^)]*)\)[	 ]*\(.*\)/-D\1=\2/g
-t quote
-s/^[	 ]*#[	 ]*define[	 ][	 ]*\([^	 ][^	 ]*\)[	 ]*\(.*\)/-D\1=\2/g
-t quote
-b any
-:quote
-s/[	 `~#$^&*(){}\\|;'\''"<>?]/\\&/g
-s/\[/\\&/g
-s/\]/\\&/g
-s/\$/$$/g
-H
-:any
-${
-	g
-	s/^\n//
-	s/\n/ /g
-	p
-}
-'
-DEFS=`sed -n "$ac_script" confdefs.h`
-
-
-ac_libobjs=
-ac_ltlibobjs=
-U=
-for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue
-  # 1. Remove the extension, and $U if already installed.
-  ac_script='s/\$U\././;s/\.o$//;s/\.obj$//'
-  ac_i=`$as_echo "$ac_i" | sed "$ac_script"`
-  # 2. Prepend LIBOBJDIR.  When used with automake>=1.10 LIBOBJDIR
-  #    will be set to the directory where LIBOBJS objects are built.
-  as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext"
-  as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo'
-done
-LIBOBJS=$ac_libobjs
-
-LTLIBOBJS=$ac_ltlibobjs
-
-
-
-
-: "${CONFIG_STATUS=./config.status}"
-ac_write_fail=0
-ac_clean_files_save=$ac_clean_files
-ac_clean_files="$ac_clean_files $CONFIG_STATUS"
-{ $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5
-$as_echo "$as_me: creating $CONFIG_STATUS" >&6;}
-as_write_fail=0
-cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1
-#! $SHELL
-# Generated by $as_me.
-# Run this file to recreate the current configuration.
-# Compiler output produced by configure, useful for debugging
-# configure, is in config.log if it exists.
-
-debug=false
-ac_cs_recheck=false
-ac_cs_silent=false
-
-SHELL=\${CONFIG_SHELL-$SHELL}
-export SHELL
-_ASEOF
-cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1
-## -------------------- ##
-## M4sh Initialization. ##
-## -------------------- ##
-
-# Be more Bourne compatible
-DUALCASE=1; export DUALCASE # for MKS sh
-if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
-  emulate sh
-  NULLCMD=:
-  # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
-  # is contrary to our usage.  Disable this feature.
-  alias -g '${1+"$@"}'='"$@"'
-  setopt NO_GLOB_SUBST
-else
-  case `(set -o) 2>/dev/null` in #(
-  *posix*) :
-    set -o posix ;; #(
-  *) :
-     ;;
-esac
-fi
-
-
-as_nl='
-'
-export as_nl
-# Printing a long string crashes Solaris 7 /usr/bin/printf.
-as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
-# Prefer a ksh shell builtin over an external printf program on Solaris,
-# but without wasting forks for bash or zsh.
-if test -z "$BASH_VERSION$ZSH_VERSION" \
-    && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
-  as_echo='print -r --'
-  as_echo_n='print -rn --'
-elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
-  as_echo='printf %s\n'
-  as_echo_n='printf %s'
-else
-  if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
-    as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
-    as_echo_n='/usr/ucb/echo -n'
-  else
-    as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
-    as_echo_n_body='eval
-      arg=$1;
-      case $arg in #(
-      *"$as_nl"*)
-	expr "X$arg" : "X\\(.*\\)$as_nl";
-	arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
-      esac;
-      expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
-    '
-    export as_echo_n_body
-    as_echo_n='sh -c $as_echo_n_body as_echo'
-  fi
-  export as_echo_body
-  as_echo='sh -c $as_echo_body as_echo'
-fi
-
-# The user is always right.
-if test "${PATH_SEPARATOR+set}" != set; then
-  PATH_SEPARATOR=:
-  (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
-    (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
-      PATH_SEPARATOR=';'
-  }
-fi
-
-
-# IFS
-# We need space, tab and new line, in precisely that order.  Quoting is
-# there to prevent editors from complaining about space-tab.
-# (If _AS_PATH_WALK were called with IFS unset, it would disable word
-# splitting by setting IFS to empty value.)
-IFS=" ""	$as_nl"
-
-# Find who we are.  Look in the path if we contain no directory separator.
-as_myself=
-case $0 in #((
-  *[\\/]* ) as_myself=$0 ;;
-  *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
-  IFS=$as_save_IFS
-  test -z "$as_dir" && as_dir=.
-    test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
-  done
-IFS=$as_save_IFS
-
-     ;;
-esac
-# We did not find ourselves, most probably we were run as `sh COMMAND'
-# in which case we are not to be found in the path.
-if test "x$as_myself" = x; then
-  as_myself=$0
-fi
-if test ! -f "$as_myself"; then
-  $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
-  exit 1
-fi
-
-# Unset variables that we do not need and which cause bugs (e.g. in
-# pre-3.0 UWIN ksh).  But do not cause bugs in bash 2.01; the "|| exit 1"
-# suppresses any "Segmentation fault" message there.  '((' could
-# trigger a bug in pdksh 5.2.14.
-for as_var in BASH_ENV ENV MAIL MAILPATH
-do eval test x\${$as_var+set} = xset \
-  && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
-done
-PS1='$ '
-PS2='> '
-PS4='+ '
-
-# NLS nuisances.
-LC_ALL=C
-export LC_ALL
-LANGUAGE=C
-export LANGUAGE
-
-# CDPATH.
-(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
-
-
-# as_fn_error STATUS ERROR [LINENO LOG_FD]
-# ----------------------------------------
-# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
-# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
-# script with STATUS, using 1 if that was 0.
-as_fn_error ()
-{
-  as_status=$1; test $as_status -eq 0 && as_status=1
-  if test "$4"; then
-    as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
-    $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4
-  fi
-  $as_echo "$as_me: error: $2" >&2
-  as_fn_exit $as_status
-} # as_fn_error
-
-
-# as_fn_set_status STATUS
-# -----------------------
-# Set $? to STATUS, without forking.
-as_fn_set_status ()
-{
-  return $1
-} # as_fn_set_status
-
-# as_fn_exit STATUS
-# -----------------
-# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
-as_fn_exit ()
-{
-  set +e
-  as_fn_set_status $1
-  exit $1
-} # as_fn_exit
-
-# as_fn_unset VAR
-# ---------------
-# Portably unset VAR.
-as_fn_unset ()
-{
-  { eval $1=; unset $1;}
-}
-as_unset=as_fn_unset
-# as_fn_append VAR VALUE
-# ----------------------
-# Append the text in VALUE to the end of the definition contained in VAR. Take
-# advantage of any shell optimizations that allow amortized linear growth over
-# repeated appends, instead of the typical quadratic growth present in naive
-# implementations.
-if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
-  eval 'as_fn_append ()
-  {
-    eval $1+=\$2
-  }'
-else
-  as_fn_append ()
-  {
-    eval $1=\$$1\$2
-  }
-fi # as_fn_append
-
-# as_fn_arith ARG...
-# ------------------
-# Perform arithmetic evaluation on the ARGs, and store the result in the
-# global $as_val. Take advantage of shells that can avoid forks. The arguments
-# must be portable across $(()) and expr.
-if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
-  eval 'as_fn_arith ()
-  {
-    as_val=$(( $* ))
-  }'
-else
-  as_fn_arith ()
-  {
-    as_val=`expr "$@" || test $? -eq 1`
-  }
-fi # as_fn_arith
-
-
-if expr a : '\(a\)' >/dev/null 2>&1 &&
-   test "X`expr 00001 : '.*\(...\)'`" = X001; then
-  as_expr=expr
-else
-  as_expr=false
-fi
-
-if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
-  as_basename=basename
-else
-  as_basename=false
-fi
-
-if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
-  as_dirname=dirname
-else
-  as_dirname=false
-fi
-
-as_me=`$as_basename -- "$0" ||
-$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
-	 X"$0" : 'X\(//\)$' \| \
-	 X"$0" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X/"$0" |
-    sed '/^.*\/\([^/][^/]*\)\/*$/{
-	    s//\1/
-	    q
-	  }
-	  /^X\/\(\/\/\)$/{
-	    s//\1/
-	    q
-	  }
-	  /^X\/\(\/\).*/{
-	    s//\1/
-	    q
-	  }
-	  s/.*/./; q'`
-
-# Avoid depending upon Character Ranges.
-as_cr_letters='abcdefghijklmnopqrstuvwxyz'
-as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-as_cr_Letters=$as_cr_letters$as_cr_LETTERS
-as_cr_digits='0123456789'
-as_cr_alnum=$as_cr_Letters$as_cr_digits
-
-ECHO_C= ECHO_N= ECHO_T=
-case `echo -n x` in #(((((
--n*)
-  case `echo 'xy\c'` in
-  *c*) ECHO_T='	';;	# ECHO_T is single tab character.
-  xy)  ECHO_C='\c';;
-  *)   echo `echo ksh88 bug on AIX 6.1` > /dev/null
-       ECHO_T='	';;
-  esac;;
-*)
-  ECHO_N='-n';;
-esac
-
-rm -f conf$$ conf$$.exe conf$$.file
-if test -d conf$$.dir; then
-  rm -f conf$$.dir/conf$$.file
-else
-  rm -f conf$$.dir
-  mkdir conf$$.dir 2>/dev/null
-fi
-if (echo >conf$$.file) 2>/dev/null; then
-  if ln -s conf$$.file conf$$ 2>/dev/null; then
-    as_ln_s='ln -s'
-    # ... but there are two gotchas:
-    # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
-    # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
-    # In both cases, we have to default to `cp -pR'.
-    ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
-      as_ln_s='cp -pR'
-  elif ln conf$$.file conf$$ 2>/dev/null; then
-    as_ln_s=ln
-  else
-    as_ln_s='cp -pR'
-  fi
-else
-  as_ln_s='cp -pR'
-fi
-rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
-rmdir conf$$.dir 2>/dev/null
-
-
-# as_fn_mkdir_p
-# -------------
-# Create "$as_dir" as a directory, including parents if necessary.
-as_fn_mkdir_p ()
-{
-
-  case $as_dir in #(
-  -*) as_dir=./$as_dir;;
-  esac
-  test -d "$as_dir" || eval $as_mkdir_p || {
-    as_dirs=
-    while :; do
-      case $as_dir in #(
-      *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
-      *) as_qdir=$as_dir;;
-      esac
-      as_dirs="'$as_qdir' $as_dirs"
-      as_dir=`$as_dirname -- "$as_dir" ||
-$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
-	 X"$as_dir" : 'X\(//\)[^/]' \| \
-	 X"$as_dir" : 'X\(//\)$' \| \
-	 X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$as_dir" |
-    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
-	    s//\1/
-	    q
-	  }
-	  /^X\(\/\/\)[^/].*/{
-	    s//\1/
-	    q
-	  }
-	  /^X\(\/\/\)$/{
-	    s//\1/
-	    q
-	  }
-	  /^X\(\/\).*/{
-	    s//\1/
-	    q
-	  }
-	  s/.*/./; q'`
-      test -d "$as_dir" && break
-    done
-    test -z "$as_dirs" || eval "mkdir $as_dirs"
-  } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir"
-
-
-} # as_fn_mkdir_p
-if mkdir -p . 2>/dev/null; then
-  as_mkdir_p='mkdir -p "$as_dir"'
-else
-  test -d ./-p && rmdir ./-p
-  as_mkdir_p=false
-fi
-
-
-# as_fn_executable_p FILE
-# -----------------------
-# Test if FILE is an executable regular file.
-as_fn_executable_p ()
-{
-  test -f "$1" && test -x "$1"
-} # as_fn_executable_p
-as_test_x='test -x'
-as_executable_p=as_fn_executable_p
-
-# Sed expression to map a string onto a valid CPP name.
-as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
-
-# Sed expression to map a string onto a valid variable name.
-as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
-
-
-exec 6>&1
-## ----------------------------------- ##
-## Main body of $CONFIG_STATUS script. ##
-## ----------------------------------- ##
-_ASEOF
-test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-# Save the log message, to keep $0 and so on meaningful, and to
-# report actual input values of CONFIG_FILES etc. instead of their
-# values after options handling.
-ac_log="
-This file was extended by tkcon $as_me 2.7, which was
-generated by GNU Autoconf 2.69.  Invocation command line was
-
-  CONFIG_FILES    = $CONFIG_FILES
-  CONFIG_HEADERS  = $CONFIG_HEADERS
-  CONFIG_LINKS    = $CONFIG_LINKS
-  CONFIG_COMMANDS = $CONFIG_COMMANDS
-  $ $0 $@
-
-on `(hostname || uname -n) 2>/dev/null | sed 1q`
-"
-
-_ACEOF
-
-case $ac_config_files in *"
-"*) set x $ac_config_files; shift; ac_config_files=$*;;
-esac
-
-
-
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-# Files that config.status was made for.
-config_files="$ac_config_files"
-
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-ac_cs_usage="\
-\`$as_me' instantiates files and other configuration actions
-from templates according to the current configuration.  Unless the files
-and actions are specified as TAGs, all are instantiated by default.
-
-Usage: $0 [OPTION]... [TAG]...
-
-  -h, --help       print this help, then exit
-  -V, --version    print version number and configuration settings, then exit
-      --config     print configuration, then exit
-  -q, --quiet, --silent
-                   do not print progress messages
-  -d, --debug      don't remove temporary files
-      --recheck    update $as_me by reconfiguring in the same conditions
-      --file=FILE[:TEMPLATE]
-                   instantiate the configuration file FILE
-
-Configuration files:
-$config_files
-
-Report bugs to the package provider."
-
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`"
-ac_cs_version="\\
-tkcon config.status 2.7
-configured by $0, generated by GNU Autoconf 2.69,
-  with options \\"\$ac_cs_config\\"
-
-Copyright (C) 2012 Free Software Foundation, Inc.
-This config.status script is free software; the Free Software Foundation
-gives unlimited permission to copy, distribute and modify it."
-
-ac_pwd='$ac_pwd'
-srcdir='$srcdir'
-test -n "\$AWK" || AWK=awk
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-# The default lists apply if the user does not specify any file.
-ac_need_defaults=:
-while test $# != 0
-do
-  case $1 in
-  --*=?*)
-    ac_option=`expr "X$1" : 'X\([^=]*\)='`
-    ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'`
-    ac_shift=:
-    ;;
-  --*=)
-    ac_option=`expr "X$1" : 'X\([^=]*\)='`
-    ac_optarg=
-    ac_shift=:
-    ;;
-  *)
-    ac_option=$1
-    ac_optarg=$2
-    ac_shift=shift
-    ;;
-  esac
-
-  case $ac_option in
-  # Handling of the options.
-  -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
-    ac_cs_recheck=: ;;
-  --version | --versio | --versi | --vers | --ver | --ve | --v | -V )
-    $as_echo "$ac_cs_version"; exit ;;
-  --config | --confi | --conf | --con | --co | --c )
-    $as_echo "$ac_cs_config"; exit ;;
-  --debug | --debu | --deb | --de | --d | -d )
-    debug=: ;;
-  --file | --fil | --fi | --f )
-    $ac_shift
-    case $ac_optarg in
-    *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
-    '') as_fn_error $? "missing file argument" ;;
-    esac
-    as_fn_append CONFIG_FILES " '$ac_optarg'"
-    ac_need_defaults=false;;
-  --he | --h |  --help | --hel | -h )
-    $as_echo "$ac_cs_usage"; exit ;;
-  -q | -quiet | --quiet | --quie | --qui | --qu | --q \
-  | -silent | --silent | --silen | --sile | --sil | --si | --s)
-    ac_cs_silent=: ;;
-
-  # This is an error.
-  -*) as_fn_error $? "unrecognized option: \`$1'
-Try \`$0 --help' for more information." ;;
-
-  *) as_fn_append ac_config_targets " $1"
-     ac_need_defaults=false ;;
-
-  esac
-  shift
-done
-
-ac_configure_extra_args=
-
-if $ac_cs_silent; then
-  exec 6>/dev/null
-  ac_configure_extra_args="$ac_configure_extra_args --silent"
-fi
-
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-if \$ac_cs_recheck; then
-  set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion
-  shift
-  \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6
-  CONFIG_SHELL='$SHELL'
-  export CONFIG_SHELL
-  exec "\$@"
-fi
-
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-exec 5>>config.log
-{
-  echo
-  sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX
-## Running $as_me. ##
-_ASBOX
-  $as_echo "$ac_log"
-} >&5
-
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-
-# Handling of arguments.
-for ac_config_target in $ac_config_targets
-do
-  case $ac_config_target in
-    "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;;
-
-  *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;;
-  esac
-done
-
-
-# If the user did not use the arguments to specify the items to instantiate,
-# then the envvar interface is used.  Set only those that are not.
-# We use the long form for the default assignment because of an extremely
-# bizarre bug on SunOS 4.1.3.
-if $ac_need_defaults; then
-  test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files
-fi
-
-# Have a temporary directory for convenience.  Make it in the build tree
-# simply because there is no reason against having it here, and in addition,
-# creating and moving files from /tmp can sometimes cause problems.
-# Hook for its removal unless debugging.
-# Note that there is a small window in which the directory will not be cleaned:
-# after its creation but before its name has been assigned to `$tmp'.
-$debug ||
-{
-  tmp= ac_tmp=
-  trap 'exit_status=$?
-  : "${ac_tmp:=$tmp}"
-  { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status
-' 0
-  trap 'as_fn_exit 1' 1 2 13 15
-}
-# Create a (secure) tmp directory for tmp files.
-
-{
-  tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` &&
-  test -d "$tmp"
-}  ||
-{
-  tmp=./conf$$-$RANDOM
-  (umask 077 && mkdir "$tmp")
-} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5
-ac_tmp=$tmp
-
-# Set up the scripts for CONFIG_FILES section.
-# No need to generate them if there are no CONFIG_FILES.
-# This happens for instance with `./config.status config.h'.
-if test -n "$CONFIG_FILES"; then
-
-
-ac_cr=`echo X | tr X '\015'`
-# On cygwin, bash can eat \r inside `` if the user requested igncr.
-# But we know of no other shell where ac_cr would be empty at this
-# point, so we can use a bashism as a fallback.
-if test "x$ac_cr" = x; then
-  eval ac_cr=\$\'\\r\'
-fi
-ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' </dev/null 2>/dev/null`
-if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then
-  ac_cs_awk_cr='\\r'
-else
-  ac_cs_awk_cr=$ac_cr
-fi
-
-echo 'BEGIN {' >"$ac_tmp/subs1.awk" &&
-_ACEOF
-
-
-{
-  echo "cat >conf$$subs.awk <<_ACEOF" &&
-  echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' &&
-  echo "_ACEOF"
-} >conf$$subs.sh ||
-  as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
-ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'`
-ac_delim='%!_!# '
-for ac_last_try in false false false false false :; do
-  . ./conf$$subs.sh ||
-    as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
-
-  ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X`
-  if test $ac_delim_n = $ac_delim_num; then
-    break
-  elif $ac_last_try; then
-    as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5
-  else
-    ac_delim="$ac_delim!$ac_delim _$ac_delim!! "
-  fi
-done
-rm -f conf$$subs.sh
-
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK &&
-_ACEOF
-sed -n '
-h
-s/^/S["/; s/!.*/"]=/
-p
-g
-s/^[^!]*!//
-:repl
-t repl
-s/'"$ac_delim"'$//
-t delim
-:nl
-h
-s/\(.\{148\}\)..*/\1/
-t more1
-s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/
-p
-n
-b repl
-:more1
-s/["\\]/\\&/g; s/^/"/; s/$/"\\/
-p
-g
-s/.\{148\}//
-t nl
-:delim
-h
-s/\(.\{148\}\)..*/\1/
-t more2
-s/["\\]/\\&/g; s/^/"/; s/$/"/
-p
-b
-:more2
-s/["\\]/\\&/g; s/^/"/; s/$/"\\/
-p
-g
-s/.\{148\}//
-t delim
-' <conf$$subs.awk | sed '
-/^[^""]/{
-  N
-  s/\n//
-}
-' >>$CONFIG_STATUS || ac_write_fail=1
-rm -f conf$$subs.awk
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-_ACAWK
-cat >>"\$ac_tmp/subs1.awk" <<_ACAWK &&
-  for (key in S) S_is_set[key] = 1
-  FS = ""
-
-}
-{
-  line = $ 0
-  nfields = split(line, field, "@")
-  substed = 0
-  len = length(field[1])
-  for (i = 2; i < nfields; i++) {
-    key = field[i]
-    keylen = length(key)
-    if (S_is_set[key]) {
-      value = S[key]
-      line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3)
-      len += length(value) + length(field[++i])
-      substed = 1
-    } else
-      len += 1 + keylen
-  }
-
-  print line
-}
-
-_ACAWK
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then
-  sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g"
-else
-  cat
-fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \
-  || as_fn_error $? "could not setup config files machinery" "$LINENO" 5
-_ACEOF
-
-# VPATH may cause trouble with some makes, so we remove sole $(srcdir),
-# ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and
-# trailing colons and then remove the whole line if VPATH becomes empty
-# (actually we leave an empty line to preserve line numbers).
-if test "x$srcdir" = x.; then
-  ac_vpsub='/^[	 ]*VPATH[	 ]*=[	 ]*/{
-h
-s///
-s/^/:/
-s/[	 ]*$/:/
-s/:\$(srcdir):/:/g
-s/:\${srcdir}:/:/g
-s/:@srcdir@:/:/g
-s/^:*//
-s/:*$//
-x
-s/\(=[	 ]*\).*/\1/
-G
-s/\n//
-s/^[^=]*=[	 ]*$//
-}'
-fi
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-fi # test -n "$CONFIG_FILES"
-
-
-eval set X "  :F $CONFIG_FILES      "
-shift
-for ac_tag
-do
-  case $ac_tag in
-  :[FHLC]) ac_mode=$ac_tag; continue;;
-  esac
-  case $ac_mode$ac_tag in
-  :[FHL]*:*);;
-  :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;;
-  :[FH]-) ac_tag=-:-;;
-  :[FH]*) ac_tag=$ac_tag:$ac_tag.in;;
-  esac
-  ac_save_IFS=$IFS
-  IFS=:
-  set x $ac_tag
-  IFS=$ac_save_IFS
-  shift
-  ac_file=$1
-  shift
-
-  case $ac_mode in
-  :L) ac_source=$1;;
-  :[FH])
-    ac_file_inputs=
-    for ac_f
-    do
-      case $ac_f in
-      -) ac_f="$ac_tmp/stdin";;
-      *) # Look for the file first in the build tree, then in the source tree
-	 # (if the path is not absolute).  The absolute path cannot be DOS-style,
-	 # because $ac_f cannot contain `:'.
-	 test -f "$ac_f" ||
-	   case $ac_f in
-	   [\\/$]*) false;;
-	   *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";;
-	   esac ||
-	   as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;;
-      esac
-      case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac
-      as_fn_append ac_file_inputs " '$ac_f'"
-    done
-
-    # Let's still pretend it is `configure' which instantiates (i.e., don't
-    # use $as_me), people would be surprised to read:
-    #    /* config.h.  Generated by config.status.  */
-    configure_input='Generated from '`
-	  $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g'
-	`' by configure.'
-    if test x"$ac_file" != x-; then
-      configure_input="$ac_file.  $configure_input"
-      { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5
-$as_echo "$as_me: creating $ac_file" >&6;}
-    fi
-    # Neutralize special characters interpreted by sed in replacement strings.
-    case $configure_input in #(
-    *\&* | *\|* | *\\* )
-       ac_sed_conf_input=`$as_echo "$configure_input" |
-       sed 's/[\\\\&|]/\\\\&/g'`;; #(
-    *) ac_sed_conf_input=$configure_input;;
-    esac
-
-    case $ac_tag in
-    *:-:* | *:-) cat >"$ac_tmp/stdin" \
-      || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;;
-    esac
-    ;;
-  esac
-
-  ac_dir=`$as_dirname -- "$ac_file" ||
-$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
-	 X"$ac_file" : 'X\(//\)[^/]' \| \
-	 X"$ac_file" : 'X\(//\)$' \| \
-	 X"$ac_file" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$ac_file" |
-    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
-	    s//\1/
-	    q
-	  }
-	  /^X\(\/\/\)[^/].*/{
-	    s//\1/
-	    q
-	  }
-	  /^X\(\/\/\)$/{
-	    s//\1/
-	    q
-	  }
-	  /^X\(\/\).*/{
-	    s//\1/
-	    q
-	  }
-	  s/.*/./; q'`
-  as_dir="$ac_dir"; as_fn_mkdir_p
-  ac_builddir=.
-
-case "$ac_dir" in
-.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
-*)
-  ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
-  # A ".." for each directory in $ac_dir_suffix.
-  ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
-  case $ac_top_builddir_sub in
-  "") ac_top_builddir_sub=. ac_top_build_prefix= ;;
-  *)  ac_top_build_prefix=$ac_top_builddir_sub/ ;;
-  esac ;;
-esac
-ac_abs_top_builddir=$ac_pwd
-ac_abs_builddir=$ac_pwd$ac_dir_suffix
-# for backward compatibility:
-ac_top_builddir=$ac_top_build_prefix
-
-case $srcdir in
-  .)  # We are building in place.
-    ac_srcdir=.
-    ac_top_srcdir=$ac_top_builddir_sub
-    ac_abs_top_srcdir=$ac_pwd ;;
-  [\\/]* | ?:[\\/]* )  # Absolute name.
-    ac_srcdir=$srcdir$ac_dir_suffix;
-    ac_top_srcdir=$srcdir
-    ac_abs_top_srcdir=$srcdir ;;
-  *) # Relative name.
-    ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
-    ac_top_srcdir=$ac_top_build_prefix$srcdir
-    ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
-esac
-ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
-
-
-  case $ac_mode in
-  :F)
-  #
-  # CONFIG_FILE
-  #
-
-_ACEOF
-
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-# If the template does not know about datarootdir, expand it.
-# FIXME: This hack should be removed a few years after 2.60.
-ac_datarootdir_hack=; ac_datarootdir_seen=
-ac_sed_dataroot='
-/datarootdir/ {
-  p
-  q
-}
-/@datadir@/p
-/@docdir@/p
-/@infodir@/p
-/@localedir@/p
-/@mandir@/p'
-case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in
-*datarootdir*) ac_datarootdir_seen=yes;;
-*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*)
-  { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5
-$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;}
-_ACEOF
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-  ac_datarootdir_hack='
-  s&@datadir@&$datadir&g
-  s&@docdir@&$docdir&g
-  s&@infodir@&$infodir&g
-  s&@localedir@&$localedir&g
-  s&@mandir@&$mandir&g
-  s&\\\${datarootdir}&$datarootdir&g' ;;
-esac
-_ACEOF
-
-# Neutralize VPATH when `$srcdir' = `.'.
-# Shell code in configure.ac might set extrasub.
-# FIXME: do we really want to maintain this feature?
-cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1
-ac_sed_extra="$ac_vpsub
-$extrasub
-_ACEOF
-cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1
-:t
-/@[a-zA-Z_][a-zA-Z_0-9]*@/!b
-s|@configure_input@|$ac_sed_conf_input|;t t
-s&@top_builddir@&$ac_top_builddir_sub&;t t
-s&@top_build_prefix@&$ac_top_build_prefix&;t t
-s&@srcdir@&$ac_srcdir&;t t
-s&@abs_srcdir@&$ac_abs_srcdir&;t t
-s&@top_srcdir@&$ac_top_srcdir&;t t
-s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t
-s&@builddir@&$ac_builddir&;t t
-s&@abs_builddir@&$ac_abs_builddir&;t t
-s&@abs_top_builddir@&$ac_abs_top_builddir&;t t
-$ac_datarootdir_hack
-"
-eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \
-  >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5
-
-test -z "$ac_datarootdir_hack$ac_datarootdir_seen" &&
-  { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } &&
-  { ac_out=`sed -n '/^[	 ]*datarootdir[	 ]*:*=/p' \
-      "$ac_tmp/out"`; test -z "$ac_out"; } &&
-  { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir'
-which seems to be undefined.  Please make sure it is defined" >&5
-$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir'
-which seems to be undefined.  Please make sure it is defined" >&2;}
-
-  rm -f "$ac_tmp/stdin"
-  case $ac_file in
-  -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";;
-  *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";;
-  esac \
-  || as_fn_error $? "could not create $ac_file" "$LINENO" 5
- ;;
-
-
-
-  esac
-
-done # for ac_tag
-
-
-as_fn_exit 0
-_ACEOF
-ac_clean_files=$ac_clean_files_save
-
-test $ac_write_fail = 0 ||
-  as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5
-
-
-# configure is writing to config.log, and then calls config.status.
-# config.status does its own redirection, appending to config.log.
-# Unfortunately, on DOS this fails, as config.log is still kept open
-# by configure, so config.status won't be able to write to it; its
-# output is simply discarded.  So we exec the FD to /dev/null,
-# effectively closing config.log, so it can be properly (re)opened and
-# appended to by config.status.  When coming back to configure, we
-# need to make the FD available again.
-if test "$no_create" != yes; then
-  ac_cs_success=:
-  ac_config_status_args=
-  test "$silent" = yes &&
-    ac_config_status_args="$ac_config_status_args --quiet"
-  exec 5>/dev/null
-  $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false
-  exec 5>>config.log
-  # Use ||, not &&, to avoid exiting from the if with $? = 1, which
-  # would make configure fail if this is the last instruction.
-  $ac_cs_success || as_fn_exit 1
-fi
-if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then
-  { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5
-$as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;}
-fi
-
diff --git a/tkcon/configure.ac b/tkcon/configure.ac
deleted file mode 100644
index 19121db..0000000
--- a/tkcon/configure.ac
+++ /dev/null
@@ -1,191 +0,0 @@
-#!/bin/bash -norc
-dnl	This file is an input file used by the GNU "autoconf" program to
-dnl	generate the file "configure", which is run during Tcl installation
-dnl	to configure the system for the local environment.
-
-#-----------------------------------------------------------------------
-# Sample configure.ac for Tcl Extensions.  The only places you should
-# need to modify this file are marked by the string __CHANGE__
-#-----------------------------------------------------------------------
-
-#-----------------------------------------------------------------------
-# __CHANGE__
-# Set your package name and version numbers here.
-#
-# This initializes the environment with PACKAGE_NAME and PACKAGE_VERSION
-# set as provided.  These will also be added as -D defs in your Makefile
-# so you can encode the package version directly into the source files.
-# This will also define a special symbol for Windows (BUILD_<PACKAGE_NAME>
-# so that we create the export library with the dll.
-#-----------------------------------------------------------------------
-
-AC_INIT([tkcon], [2.7])
-
-#--------------------------------------------------------------------
-# Call TEA_INIT as the first TEA_ macro to set up initial vars.
-# This will define a ${TEA_PLATFORM} variable == "unix" or "windows"
-# as well as PKG_LIB_FILE and PKG_STUB_LIB_FILE.
-#--------------------------------------------------------------------
-
-TEA_INIT()
-
-AC_CONFIG_AUX_DIR(tclconfig)
-
-#--------------------------------------------------------------------
-# Load the tclConfig.sh file
-#--------------------------------------------------------------------
-
-TEA_PATH_TCLCONFIG
-TEA_LOAD_TCLCONFIG
-
-#--------------------------------------------------------------------
-# Load the tkConfig.sh file if necessary (Tk extension)
-#--------------------------------------------------------------------
-
-TEA_PATH_TKCONFIG
-TEA_LOAD_TKCONFIG
-
-#-----------------------------------------------------------------------
-# Handle the --prefix=... option by defaulting to what Tcl gave.
-# Must be called after TEA_LOAD_TCLCONFIG and before TEA_SETUP_COMPILER.
-#-----------------------------------------------------------------------
-
-TEA_PREFIX
-
-#-----------------------------------------------------------------------
-# Standard compiler checks.
-# This sets up CC by using the CC env var, or looks for gcc otherwise.
-# This also calls AC_PROG_CC and a few others to create the basic setup
-# necessary to compile executables.
-#-----------------------------------------------------------------------
-
-TEA_SETUP_COMPILER
-
-#-----------------------------------------------------------------------
-# __CHANGE__
-# Specify the C source files to compile in TEA_ADD_SOURCES,
-# public headers that need to be installed in TEA_ADD_HEADERS,
-# stub library C source files to compile in TEA_ADD_STUB_SOURCES,
-# and runtime Tcl library files in TEA_ADD_TCL_SOURCES.
-# This defines PKG(_STUB)_SOURCES, PKG(_STUB)_OBJECTS, PKG_HEADERS
-# and PKG_TCL_SOURCES.
-#-----------------------------------------------------------------------
-
-TEA_ADD_SOURCES([])
-TEA_ADD_HEADERS([])
-TEA_ADD_INCLUDES([])
-TEA_ADD_LIBS([])
-TEA_ADD_CFLAGS([])
-TEA_ADD_STUB_SOURCES([])
-TEA_ADD_TCL_SOURCES([tkcon.tcl])
-
-#--------------------------------------------------------------------
-# __CHANGE__
-#
-# You can add more files to clean if your extension creates any extra
-# files by extending CLEANFILES.
-# Add pkgIndex.tcl if it is generated in the Makefile instead of ./configure
-# and change Makefile.in to move it from CONFIG_CLEAN_FILES to BINARIES var.
-#
-# A few miscellaneous platform-specific items:
-# TEA_ADD_* any platform specific compiler/build info here.
-#--------------------------------------------------------------------
-
-#CLEANFILES="$CLEANFILES pkgIndex.tcl"
-if test "${TEA_PLATFORM}" = "windows" ; then
-    # Ensure no empty if clauses
-    :
-    #TEA_ADD_SOURCES([win/winFile.c])
-    #TEA_ADD_INCLUDES([-I\"$(${CYGPATH} ${srcdir}/win)\"])
-else
-    # Ensure no empty else clauses
-    :
-    #TEA_ADD_SOURCES([unix/unixFile.c])
-    #TEA_ADD_LIBS([-lsuperfly])
-fi
-
-#--------------------------------------------------------------------
-# __CHANGE__
-# Choose which headers you need.  Extension authors should try very
-# hard to only rely on the Tcl public header files.  Internal headers
-# contain private data structures and are subject to change without
-# notice.
-# This MUST be called after TEA_LOAD_TCLCONFIG / TEA_LOAD_TKCONFIG
-#--------------------------------------------------------------------
-
-#TEA_PUBLIC_TCL_HEADERS
-#TEA_PRIVATE_TCL_HEADERS
-
-#TEA_PUBLIC_TK_HEADERS
-#TEA_PRIVATE_TK_HEADERS
-#TEA_PATH_X
-
-#--------------------------------------------------------------------
-# Check whether --enable-threads or --disable-threads was given.
-# This auto-enables if Tcl was compiled threaded.
-#--------------------------------------------------------------------
-
-#TEA_ENABLE_THREADS
-
-#--------------------------------------------------------------------
-# The statement below defines a collection of symbols related to
-# building as a shared library instead of a static library.
-#--------------------------------------------------------------------
-
-#TEA_ENABLE_SHARED
-
-#--------------------------------------------------------------------
-# This macro figures out what flags to use with the compiler/linker
-# when building shared/static debug/optimized objects.  This information
-# can be taken from the tclConfig.sh file, but this figures it all out.
-#--------------------------------------------------------------------
-
-#TEA_CONFIG_CFLAGS
-
-#--------------------------------------------------------------------
-# Set the default compiler switches based on the --enable-symbols option.
-#--------------------------------------------------------------------
-
-#TEA_ENABLE_SYMBOLS
-
-#--------------------------------------------------------------------
-# This macro generates a line to use when building a library.  It
-# depends on values set by the TEA_ENABLE_SHARED, TEA_ENABLE_SYMBOLS,
-# and TEA_LOAD_TCLCONFIG macros above.
-#--------------------------------------------------------------------
-
-#TEA_MAKE_LIB
-
-#--------------------------------------------------------------------
-# Determine the name of the tclsh and/or wish executables in the
-# Tcl and Tk build directories or the location they were installed
-# into. These paths are used to support running test cases only,
-# the Makefile should not be making use of these paths to generate
-# a pkgIndex.tcl file or anything else at extension build time.
-#--------------------------------------------------------------------
-
-#TEA_PROG_TCLSH
-#TEA_PROG_WISH
-
-#--------------------------------------------------------------------
-# Setup a *Config.sh.in configuration file.
-#--------------------------------------------------------------------
-
-#TEA_EXPORT_CONFIG([sample])
-#AC_SUBST(SAMPLE_VAR)
-
-#--------------------------------------------------------------------
-# Specify files to substitute AC variables in. You may alternatively
-# have a special pkgIndex.tcl.in or other files which require
-# substituting the AC variables in. Include these here.
-#--------------------------------------------------------------------
-
-AC_CONFIG_FILES([Makefile])
-#AC_CONFIG_FILES([sampleConfig.sh])
-
-#--------------------------------------------------------------------
-# Finally, substitute all of the various values into the files
-# specified with AC_CONFIG_FILES.
-#--------------------------------------------------------------------
-
-AC_OUTPUT()
diff --git a/tkcon/docs/bindings.html b/tkcon/docs/bindings.html
deleted file mode 100755
index f6a13c5..0000000
--- a/tkcon/docs/bindings.html
+++ /dev/null
@@ -1,154 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>tkcon: Special Bindings</TITLE>
-<LINK REL="STYLESHEET" TYPE="text/css" HREF="./style.css">
-</HEAD>
-
-<BODY BGCOLOR=#FFFFFF>
-
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=0 BGCOLOR=#000000><TR><TD>
-<!-- start header info -->
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>
-<TR>
-<TH><FONT SIZE=+3>tkcon: Special Bindings</FONT></TH>
-<TD align=right>
-<A href="http://tkcon.sourceforge.net/"> 
-<IMG src="http://sourceforge.net/sflogo.php?group_id=11462&type=1" width="88"
-height="31" border="0" alt="SourceForge Logo"></A>
-</TD>
-</TR>
-</TABLE>
-<!-- end header info -->
-
-</TD></TR><TR><TD>
-<!-- start main navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#CCCCCC width=100%>
-<TR>
-<TH CLASS="hi"><A HREF="index.html" CLASS="hi">Documentation</A></TH>
-<TH><A HREF="purpose.html">Purpose &amp; Features</A></TH>
-<TH><A HREF="limits.html">Limitations</A></TH>
-<TH><A HREF="todo.html">To&nbsp;Do</A></TH>
-<TH><A HREF="license.terms">License</A></TH>
-</TR><TR>
-<TH COLSPAN=2><A HREF="plugin.html">Online Demo</A>
-(requires <A HREF="http://tcl.activestate.com/software/plugin/">Tk plugin</A>)</TH>
-<TH COLSPAN=3><A HREF="nontcl.html">Using TkCon with other Tk Languages</A></TH>
-</TR>
-</TABLE>
-<!-- end main navigation table -->
-</TD></TR><TR><TD>
-<!-- start secondary navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#BBBBBB width=100%>
-<TR>
-<TH><A HREF="start.html">Getting Started</A></TH>
-<TH CLASS="hi2"><A HREF="bindings.html" CLASS="hi2">Special Bindings</A></TH>
-<TH><A HREF="procs.html">Procedures</A></TH>
-<TH><A HREF="demopic.png">Screenshot</A></TH>
-</TR>
-<TR>
-<TH><A HREF="dump.html"><CODE>dump</CODE></A></TH>
-<TH><A HREF="tkcon.html"><CODE>tkcon</CODE></A></TH>
-<TH><A HREF="idebug.html"><CODE>idebug</CODE></A></TH>
-<TH><A HREF="observe.html"><CODE>observe</CODE></A></TH>
-</TR>
-</TABLE>
-<!-- end secondary navigation table -->
-</TD></TR><TR><TD BGCOLOR=#FFFFFF>
-<DIV CLASS="indent">
- <P>
-Most of the bindings are the same as for the Text widget.  Some have been
-modified to make sure that the integrity of the console is maintained.
-Others have been added to enhance the usefulness of the console.  Only
-the modified or new bindings are listed here.
- <P>
-
-<DL compact>
-<DT> <B>Control-x</B> or <B>Cut</B> (on Sparc5 keyboards)
-<DD> Cut
-<DT> <B>Control-c</B> or <B>Copy</B> (on Sparc5 keyboards)
-<DD> Copy
-<DT> <B>Control-v</B> or <B>Paste</B> (on Sparc5 keyboards)
-<DD> Paste
-<DT> <B>Insert</B>
-<DD> Insert (duh).
- <P>
-<DT> <B>Up</B>
-<DD> Goes up one level in the commands line history when cursor is on the
-prompt line, otherwise it moves through the buffer
-<DT> <B>Down</B>
-<DD> Goes down one level in the commands line history when cursor is on the
-last line of the buffer, otherwise it moves through the buffer
-<DT> <B>Control-p</B>
-<DD> Goes up one level in the commands line history
-<DT> <B>Control-n</B>
-<DD> Goes down one level in the commands line history
- <P>
-<DT> <B>Tab</B>
-<DD> Tries to expand file path names, then variable names, then proc names.
-<DT> <B>Escape</B>
-<DD> Tries to expand file path names.
-<DT> <B>Control-P</B>
-<DD> Tries to expand procedure names.  The procedure names will be those
-that are actually in the attached interpreter (unless nontcl is specified,
-in which case it always does the lookup in the default slave interpreter).
-<DT> <B>Control-V</B>
-<DD> Tries to expand variable names (those returned by [info vars]).
-It's search behavior is like that for procedure names.
- <P>
-<DT> <B>Return</B> or <B>Enter</B>
-<DD> Evaluates the current command line if it is a complete command,
-otherwise it just goes to a new line
-<DT> <B>Control-a</B>
-<DD> Go to the beginning of the current command line
-<DT> <B>Control-l</B>
-<DD> Clear the entire console buffer
-<DT> <B>Control-r</B>
-<DD> Searches backwards in the history for any command that contains the
-string in the current command line.  Repeatable to search farther back.
-The matching substring off the found command will blink.
-<DT> <B>Control-s</B>
-<DD> As above, but searches forward (only useful if you searched too far back).
-<DT> <B>Control-t</B>
-<DD> Transposes characters
-<DT> <B>Control-u</B>
-<DD> Clear the current command line
-<DT> <B>Control-z</B>
-<DD> Saves current command line in a buffer that can be retrieved with 
-another <B>Control-z</B>.  If the current command line is empty, then any
-saved command is retrieved without being overwritten, otherwise the
-current contents get swapped with what's in the saved command buffer.
- <P>
-<DT> <B>Control-Key-1</B>
-<DD> Attaches console to the console's slave interpreter
-<DT> <B>Control-Key-2</B>
-<DD> Attaches console to the console's master interpreter
-<DT> <B>Control-Key-3</B>
-<DD> Attaches console to main TkCon interpreter
-<DT> <B>Control-A</B>
-<DD> Pops up the "About" dialog
-<DT> <B>Control-N</B>
-<DD> Creates a new console.  Each console has separate state, including
-it's own widget hierarchy (it's a slave interpreter).
-<DT> <B>Control-q</B>
-<DD> Close the current console OR Quit the program (depends on the value
-of TKCON(slaveexit)).
-<DT> <B>Control-w</B>
-<DD> Closes the current console.  Closing the main console will exit the
-program (something has to control all the slaves...)
-</DL>
-
-TkCon also has <B>electric bracing</B> (similar to that in emacs).  It will
-highlight matching pairs of {}'s, []'s, ()'s and ""'s.  For the first three,
-if there is no matching left element for the right, then it blinks the
-entire current command line.  For the double quote, if there is no proper
-match then it just blinks the current double quote character.  It does
-properly recognize most escaping (except escaped escapes), but does not look
-for commenting (why would you interactively put comments in?).
-</DIV>
-</TD></TR></TABLE>
-
-<HR NOSHADE SIZE=1>
-<ADDRESS><FONT SIZE=2>&copy; Jeffrey Hobbs</FONT></ADDRESS>
-
-</BODY>
-</HTML>
diff --git a/tkcon/docs/changes.txt b/tkcon/docs/changes.txt
deleted file mode 100755
index b0c8ed6..0000000
--- a/tkcon/docs/changes.txt
+++ /dev/null
@@ -1,815 +0,0 @@
-ENHANCED TK CONSOLE changes
--------------------------------------------------------------------------
-Changes file begun Tue May  7 19:09:51 PDT 1996
-Newest changes at top of file.  Release dates between '----'s.
-Changes for a particular version are BELOW the release date line.
-
-Attribution for code is specified after change, a preceding slash
-indicates an idea/bug report attribution fixed by myself.  Where
-no attribution is made, assume (Hobbs).
--------------------------------------------------------------------------
-
-THIS FILE IS NO LONGER PERTINENT.
-
-All changes are now recorded in the ChangeLog.
-
----- March 31 1999 v1.6 ----
-
-Changed tkConInsert to not use catch (avoids any error generation).
-
-Changed if check on auto_load in tcl_unknown to an llength on the
-args (from [info tclversion]) as 8.0p0 also used just one arg.
-
-Added -exec command line arg, so that users could do the -exec ""
-trick (causes tkcon to skip multi-interpreter model) and makes it
-easier to drop tkcon as a console on extended wish executables.
-
-Changed handling of fixed font for all tkcon text widgets, adding
-new -font option, TKCON(font) var, and redoing 'tkcon font'.
-
-Added color,(disabled|cursor|bg) variables as per Becker's
-recommendations, allowing for old defaults.
-
-Changed multiple instances of string comparisons with llength,
-where appropriate.
-
-Changed dump proc to not try and auto_load a proc arg and improved
-recognition of procs in namespaces.
-
-Added new 'what' proc to environment that tells you what a string
-is recognized as.  Now used in various other procs.
-
-Improved hot errors to not pop up edit dialog when the mouse moved.
-
----- March 5 1999 v1.5 ----
-
-Expanded tkConSave to support use in 'edit'.
-
-Added tkConGarbageCollect proc for periodic cleanup tasks
-(currently, cleaning up error tags in the console widget),
-with new gc-delay TKCON var.
-
-Revised error handling (errors are now hot in the console).
-
-Changed tkConExpandPathname to recognise that NT for 8.1+ is
-case-sensitive, and to not change case for other Windows configs
-when no further expansion was made.
-
-Made changes to tkConEvalOther and the aliasing of tkConEvalAttached
-for "Main" for more accurate evaluation.
-
-Changed the conditional 'update' in tkcon_puts (that overrides the
-core puts) to 'update idletasks'.  This prevents problems with
-using puts in fileevent triggers and such.
-
-Added check to prevent lower-casing during pathname expansion when
-no further expansion can be made on a string.
-
-New auto-buffer (default 512 lines, set in TKCON(buffer)) for the
-console widget.  Set this ridiculously high if you liked the
-text widget holding all that data.  New tkcon buffer method to
-go with it.
-
-Rewrote edit command.  Previous version was mostly bogus when used
-outside the original slave.
-
-Change tkcon error to use updated 'edit' command.
-
-Massaged tkConEvalOther & tkConInterpEval.
-
-Fixed problem with Show Last Error where a TkCon generated error
-was always appearing (from Package Submenu) and moved it above
-the packages submenu.
-
-Removed auto_execok from the slaveprocs list.
-
-Removed slaveappalias as it didn't work correctly.  Made 'edit'
-a slavealias, with tkConAttach used to determine where it was
-called from
-
-Changed some regexps around to pass tclCheck's mistaken warnings
-(tclCheck's bad matching, not bad regexps).
-
-Changed dump to not try widgets before commands, as otherwise
-it won't automatically complain.
-
-Fixed pathname completion to only beep when trying to expand on a
-non-existent subdirectory (instead of throwing no-directory error).
-
-Fixed a few notes that TclPro's checker picked up (only one actual
-bug in the all switch of 'edit', otherwise it was mostly blowing
-wind...).  (lvirden)
-
----- February 17 1999 v1.4 ----
-
-Changed "changes" file to "changes.txt".
-
-Added edit/more/less proc that allows for the viewing/editing
-and returning back to the slave of vars/procs or files.
-
-Modified history to not got below 0.
-
-lremove extended with -pattern arg.
-
-Added code in tcl_unknown to ask about loading Tk when someone tries
-a Tk command without Tk being loaded.
-
-Had to change regexps because \E in Tcl8.1a2 was removed in 8.1b1 (arg!).
-
-Added "Make Xauth Secure" button for Unix. (heiko.federhenn@stest.ch)
-
-Fixed tkConInitInterp (used by "Send TkCon Commands") to reattach to
-the named namespace when appropriate.
-
-Fixed bug in popup-menu for Tk8 (bound to wrong toplevel).
-
-Fixed bug in tcl_unknown confusing auto_load between 8.0 and 7.x.
-
-Made Interp->Package menu more dynamic, so it recognizes changes in
-auto_path and updates itself when Interp is torn-off.
-
-Removed list from $new in exec redirect for tcl_unknown. (found by Imai)
-
-Changed package menu to handle multiple package versions.
-
-Added bogus package require statement to master and slaves to ensure
-that pkgIndex.tcl files were properly loaded into interps.
-
-If "Main" is passed to tkConAttachNamespace, it is interpreted as "::".
-
-Changed "Attach Namespace" menu to provide a listbox popup when
-more than $TKCON(maxmenu) namespaces are present.
-
----- June 1998 v1.3 ----
-
-fixed long-standing expr bug (missing '$') in tkConSafeBind - found
-by TclPro!
-
-took out the use of tkcon_gets because it only worked for global vars.
-
----- March 1998 v1.2 unreleased ----
-
-updated regexps in some places to support 8.1 regexps.
-
-dump now outputs only non-default options for widgets. (ridgway)
-
-Sorted output list for multiple tab matched items.
-
-Several minor changes for the plugin (user should see no difference).
-
-Known problems with dump command understanding namespaces have been
-fixed, but only for the 8.0 only version.
-
-Changed tkConTagProc to recognize ';' as not part of a proc name.
-
-Changed tkConNew to reuse slave numbers.
-
-Fixed problem with TKCON(exec) == {} (needed uplevel #0 instead of eval).
-
-On Mac, tries to source itself using -rsrc (8.0). (nijtmans)
-
-Changed to use 8.0 menu scheme if possible. (nijtmans)
-
-Changed tkConInitSlave and tkConNew to only set argv0 in new slave if it
-exists (it won't in the plugin).  (demailly)
-
-Changed tkConInit to only checkpoint state once if the slave interp
-and main interp are the same (TKCON(exec) == {}).
-
----- 08 October 1997 v1.1 ----
-
-For Tk8, made TkCon use a fixed font {Courier, size 10} if the current
-font is not of fixed type.
-
-Startup errors should now be found in the TkCon last error function.
-
-Changed the Triple-1 binding to not include last newline.
-
-Added fix to make sure that double-evaluation of the command line
-didn't occur (might occur for commands that used vwait or something).
-
-TKCON(errorInfo) is now set with all the errors that occur during start-up,
-so that you don't lose stack trace information.
-
----- July 03 1997 v1.03 ----
-
-Updated namespace eval stuff for Tk8.0b2.
-
-rewrote tkConSepCmd.
-
-ls is now "dir -full" by default.
-
-changed the puts renaming from tcl_puts to tkcon_tcl_puts (so that it
-specifies what renamed it).
-
-added variable highlighting to command highlighting as a background (so
-that a command and var can be seen for the same word).
-
-increased default history size to 48.
-
-Fixed problem where aliased exit couldn't take extra args.
-
-replaced old [tkcon gets] with a new UI version to be used with the new
-tkcon_gets that, like tkcon_puts, replaces the Tcl gets with a version that
-doesn't rely on stdin being present.  [tkcon gets] now accepts no args.
-	**** POTENTIAL INCOMPATIBILITY ****
-
----- June 10 1997 v1.02 ----
-
-Changed calculator mode commands to be put in the history (but the
-output still looks like an error).
-
-Fixed bug where "source" was assumed to work for primary interp,
-causing failure to load in Tk plugin.
-
-Fixed problem with the id'ing of the primary TkCon interpreter that would
-affect attaching to like named interps.
-
----- June 8 1997 v1.01 ----
-
-minor streamlining in tkConEvalCmd.
-
-added file menu and separated some items from console menu.
-
-added support for connecting directly to a namespace (itcl or Tcl8).
-
-Fixed several potential problems where args to tkConEvalAttached where
-not properly protected from eval.
-
-added slaveexit variable to allow for exit in slaves to be non-destructive,
-which is the new default.
-
-enhanced Tab binding, made Escape the default pathname-only expansion.
-
-enhanced dump and which commands.
-
-Removed auto_execok redefinition for Tcl7.5-.  TkCon is now intended to
-only run in Tcl7.6+ interpreters (though attaching to 7.5- is still OK).
-
-Added Load/Save menus and expanded Save functionality.
-
----- June 1 1997 v1.00 ----
-
-TkCon now use virtual events for bindings (REQUIRES TK4.2+) and changed
-Console to TkConsole (to not conflict with new Console megawidget).
-
-Updated tcl_unknown to match Tcl8's unknown.
-
-Changed handling of preferences directory for macintosh.
-	**** POTENTIAL INCOMPATIBILITY ****
-
-Changed tkCon global var to TKCON.
-	**** POTENTIAL INCOMPATIBILITY ****
-
-Changed colors to use absolute #RRGGBB format for color-name disadvantaged
-systems.
-
-Removed use of tkCon(font) variable.
-	**** POTENTIAL INCOMPATIBILITY ****
-
-Fixed procname expansion to work on/in namespaces.
-
-Fixed pathname expansion to expand on a directory.
-
-Fixed all if's to use {}s (better for Tcl8).
-
-Fixed potential paste problems, it now tries to get the general selection
-first, then the CLIPBOARD selection.
-
-Fixed problem with 'puts' being renamed too early.
-
-Added calcmode variable to allow typing expr commands write at the tkCon
-command line without always saying expr (handled in tkConEvalCmd).
-
----- no official release v0.72 ----
-
-Changed tkConAbout to use text widget so info could be selected.
-
-Fixed problem with pathname expansion on windows due to case insensitivity.
-(how can anyone work with such an insensitive OS?)
-
-Fixed off-by-one error in history substitution reported by
-<s-imai@lsi.tmg.nec.co.jp>.
-
-Fixed error in the handling of packages with a space in the name.
-
-Removed general return of output from rcfile, now only errors are returned.
-
-New tkConEvent proc to handle event movement, fixed search event problem
-where cached event would become incorrect.
-
-new blinkrange variable to change electric bracing style.
-
----- December 20th 1996 v0.71 ----
-
-changed to not use upvar for nested arrays (bad for Tcl8).
-
-catch package require statement for detecting loadable libraries.
-
----- November 15th 1996 v0.70 ----
-
-Fixed problem with virtual event C/C/P bindings. (reported by
-robin@jessikat.demon.co.uk)
-
----- November 15th 1996 v0.69 ----
-
-Added auto_execok to tkCon(slaveprocs), fixes "unknown" command bug.
-
-Fix for 'event' to work with plugin.  (nijtmans)
-
-Added '--' and '-filter' options to 'dump'.
-
----- November 13th 1996 v0.68 ----
-
-Added $tk_library to auto_path for safe slaves loading Tk. (nijtmans)
-
-Made "r" the default mode for tkConSafeOpen. (nijtmans)
-
-Changed global delcarations in tkConInit to avoid conflicts with
-Nijtmans' plus patch.
-
----- November 11th 1996 v0.67 ----
-
-Fixed weird backslashing in tkConSafeWindow
-
----- November 8th 1996 v0.66 ----
-
-Further changes for Tk plugin compatibility. (nijtmans)
-
----- November 7th 1996 v0.65 ----
-
-Started to add to plugin compatible code.  (nijtmans)
-
-Reworked tkConFind* to accept optional args.
-
-Added History menu which display last ten commands in history.
-
-Removed 'auto_execpath' and changed for new version of 'auto_execok' (in
-'which' and 'unknown'), which will be redefined when TkCon is run in Tcl7.5.
-
-The attached environment is now checkpointed at startup (by default
-this is the slave).
-
-Fixed 'dump var' to use list when printing out nested array elements
-
-Added 'update' to puts, as well as better error reporting for tcl_puts.
-(nijtmans)
-
-Improved bracing around elseif statements.
-
-Removed 'warn' alias from distribution.  Seemed superfluous.
-
-Added support for requiring Tk in Tcl8+.
-
-Made TkCon use tkCon(cols) and tkCon(rows) for startup text size.
-
----- September 30th 1996 v0.64 ----
-
-Changed the way 'idebug' integrates with TkCon.
-
-Changed to require Tk of version [expr $tcl_version-3.4].
-
-Fixed bug in observe_var (upvar shouldn't have had the \#0).
-
-Made Interp->Inspect menu disappear if TkConInspect package was not present.
-
-Made package handling only enabled for Tcl7.5+ interps and reworked
-how packages were recognized.
-
-! Removed virtual events from Console bindings so that they don't screw
-! up the Console bindings (temporary fix).
-
-Changed how initially loaded packages were detected. (nijtmans)
-
-Made all globals visible in tkConInit. (/nijtmans)
-
----- September 23rd 1996 v0.63 ----
-
-Changed 'tkConFindBox' to not screw up search string.
-
----- September 20th 1996 v0.62 ----
-
-Added option for automagically ignoring dead interpreter problems. (wart)
-
-Fixed bug for reattaching to default slave via menu. (wart)
-
-Changed how 'observe' spit out trace info for commands.
-
-Modified 'idebug' internals.
-
-Made 'idebug' create its own tkCon(exec) slave for maintaining history.
-
-Fixed long-standing bug in 'lremove' for -all switch.
-
-Made tkCon(SCRIPT) follow links to the true source script.
-
-Added 'idebug puts' and 'idebug echo' methods.
-
-Fixed 'idebug break' to not work at level 0.
-
-Removed line that could improperly set $name and placed a 'catch'
-around the 'interp alias' for 'ls' in tkConInitInterp.
-
-tkConInit(Slave|Interp) now just 'catch'es the renaming of puts.
-
-Added 'tkcon set' and 'tkcon upvar' methods. (nijtmans)
-
----- September 17th 1996 v0.61 ----
-
-Added 'idebug' interactive debugging proc based off Stephen Uhler's all-Tcl
-debugger (Oct'95 _Linux_Journal_).  Should work w/ or w/o TkCon.
-
-Added back accidental removal of 'ls' alias in slaves.
-
----- September 15th 1996 v0.60 ----
-
-Added 'tkcon find str' method and find box to TkCon.
-
-Added 'observe{_var}' command for simple tracing of vars/cmds with
-output in the TkCon console window.
-
-Reworked tkConFillAppsMenu to be more efficient and correct.
-
-Added 'echo' as an internal proc and included it in tkCon(slaveprocs).
-
-Removed tkCon(prompt2).
-
-Changed tkCon(lightcmd) default to 1 from 0.
-
-Improved 'tkcon error' to allow it to check the errorInfo of other apps.
-
-'dump var' now outputs nested array values. (loverso)
-
-Changed tkCon(Load|Save) to use the new Tk4.2 dialogs if available.
-
-Fixed tkConPrompt problem where marks were set incorrectly sometimes
-when it was called by an event (such as <Control-1>).
-
-Added bgerror to slaves and 'tkcon bgerror' method. (nijtmans)
-
-Added tcl_unknown along with other minor mods to get TkCon to work better
-with IncrTcl. (nijtmans)
-
-Made <Triple-1> binding not include the prompt.
-
-Add null Console bindings for the tkCon(root) bindings to avoid them
-getting generated spuriously. (Hobbs / Wart)
-
-Added -argv/-- command line option.  This has very limited use, but is very
-good for wrapping TkCon around an existing application which has it's own
-command line args.  It resets $argv in the main interpreter to what remains
-on the command line and TkCon ignores argv.  This carries over to any "New
-Consoles".
-
-Reintroduced state procedures, placed them in Interp menu.  These should
-only be used if you really understand what they do.
-
-Added 'dump command' method.  Usefulness over 'dump proc' is minimal.
-
-Tightened up the command line args, dropped several optional switches.
-
-Placed all the Console bindings into tkConBindings, which is called
-in tkConInitUI.
-
-Added 'tkConInitInterp' which places the tkCon shell commands (already
-available in any tkCon slave) in the interpreter.  It also rewires
-puts to send the result back to tkCon.
-
-Fixed dead attachment problem where attaching to another interp after
-being connected to a dead interp would munge the new interp's name. (H / Wart)
-
-Added 'tkConEvalOther' which evals in the named interpreter.
-
-Removed 'tkConCheckPackages'.  Package handling is now separated into the
-autoloading part in tkConInit and into tkConInterpMenu which determines
-available static libraries and packages for an interpreter.  Menus redesigned.
-
-Changed 'tkcon eval' to 'tkcon master' since eval gave the wrong connotation.
-
-Made '-nontcl' option take a TCL_BOOLEAN argument.
-
-Made 'which' return unknown commands as an error.
-
-Added button into the help window to send the help URL to netscape.
-
-Made history substitution spit out a correctly translated command if
-evaluation doesn't return an error.
-
-Changed history search to use the same event id as regular command line
-history.
-
-Added tkCon(meta) variable which varies the Meta definition based on the
-platform (Unix == Meta; Win == Alt; Mac == Command)
-
-Added 'dump widget' method.  Spits out current widget state as returned
-by '.widget configure'.
-
-Changed 'dump proc' and 'which' to try and auto_load an unknown procedure.
-
-Added 'tkcon history' command to return a source'able history stack.
-
-Fixed off-by-one error in tkConExpand (caused expansion to not work unless
-you were expanding the last thing on the line and also not if a special
-char was the first on the line).
-
-Fixed TkCon package handling to work properly for IncrTcl. (nijtmans)
-
----- July 31 1996 v0.52 ----
-
-Reversed changes file to have newest at top.
-
-Added 'tkcon version' command.
-
-Fixed scoping problem when attaching to the master interpreter of a
-particular console.
-
-Rewrote the expansion routines to handle spaces in names better (no longer
-requires the user to use grouping as it puts in '\ ' for spaces).
-
-Fixed off-by-one bug in tkConExpandBestMatch(2).
-
-Rewired attachments so that when 'send' is used to attach to an app and an
-error occurs, TkCon determines whether the app still exists to prevent
-multiple errors from arising due to a dead attachment.  If this occurs, it
-prompts the user on whether to return to the primary slave or to check
-periodically for the attached interpreter to come back.  tkConEvalSend was
-added to facilitate this.
-
-Command highlighting is now only attempted when a non-empty character is
-inserted into the command line (%A != {}).
-
-Added Ctrl-2 accelerator to get attach to master interpreter of a console
-and Ctrl-3 to get to attach to the Main interpreter.
-
-Made the attachment to Main set the tkCon(app) to Main (to get around the
-menu -value {} bug) and also set tkConEvalAttached alias to 'tkConMain eval'.
-
-Rewrote tkConPrompt to accept "pre" and "post" args to place before and
-after the prompt is printed.  pre is tagged stdout, post is tagged stdin.
-
-Rewrote 'dump var' to recognize nested arrays, but not output them
-(it's too complicated to do that in source'able form), as well as
-recognize empty arrays.
-
-Rewrote tkConEvalCmd to keep track of errorInfo when errors occur.
-
-Added 'tkcon error' to display the last errorInfo.
-
-Changed dumpproc and dumpvar to dump (proc|var) ...
-
-Added -root argument to set the tkCon(root) variable explicitly.
-
-Changed the -(slave)eval args to append to rather than set their vars
-so that they can be specified multiple times on the command line.
-
-Added a limit argument to tkConMatch{Quote,Pair}.
-
-Rewrote dumpvar to recognize a single array value name (ie: a(b)).
-
-Renamed default non-Unix resource filename from from tkcon.bat to tkcon.cfg.
-
-No longer 'catch' the renaming of puts in a slave, because we'd want to
-know if that threw an error, although it never should...
-
----- July 14 1996 v0.51 ----
-
-Removed tkConUsage since it was never called.
-
-Changed tkCon(Load|Save) to use tkFileSelect, if it exists.
-
-Added -load and -pkg equivalents for -package.
-
-Added Ctrl-Key-1 binding to reattach to primary slave.
-
-TkCon now will create itself in a different toplevel if there are already
-children of . when tkConInit is called.
-
-Changed tkConInitSlave not to overwrite tcl_puts in a slave if it exists.
-
-Created tkCon(slaveprocs) to identify what procs get dumped into a
-slave each time and tkCon(slavealias) to identify what will be
-aliased back into the main interpreter.
-
----- July 4 1996 v0.50 ----
-
-Number of history events to keep now set by tkCon(history).
-
-'unknown' reworked (yet again) to properly handle itself in either the slave
-or another interpreter.  History substition was moved into tkConEvalCmd and
-made an option (via tkCon(subhistory)).
-
-Inlined _dir into dir/ls.  It doesn't save any cycles, but it removes
-the need to manage _dir.
-
-Fixed 'dir/ls -f' to denote executable files with a *.
-
-Fixed dir/ls to not die on 'dir -f <pattern>'. (Thanks to steven@indra.com)
-
-Changed tkConExpand to stop at $ as well.
-
-Changed tkConTagProc binding from Console <KeyRelease> to PostCon <KeyPress>.
-It seems to miss a lot less now.
-
----- July 3 1996 v0.49 ----
-
-Slight mod to <BackSpace>.
-
-Fixed <Delete> binding to not allow deletions of pre-Prompt text when a
-selection is made.
-
-Fixed tkConEvalCmd to properly send commands to foreign interpreters even
-if $tkCon(nontcl) was set.
-
-Made tkConEvalAttached be some type of alias at all times.
-
-Changed 'slavescript' to 'slaveeval' and added an 'eval' option.
-
----- June 25 1996 v0.48 ----
-
-Fixed 'alias' problem with multiple args.
-
-Updated binding system to automatically set Console bindings to equivalent
-Text bindings, then redefine what we want.
-
-Updated tkConTagProc to eval in attached slaves.  This can make it
-really slow when attached to foreign interpreters.
-
----- June 25 1996 v0.47 ----
-
-Fixed tkConExpandBest* to be more accurate ([string first] is only valid
-for us when it returns 0).
-
-Updated tkConExpandPathname to work better for attached interpreters.
-
-Renamed tkExpand* to tkConExpand* (they'd become too TkCon oriented).
-
-Changed tkConEvalCmd to 'list' instead of 'concat' command for attached
-interpreters, and to ignore the whole thing if [string match {} $cmd].
-
-Removed many bindings that were exactly duplicated by "Text" binding.
-
-Added tkCon(blinktime) option to allow user to specify blink duration.
-Value must be at least 100 (millisecs).
-
-Removed tkConUpDownLine.  It never varied from tkTextUpDownLine.
-
-Improved package loading to handle bad pkgIndex.tcl entries.
-
----- June 21 1996 v0.46 ----
-
-Improved package loading to be correct.
-
-Made 'dir' more Mac/Windows friendly (I hope).
-
----- June 21 1996 v0.45 (skipped v0.44) ----
-
-Added "Non-Tcl Attachments" preference to disallow sends to interpreters
-which may not understand Tcl (ie - SchemeTk, PerlTk).
-
-Rewrote tkConCheckPackages to allow calling it without a widget reference.
-
-Updated tkConEvalCmd.
-
-Added tkConEvalAttached to evaluate more things in the right place.
-
-Rewrote tkConAttach to allow for attaching directly to slave interpreters
-(no send required).  "Attach Console" menu now lists all slave interpreters
-by slave path (with Tk interp name in ()s), separate from foreign interps.
-
-Add tkConInitSlave to create a TkCon slave.
-
-Renamed tkExpand* to tclExpand*.
-
-Updated 'dir' for better output.
-
-Added command line argument support, rearranged tkConInit to support it.
-
----- June 18 1996 v0.43 ----
-
-Fixed 'unknown' to work in both slave and master interpreter.
-
-Modified 'dir' to be dumpproc'ed into slave.
-
-Rewrote 'clear' to be dumpproc'ed as well.
-
-Fixed 'puts' bug for slaves.
-
----- June 17 1996 v0.42 ----
-
-Added extra loop to tkConCheckPackages to account for packages that may
-auto-load Tk itself (like Tix or Tksteal).
-
----- June 15 1996 v0.41 ----
-
-Added 'warn' as an alias back into the main interpreter.
-
-Fixed documentation leftovers (and updated upgrade.html) to include the
-move of the 'main' and 'slave' commands into 'tkcon'.
-
-Fixed problem in 'clear' command
-
----- June 14 1996 v0.40 Released ----
-
-OK, I need to add some MAJOR changes here...
-
-Added package handling.
-
-Moved to two-level interpreter model (master control/slave execution).
-
----- June 13 1996 v0.38 ----
-
-Fixed auto_execpath to work on windows
-
----- June 11 1996 v0.37 ----
-
-Improved 'tkConResource' to get the right script name on all platforms
-under all manner of circumstances
-
-Improved sourcing of tkCon resource file to not throw bogus errors
-
----- Jun 10 1996 v0.36 ----
-
-Fixed <Control-n> bug (incr $tkCon(event) --> incr tkCon(event))
-
----- June 8 1996 v0.35 ----
-
-Removed "Resource" from 'Edit' menu
-
-Rewrote 'clear' to accept percentage level
-
-Fixed <Control-s> forward history search bug
-
----- June 6 1996 v0.34 ----
-
-Added 'clean' alias to revert a slave to its "pristine" state
-
-Added tkConState* procs to monitor state and be able to revert it
-
-Enhanced 'which' and added an 'auto_execpath' proc.
-
-Removed all known global uses of 'tmp*' variables.
-
-Fixed problem in tkExpandPathname that munged pathnames with spaces.
-
-Fixed problem in many places where spaces in directories and command names
-might get things confused.
-
-Fixed problem with non-interactive slaves.
-
-Commented out binding that recreates a deleted console window.
-
-Add tclindex command.
-
-Added support for -full to ls/dir.
-
-Added command buffer save and command buffer search bindings.
-
-Added Prefs menu.
-
-Changed File menu name to Console.
-
-Removed 'Load/Save File' command from File menu (to easy to source) and
-added 'save' command.
-
-Changed dumpvar to use "array set ..." when outputting array values.
-
-Changed tkCon to use tkcon.rc on non-unix machines.
-
-Revamped tkConInit and source file to make sure nothing specific to tkCon
-was set until an Init proc was called.
-
----- May 10 1996 Made 0.27 Available to the public ----
-
----- May 8 1996 Released 0.26 Third semi-public release ----
-
-tkConNew now returns the name of the newly created interpreter.
-
-Added 'main' and 'slave' inter-console communication commands.  Also,
-all slave interpreters become commands in all slave consoles (make sure
-not to name procs "slave#") when created.  tkConOtherInterp proc added
-to handle the communication.
-
-Moved tkConDestroy and tkConNew into new proc tkConMainInit to prevent
-resourcing problems with slave interpreters
-
-Fixed 'puts' bug by removing all 'uplevel subst ...' and placing an
-'eval ...' at the beginning.
-
----- May 7 1996 Released 0.25 Second semi-public release ----
-
-Discovered bug in puts/output sequence - still searching
-
-Added unalias command, fixed alias command to not unalias commands if
-not enough args were passed
-
-Updated 'unknown' to mirror current tcl7.5 'unknown'
-
-Changed var names inside some procs
-
-Added comments to most procs
-
-Fixed off-by-one bug in tkExpandPathname
-
----- May 4 1996 Released 0.24 First semi-public release ----
-
-Changes file begun Tue May  7 19:09:51 PDT 1996
diff --git a/tkcon/docs/demopic.png b/tkcon/docs/demopic.png
deleted file mode 100644
index 799c09c..0000000
--- a/tkcon/docs/demopic.png
+++ /dev/null
diff --git a/tkcon/docs/dump.html b/tkcon/docs/dump.html
deleted file mode 100755
index 87e7873..0000000
--- a/tkcon/docs/dump.html
+++ /dev/null
@@ -1,100 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>tkcon: dump procedure</TITLE>
-<LINK REL="STYLESHEET" TYPE="text/css" HREF="./style.css">
-</HEAD>
-
-<BODY BGCOLOR=#FFFFFF>
-
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=0 BGCOLOR=#000000><TR><TD>
-<!-- start header info -->
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>
-<TR>
-<TH><FONT SIZE=+3>tkcon: <CODE>dump</CODE> procedure</FONT></TH>
-<TD align=right>
-<A href="http://tkcon.sourceforge.net/"> 
-<IMG src="http://sourceforge.net/sflogo.php?group_id=11462&type=1" width="88"
-height="31" border="0" alt="SourceForge Logo"></A>
-</TD>
-</TR>
-</TABLE>
-<!-- end header info -->
-
-</TD></TR><TR><TD>
-<!-- start main navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#CCCCCC width=100%>
-<TR>
-<TH CLASS="hi"><A HREF="index.html" CLASS="hi">Documentation</A></TH>
-<TH><A HREF="purpose.html">Purpose &amp; Features</A></TH>
-<TH><A HREF="limits.html">Limitations</A></TH>
-<TH><A HREF="todo.html">To&nbsp;Do</A></TH>
-<TH><A HREF="license.terms">License</A></TH>
-</TR><TR>
-<TH COLSPAN=2><A HREF="plugin.html">Online Demo</A>
-(requires <A HREF="http://tcl.activestate.com/software/plugin/">Tk plugin</A>)</TH>
-<TH COLSPAN=3><A HREF="nontcl.html">Using TkCon with other Tk Languages</A></TH>
-</TR>
-</TABLE>
-<!-- end main navigation table -->
-</TD></TR><TR><TD>
-<!-- start secondary navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#BBBBBB width=100%>
-<TR>
-<TH><A HREF="start.html">Getting Started</A></TH>
-<TH><A HREF="bindings.html">Special Bindings</A></TH>
-<TH><A HREF="procs.html">Procedures</A></TH>
-<TH><A HREF="demopic.png">Screenshot</A></TH>
-</TR>
-<TR>
-<TH CLASS="hi2"><A HREF="dump.html" CLASS="hi2"><CODE>dump</CODE></A></TH>
-<TH><A HREF="tkcon.html"><CODE>tkcon</CODE></A></TH>
-<TH><A HREF="idebug.html"><CODE>idebug</CODE></A></TH>
-<TH><A HREF="observe.html"><CODE>observe</CODE></A></TH>
-</TR>
-</TABLE>
-<!-- end secondary navigation table -->
-</TD></TR><TR><TD BGCOLOR=#FFFFFF>
-<DIV CLASS="indent">
- <P>
-The <CODE>dump</CODE> command provides a way for the user to spit out
-state information about the interpreter in a Tcl readable (and human
-readable) form.  It takes the general form:
-
-<BLOCKQUOTE>
-<code>dump</code> <b>method</b> <i>?-nocomplain? ?-filter pattern? ?--?
-pattern ?pattern ...?</i>
-</BLOCKQUOTE>
-
-The patterns represent glob-style patterns (as in <code>string match pattern
-$str</code>).  <i>-nocomplain</i> will prevent <code>dump</code> from
-throwing an error if no items matched the pattern.  <i>-filter</i> is
-interpreted as appropriate for the method.  The various methods are:
-
-<DL>
-
-<DT> <CODE>dump <b>command</b></CODE> <i>args</i>
-<DD> Outputs one or more commands.
-
-<DT> <CODE>dump <b>procedure</b></CODE> <i>args</i>
-<DD> Outputs one or more procs in sourceable form.
-
-<DT> <CODE>dump <b>variable</b></CODE> <i>args</i>
-<DD> Outputs the values of variables in sourceable form.  Recognizes nested
-arrays.  The <i>-filter</i> pattern is used as to filter array element
-names and is interepreted as a glob pattern (defaults to {*}).
-It is passed down for nested arrays.
-
-<DT> <CODE>dump <b>widget</b></CODE> <i>args</i>
-<DD> Outputs one or more widgets by giving their configuration options.
-The <i>-filter</i> pattern is used as to filter the config options and
-is interpreted as a case insensitive regexp pattern (defaults to {.*})
-
-</DL>
-</DIV>
-</TD></TR></TABLE>
-
-<HR NOSHADE SIZE=1>
-<ADDRESS><FONT SIZE=2>&copy; Jeffrey Hobbs</FONT></ADDRESS>
-
-</BODY>
-</HTML>
diff --git a/tkcon/docs/dump.n.man b/tkcon/docs/dump.n.man
deleted file mode 100644
index 9dbccdb..0000000
--- a/tkcon/docs/dump.n.man
+++ /dev/null
@@ -1,60 +0,0 @@
-[comment {-*- tcl -*- dump manpage}]
-[manpage_begin dump n 2.5]
-[copyright {Jeffrey Hobbs <jeff at hobbs.org>}]
-[moddesc   {TkCon}]
-[titledesc {Dump information about Tcl interpreter in TkCon}]
-
-[description]
-[para]
-The dump command provides a way for the user to spit out state
-information about the interpreter in a Tcl readable
-(and human readable) form.
-It takes the general form:
-
-[list_begin definitions]
-
-[call [cmd dump] [arg method]\
-		 [opt [arg -nocomplain]]\
-		 [opt [arg "-filter pattern"]]\
-		 [opt [cmd --]]\
-		 [arg pattern]\
-		 [opt [arg "pattern ..."]]]
-
-[list_end]
-
-[para]
-The patterns represent glob-style patterns (as in [cmd string] [arg {match pattern $str}]).
-[arg -nocomplain] will prevent dump from throwing an error if no items
-matched the pattern.
-[arg -filter] is interpreted as appropriate for the method.
-The various methods are:
-
-[list_begin definitions]
-
-[def "[cmd dump] [arg command] [arg args]"]
-Outputs one or more commands.
-
-[def "[cmd dump] [arg procedure] [arg args]"]
-Outputs one or more procs in sourceable form.
-
-[def "[cmd dump] [arg variable] [arg args]"]
-Outputs the values of variables in sourceable form.
-Recognizes nested arrays.
-The -filter pattern is used as to filter array element
-names and is interepreted as a glob pattern (defaults to {*}).
-It is passed down for nested arrays.
-
-[def "[cmd dump] [arg widget] [arg args]"]
-Outputs one or more widgets by giving their configuration options.
-The -filter pattern is used as to filter the config options and
-is interpreted as a case insensitive regexp pattern (defaults to {.*}).
-
-[list_end]
-
-[see_also [cmd tkcon](1)]
-[see_also [cmd tkconrc](5) [cmd tkcon](n) [cmd idebug](n)]
-[see_also [cmd observe](n)]
-[keywords Tk console dump]
-
-[manpage_end]
-
diff --git a/tkcon/docs/idebug.html b/tkcon/docs/idebug.html
deleted file mode 100755
index 8a98ec1..0000000
--- a/tkcon/docs/idebug.html
+++ /dev/null
@@ -1,125 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>tkcon: idebug procedure</TITLE>
-<LINK REL="STYLESHEET" TYPE="text/css" HREF="./style.css">
-</HEAD>
-
-<BODY BGCOLOR=#FFFFFF>
-
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=0 BGCOLOR=#000000><TR><TD>
-<!-- start header info -->
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>
-<TR>
-<TH><FONT SIZE=+3>tkcon: <CODE>idebug</CODE> procedure</FONT></TH>
-<TD align=right>
-<A href="http://tkcon.sourceforge.net/"> 
-<IMG src="http://sourceforge.net/sflogo.php?group_id=11462&type=1" width="88"
-height="31" border="0" alt="SourceForge Logo"></A>
-</TD>
-</TR>
-</TABLE>
-<!-- end header info -->
-
-</TD></TR><TR><TD>
-<!-- start main navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#CCCCCC width=100%>
-<TR>
-<TH CLASS="hi"><A HREF="index.html" CLASS="hi">Documentation</A></TH>
-<TH><A HREF="purpose.html">Purpose &amp; Features</A></TH>
-<TH><A HREF="limits.html">Limitations</A></TH>
-<TH><A HREF="todo.html">To&nbsp;Do</A></TH>
-<TH><A HREF="license.terms">License</A></TH>
-</TR><TR>
-<TH COLSPAN=2><A HREF="plugin.html">Online Demo</A>
-(requires <A HREF="http://tcl.activestate.com/software/plugin/">Tk plugin</A>)</TH>
-<TH COLSPAN=3><A HREF="nontcl.html">Using TkCon with other Tk Languages</A></TH>
-</TR>
-</TABLE>
-<!-- end main navigation table -->
-</TD></TR><TR><TD>
-<!-- start secondary navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#BBBBBB width=100%>
-<TR>
-<TH><A HREF="start.html">Getting Started</A></TH>
-<TH><A HREF="bindings.html">Special Bindings</A></TH>
-<TH><A HREF="procs.html">Procedures</A></TH>
-<TH><A HREF="demopic.png">Screenshot</A></TH>
-</TR>
-<TR>
-<TH><A HREF="dump.html"><CODE>dump</CODE></A></TH>
-<TH><A HREF="tkcon.html"><CODE>tkcon</CODE></A></TH>
-<TH CLASS="hi2"><A HREF="idebug.html" CLASS="hi2"><CODE>idebug</CODE></A></TH>
-<TH><A HREF="observe.html"><CODE>observe</CODE></A></TH>
-</TR>
-</TABLE>
-<!-- end secondary navigation table -->
-</TD></TR><TR><TD BGCOLOR=#FFFFFF>
-<DIV CLASS="indent">
- <P>
-The <B>idebug</B> command provides an interactive debugging environment for
-procedures via TkCon.  You can place <code>idebug break</code> commands
-into your procedure to create breakpoints.  It will pop up the TkCon
-console and put you into a "debugging" mode.  The <code>body, show &amp;
-trace</code> methods are intended for internal use only.
- <P>
-
-This procedure works for minimal debugging sessions.  Comments are
-encouraged.
-
-<DL>
-
-<DT> <CODE>idebug <b>body</b></CODE> <I>?level?</I>
-<DD> Prints out the body of the command (if it is a procedure) at the
-specified level.  <i>level</i> defaults to the current level.
-
-<DT> <CODE>idebug <b>break</b></CODE> <I>?id?</I>
-<DD> Creates a breakpoint within a procedure.  This will only trigger if
-idebug is on and the id matches the pattern.  If so, TkCon will pop to the
-front with the prompt changed to an idebug prompt.  You are given the basic
-ability to observe the call stack an query/set variables or execute Tcl
-commands at any level.  A separate history is maintained in debugging mode.
-To see the special commands available at the debug prompt, type <B>?</B>
-and hit return.
-
-<DT> <CODE>idebug {echo ?id?}</CODE> <I>?args?</I>
-<DD> Behaves just like <code>echo</code>, but only triggers when idebug is
-on.  You can specify an optional id to further restrict triggering.  If no
-id is specified, it defaults to the name of the command in which the call
-was made.
-
-<DT> <CODE>idebug <b>id</b></CODE> <I>?id?</I>
-<DD> Query or set the idebug id.  This id is used by other idebug methods
-to determine if they should trigger or not.  The idebug id can be a glob
-pattern and defaults to *.
-
-<DT> <CODE>idebug <b>off</b></CODE>
-<DD> Turns idebug off.
-
-<DT> <CODE>idebug <b>on</b></CODE> <I>?id?</I>
-<DD> Turns idebug on.  If <i>id</i> is specified, it sets the id to it.
-
-<DT> <CODE>idebug {puts ?id?}</CODE> <I>args</I>
-<DD> Behaves just like <code>puts</code>, but only triggers when idebug is
-on.  You can specify an optional id to further restrict triggering.  If no
-id is specified, it defaults to the name of the command in which the call
-was made.
-
-<DT> <CODE>idebug <b>show</b></CODE> <I>type ?level? ?VERBOSE?</I>
-<DD> <i>type</i> must be one of vars, locals or globals.  This method
-will output the variables/locals/globals present in a particular level.
-If VERBOSE is added, then it actually 'dump's out the values as well.
-<i>level</i> defaults to the level in which this method was called.
-
-<DT> <CODE>idebug <b>trace</b></CODE> <I>?level?</I>
-<DD> Prints out the stack trace from the specified level up to the top
-level.  <i>level</i> defaults to the current level.
-
-</DL>
-</DIV>
-</TD></TR></TABLE>
-
-<HR NOSHADE SIZE=1>
-<ADDRESS><FONT SIZE=2>&copy; Jeffrey Hobbs</FONT></ADDRESS>
-
-</BODY>
-</HTML>
diff --git a/tkcon/docs/idebug.n.man b/tkcon/docs/idebug.n.man
deleted file mode 100644
index 1547081..0000000
--- a/tkcon/docs/idebug.n.man
+++ /dev/null
@@ -1,83 +0,0 @@
-[comment {-*- tcl -*- idebug manpage}]
-[manpage_begin idebug n 2.5]
-[copyright {Jeffrey Hobbs <jeff at hobbs.org>}]
-[moddesc   {TkCon}]
-[titledesc {Interactive debugging environment in TkCon}]
-
-[description]
-[para]
-The idebug command provides an interactive debugging
-environment for procedures via TkCon.
-You can place idebug break commands into your procedure
-to create breakpoints.
-It will pop up the TkCon console and put you into a
-"debugging" mode.
-The [arg body], [arg show] & [arg trace] methods are
-intended for internal use only.
-
-This procedure works for minimal debugging sessions.
-Comments are encouraged.
-
-[list_begin definitions]
-
-[call [cmd idebug] [arg body] [opt [arg level]]]
-Prints out the body of the command (if it is a procedure)
-at the specified level.
-level defaults to the current level.
-
-[call [cmd idebug] [arg break] [opt [arg id]]]
-Creates a breakpoint within a procedure.
-This will only trigger if idebug is on and the [arg id] matches the pattern.
-If so, TkCon will pop to the front with the prompt changed
-to an idebug prompt.
-You are given the basic ability to observe the call stack
-an query/set variables or execute Tcl commands at any level.
-A separate history is maintained in debugging mode.
-To see the special commands available at the debug prompt,
-type ? and hit return.
-
-[call [cmd idebug] \{[arg "[arg echo] [opt [arg id]]"]\} [opt [arg args]]]
-Behaves just like [cmd echo], but only triggers when idebug is on.
-You can specify an optional [arg id] to further restrict triggering.
-If no id is specified, it defaults to the name of the command
-in which the call was made.
-
-[call [cmd idebug] [arg id] [opt [arg id]]]
-Query or set the idebug id.
-This id is used by other idebug methods to determine if
-they should trigger or not.
-The idebug id can be a glob pattern and defaults to *.
-
-[call [cmd idebug] [arg off]]
-Turns idebug off.
-
-[call [cmd idebug] [arg on] [opt [arg id]]]
-Turns idebug on.
-If [arg id] is specified, it sets the id to it.
-
-[call [cmd idebug] \{[arg "[arg puts] [opt [arg id]]"]\} [arg args]]
-Behaves just like [cmd puts], but only triggers when idebug is on.
-You can specify an optional [arg id] to further restrict triggering.
-If no id is specified, it defaults to the name of the
-command in which the call was made.
-
-[call [cmd idebug] [arg show] [arg type] [opt [arg level]] [opt [arg VERBOSE]]]
-type must be one of vars, locals or globals.
-This method will output the variables/locals/globals present
-in a particular level.
-If [arg VERBOSE] is added, then it actually [cmd dump]s out the values as well.
-level defaults to the level in which this method was called.
-
-[call [cmd idebug] [arg trace] [opt [arg level]]]
-Prints out the stack trace from the specified level up to the top level.
-level defaults to the current level.
-
-[list_end]
-
-[see_also [cmd tkcon](1)]
-[see_also [cmd tkconrc](5) [cmd tkcon](n) [cmd dump](n)]
-[see_also [cmd observe](n)]
-[keywords Tk console debug]
-
-[manpage_end]
-
diff --git a/tkcon/docs/index.html b/tkcon/docs/index.html
deleted file mode 100755
index 9d4709b..0000000
--- a/tkcon/docs/index.html
+++ /dev/null
@@ -1,81 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>tkcon: Documentation</TITLE>
-<LINK REL="STYLESHEET" TYPE="text/css" HREF="./style.css">
-</HEAD>
-
-<BODY BGCOLOR=#FFFFFF>
-
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=0 BGCOLOR=#000000><TR><TD>
-<!-- start header info -->
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>
-<TR>
-<TD><FONT SIZE=+3><B>tkcon Documentation</B> (June 2001)</FONT></TD>
-<TD align=right>
-<A href="http://tkcon.sourceforge.net/"> 
-<IMG src="http://sourceforge.net/sflogo.php?group_id=11462&type=1" width="88"
-height="31" border="0" alt="SourceForge Logo"></A>
-</TD>
-</TR>
-</TABLE>
-<!-- end header info -->
-
-</TD></TR><TR><TD>
-<!-- start main navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#CCCCCC width=100%>
-<TR>
-<TH CLASS="hi"><A HREF="index.html" CLASS="hi">Documentation</A></TH>
-<TH><A HREF="purpose.html">Purpose &amp; Features</A></TH>
-<TH><A HREF="limits.html">Limitations</A></TH>
-<TH><A HREF="todo.html">To&nbsp;Do</A></TH>
-<TH><A HREF="license.terms">License</A></TH>
-</TR><TR>
-<TH COLSPAN=2><A HREF="plugin.html">Online Demo</A>
-(requires <A HREF="http://tcl.activestate.com/software/plugin/">Tk plugin</A>)</TH>
-<TH COLSPAN=3><A HREF="nontcl.html">Using TkCon with other Tk Languages</A></TH>
-</TR>
-</TABLE>
-<!-- end main navigation table -->
-
-</TD></TR><TR><TD BGCOLOR=#FFFFFF>
-<DIV CLASS="indent">
-
-<!--
-<H4><A HREF="ftp://tkcon.sourceforge.net/pub/tkcon/">Release Archives</A> (ftp)</H4>
--->
-
-<H4><A
-HREF="http://sourceforge.net/project/showfiles.php?group_id=11462">Release
-Archives</A> (high speed server)</H4>
-
-<H4><A HREF="demopic.png">Screenshot</A></H4>
-
-Please <B>read the following pages carefully</B> to fully understand the
-features AND limitations of TkCon.  I'm always open to suggestions for
-improvement.
- <P>
-</DIV>
-</TD></TR><TR><TD>
-
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#CCCCCC width=100%>
-<TR>
-<TH><A HREF="start.html">Getting Started</A></TD>
-<TH><A HREF="bindings.html">Special Bindings</A></TH>
-<TH><A HREF="procs.html">tkcon Procedures</A></TH>
-<TH><A HREF="demopic.png">Screenshot</A></TH>
-</TR>
-<TR>
-<TH><A HREF="dump.html"><CODE>dump</CODE> proc</A></TH>
-<TH><A HREF="tkcon.html"><CODE>tkcon</CODE> proc</A></TH>
-<TH><A HREF="idebug.html"><CODE>idebug</CODE> proc</A></TH>
-<TH><A HREF="observe.html"><CODE>observe</CODE> proc</A></TH>
-</TR>
-</TABLE>
-
-</TD></TR></TABLE>
-
-<HR NOSHADE SIZE=1>
-<ADDRESS><FONT SIZE=2>&copy; Jeffrey Hobbs</FONT></ADDRESS>
-
-</BODY>
-</HTML>
diff --git a/tkcon/docs/license.terms b/tkcon/docs/license.terms
deleted file mode 100755
index 5b757ba..0000000
--- a/tkcon/docs/license.terms
+++ /dev/null
@@ -1,33 +0,0 @@
-		   * COPYRIGHT AND LICENSE TERMS *
-
-This software is copyrighted by Jeffrey Hobbs <jeff and hobbs org>.  The
-following terms apply to all files associated with the software unless
-explicitly disclaimed in individual files.
-
-The authors hereby grant permission to use, copy, modify, distribute, and
-license this software and its documentation for any purpose, provided that
-existing copyright notices are retained in all copies and that this notice
-is included verbatim in any distributions.  No written agreement, license,
-or royalty fee is required for any of the authorized uses.
-
-IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY FOR
-DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT
-OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY DERIVATIVES THEREOF,
-EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES,
-INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY,
-FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT.  THIS SOFTWARE IS
-PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE NO
-OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
-MODIFICATIONS.
-
-SPECIAL NOTES:
-
-This software is also falls under the bourbon_ware clause v2:
-
- This software is free, but should you find this software useful in your
- daily work and would like to compensate the author, donations in the form
- of aged bourbon and scotch are welcome by the author.  The user may feel
- exempt from this clause if they are below drinking age or think the author
- has already partaken of too many drinks.
diff --git a/tkcon/docs/limits.html b/tkcon/docs/limits.html
deleted file mode 100755
index 072501d..0000000
--- a/tkcon/docs/limits.html
+++ /dev/null
@@ -1,76 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>tkcon: Limitations</TITLE>
-<LINK REL="STYLESHEET" TYPE="text/css" HREF="./style.css">
-</HEAD>
-
-<BODY BGCOLOR=#FFFFFF>
-
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=0 BGCOLOR=#000000><TR><TD>
-<!-- start header info -->
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>
-<TR>
-<TH><FONT SIZE=+3>tkcon: Limitations</FONT></TH>
-<TD align=right>
-<A href="http://tkcon.sourceforge.net/"> 
-<IMG src="http://sourceforge.net/sflogo.php?group_id=11462&type=1" width="88"
-height="31" border="0" alt="SourceForge Logo"></A>
-</TD>
-</TR>
-</TABLE>
-<!-- end header info -->
-
-</TD></TR><TR><TD>
-<!-- start main navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#CCCCCC width=100%>
-<TR>
-<TH><A HREF="index.html">Documentation</A></TH>
-<TH><A HREF="purpose.html">Purpose &amp; Features</A></TH>
-<TH CLASS="hi"><A HREF="limits.html" CLASS="hi">Limitations</A></TH>
-<TH><A HREF="todo.html">To&nbsp;Do</A></TH>
-<TH><A HREF="license.terms">License</A></TH>
-</TR><TR>
-<TH COLSPAN=2><A HREF="plugin.html">Online Demo</A>
-(requires <A HREF="http://www.tcl.tk/software/plugin/">Tk plugin</A>)</TH>
-<TH COLSPAN=3><A HREF="nontcl.html">Using TkCon with other Tk Languages</A></TH>
-</TR>
-</TABLE>
-<!-- end main navigation table -->
-
-</TD></TR><TR><TD BGCOLOR=#FFFFFF>
-<DIV CLASS="indent">
-<H3>Limitations:</H3>
-
-TkCon requires Tk8.4+.  Since TkCon is meant to behave like the original Tk
-console, it does not separate itself from the environment (it does not use
-send to function, except when attached to foreign Tk interpreters).  This
-means that it can be can be altered or destroyed by any sourced
-applications, and it will respond to an application's 'exit' call by
-exiting (by default, slave consoles will only close themselves instead of
-exiting the entire TkCon environment).  However, the widget tree of TkCon
-is hidden from the user environment.
- <P>
-
-Since TkCon is built for cross-platform capability, <font color=#FF0000>in
-Unix/Windows environments it does not have tty/shell behavior</font>.  This
-means programs like <CODE>vi</CODE> and <CODE>less</CODE> (those that rely
-on tty/shell settings) will not function appropriately (currently they may
-hang TkCon).  Programs like <CODE>ls</CODE> and <CODE>more</CODE> will just
-spit output to the TkCon screen without any special control or formatting
-(note that <CODE>ls</CODE> has been rewritten for TkCon).  You also do not
-get any job (process) control outside of what tcl normally can provide.
-Currently there is no way to handle <CODE>stdin</CODE> input.
- <P>
-
-When connecting to non-Tcl Tk interpreters (ie - PerlTk, SchemeTk, ...),
-you must use the syntax of the target environment.  See my
-<A HREF="nontcl.html">notes on using other Tk-embedded languages</A> for
-more info.
-</DIV>
-</TD></TR></TABLE>
-
-<HR NOSHADE SIZE=1>
-<ADDRESS><FONT SIZE=2>&copy; Jeffrey Hobbs</FONT></ADDRESS>
-
-</BODY>
-</HTML>
diff --git a/tkcon/docs/nontcl.html b/tkcon/docs/nontcl.html
deleted file mode 100755
index 47dbbe9..0000000
--- a/tkcon/docs/nontcl.html
+++ /dev/null
@@ -1,75 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>tkcon for Non-Tcl Users</TITLE>
-<LINK REL="STYLESHEET" TYPE="text/css" HREF="./style.css">
-</HEAD>
-
-<BODY BGCOLOR=#FFFFFF>
-
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=0 BGCOLOR=#000000><TR><TD>
-<!-- start header info -->
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>
-<TR>
-<TH><FONT SIZE=+3>tkcon: Non-Tcl Usage</FONT></TH>
-<TD align=right>
-<A href="http://tkcon.sourceforge.net/"> 
-<IMG src="http://sourceforge.net/sflogo.php?group_id=11462&type=1" width="88"
-height="31" border="0" alt="SourceForge Logo"></A>
-</TD>
-</TR>
-</TABLE>
-<!-- end header info -->
-
-</TD></TR><TR><TD>
-<!-- start main navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#CCCCCC width=100%>
-<TR>
-<TH><A HREF="index.html">Documentation</A></TH>
-<TH><A HREF="purpose.html">Purpose &amp; Features</A></TH>
-<TH><A HREF="limits.html">Limitations</A></TH>
-<TH><A HREF="todo.html">To&nbsp;Do</A></TH>
-<TH><A HREF="license.terms">License</A></TH>
-</TR><TR>
-<TH COLSPAN=2><A HREF="plugin.html">Online Demo</A>
-(requires <A HREF="http://www.tcl.tk/software/plugin/">Tk plugin</A>)</TH>
-<TH COLSPAN=3 CLASS="hi"><A HREF="nontcl.html" CLASS="hi">Using TkCon with other Tk Languages</A></TH>
-</TR>
-</TABLE>
-<!-- end main navigation table -->
-
-</TD></TR><TR><TD BGCOLOR=#FFFFFF>
-<DIV CLASS="indent">
-<I>This document is for those users who are trying to use TkCon with a
-non-Tcl based Tk language (ie - SchemeTk, PerlTk, PythonTk...).</I>
- <P>
-
-TkCon requires <A HREF="http://tcl.activestate.com/">Tcl/Tk 8.4+</A> to
-run.  However, it can attach to any language with Tk4+
-embedded into it with the use of the Tk 'send' command.  I have been able
-to succesfully talk to SchemeTk-3.0 and Perl/Tk.  When using TkCon attached
-to these interpreters, you must remember to talk to the connected
-interpreter in its language.
- <P>
-I welcome further comments from users of Tk-embedded languages on their
-experiences or ideas.  Of course, you can always try to port TkCon in full
-to your language.  I'd like to see the results from any such efforts.
- <P>
-
-<H3>Special Language Notes:</H3>
-
-<H4>Perl Tk</H4>
-
-Read the man page on Perl/Tk's send command.  You have to define Tk::Receive
-before it will work.
-<A HREF="mailto:lusol@turkey.cc.lehigh.edu">Stephen Lidie
-(lusol@Turkey.CC.Lehigh.EDU)</A> contributed
-a <A HREF="perl.txt">companion Perl/Tk program</A> that does the trick with
-some extras.
-</DIV>
-</TD></TR></TABLE>
-
-<HR NOSHADE SIZE=1>
-<ADDRESS><FONT SIZE=2>&copy; Jeffrey Hobbs</FONT></ADDRESS>
-
-</BODY>
-</HTML>
diff --git a/tkcon/docs/observe.html b/tkcon/docs/observe.html
deleted file mode 100755
index f597534..0000000
--- a/tkcon/docs/observe.html
+++ /dev/null
@@ -1,104 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>tkcon: observe procedure</TITLE>
-<LINK REL="STYLESHEET" TYPE="text/css" HREF="./style.css">
-</HEAD>
-
-<BODY BGCOLOR=#FFFFFF>
-
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=0 BGCOLOR=#000000><TR><TD>
-<!-- start header info -->
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>
-<TR>
-<TH><FONT SIZE=+3>tkcon: <CODE>observe</CODE> procedure</FONT></TH>
-<TD align=right>
-<A href="http://tkcon.sourceforge.net/"> 
-<IMG src="http://sourceforge.net/sflogo.php?group_id=11462&type=1" width="88"
-height="31" border="0" alt="SourceForge Logo"></A>
-</TD>
-</TR>
-</TABLE>
-<!-- end header info -->
-
-</TD></TR><TR><TD>
-<!-- start main navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#CCCCCC width=100%>
-<TR>
-<TH CLASS="hi"><A HREF="index.html" CLASS="hi">Documentation</A></TH>
-<TH><A HREF="purpose.html">Purpose &amp; Features</A></TH>
-<TH><A HREF="limits.html">Limitations</A></TH>
-<TH><A HREF="todo.html">To&nbsp;Do</A></TH>
-<TH><A HREF="license.terms">License</A></TH>
-</TR><TR>
-<TH COLSPAN=2><A HREF="plugin.html">Online Demo</A>
-(requires <A HREF="http://tcl.activestate.com/software/plugin/">Tk plugin</A>)</TH>
-<TH COLSPAN=3><A HREF="nontcl.html">Using TkCon with other Tk Languages</A></TH>
-</TR>
-</TABLE>
-<!-- end main navigation table -->
-</TD></TR><TR><TD>
-<!-- start secondary navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#BBBBBB width=100%>
-<TR>
-<TH><A HREF="start.html">Getting Started</A></TH>
-<TH><A HREF="bindings.html">Special Bindings</A></TH>
-<TH><A HREF="procs.html">Procedures</A></TH>
-<TH><A HREF="demopic.png">Screenshot</A></TH>
-</TR>
-<TR>
-<TH><A HREF="dump.html"><CODE>dump</CODE></A></TH>
-<TH><A HREF="tkcon.html"><CODE>tkcon</CODE></A></TH>
-<TH><A HREF="idebug.html"><CODE>idebug</CODE></A></TH>
-<TH CLASS="hi2"><A HREF="observe.html" CLASS="hi2"><CODE>observe</CODE></A></TH>
-</TR>
-</TABLE>
-<!-- end secondary navigation table -->
-</TD></TR><TR><TD BGCOLOR=#FFFFFF>
-<DIV CLASS="indent">
- <P>
-This command provides runtime debugging output for variables and commands
-without the need to edit your code.  For variables, the underlying mechanism
-uses <code>trace</code> and <code>dump var</code>.  For commands, it renames
-the observed procedure and uses a special wrapper procedure.  <b><font
-color="#FF0000">WARNING:</font></b> using this procedure after checkpointing
-state will result in major problems if you clean state because the renamed
-(true) commands will be lost.
- <P>
-
-This procedure is experimental.  Comments are encouraged.
-
-<DL>
-
-<DT> <CODE>observe <b>command</b></CODE> <I>cmdname ?maxlevel?</I>
-<DD> This will create a wrapper command which prints out (using
-<code>dump</code>) the call stack to the console.  <i>maxlevel</i>
-represents the maximum number of levels of the call stack which will be
-printed (defaults to 4).
-
-<DT> <CODE>observe <b>cdelete</b></CODE> <I>cmdname</I>
-<DD> Removes the wrapper around an observed command.
-
-<DT> <CODE>observe <b>cinfo</b></CODE> <I>cmdname</I>
-<DD> Prints out useless info.
-
-<DT> <CODE>observe <b>variable</b></CODE> <I>varname operation ?args?</I>
-<DD> Currently a wrapper around trace that uses <code>dump</code> to
-print out the value of the named variable whenever the specified operation
-on that variable occurs (must be read, write or unset).
-
-<DT> <CODE>observe <b>vdelete</b></CODE> <I>varname operation</I>
-<DD> Deletes the trace wrapper around the named variable.
-
-<DT> <CODE>observe <b>vinfo</b></CODE> <I>varname</I>
-<DD> Prints out trace info about the named variable.
-
-</DL>
-</DIV>
-</TD></TR></TABLE>
-
-<HR NOSHADE SIZE=1>
-<ADDRESS><FONT SIZE=2>&copy;
-Jeffrey Hobbs</FONT></ADDRESS>
-
-</BODY>
-</HTML>
diff --git a/tkcon/docs/observe.n.man b/tkcon/docs/observe.n.man
deleted file mode 100644
index d9630ba..0000000
--- a/tkcon/docs/observe.n.man
+++ /dev/null
@@ -1,55 +0,0 @@
-[comment {-*- tcl -*- observe manpage}]
-[manpage_begin observe n 2.5]
-[copyright {Jeffrey Hobbs <jeff at hobbs.org>}]
-[moddesc   {TkCon}]
-[titledesc {Runtime debugging output in TkCon}]
-
-[description]
-[para]
-This command provides runtime debugging output for variables
-and commands without the need to edit your code.
-For variables, the underlying mechanism uses [cmd trace] and [cmd dump] var.
-For commands, it renames the observed procedure and uses a
-special wrapper procedure.
-WARNING: using this procedure after checkpointing state will
-result in major problems if you clean state because the
-renamed (true) commands will be lost.
-
-[para]
-This procedure is experimental.
-Comments are encouraged.
-
-[list_begin definitions]
-
-[call [cmd observe] [arg command] [arg cmdname] [opt [arg maxlevel]]]
-This will create a wrapper command which prints out (using [cmd dump])
-the call stack to the console.
-maxlevel represents the maximum number of levels of the call
-stack which will be printed (defaults to 4).
-
-[call [cmd observe] [arg cdelete] [arg cmdname]]
-Removes the wrapper around an observed command.
-
-[call [cmd observe] [arg cinfo] [arg cmdname]]
-Prints out useless info.
-
-[call [cmd observe] [arg variable] [arg varname] [arg operation] [opt [arg args]]]
-Currently a wrapper around trace that uses [cmd dump] to print out
-the value of the named variable whenever the specified
-operation on that variable occurs (must be [arg read], [arg write] or [arg unset]).
-
-[call [cmd observe] [arg vdelete] [arg varname] [arg operation]]
-Deletes the trace wrapper around the named variable.
-
-[call [cmd observe] [arg vinfo] [arg varname]]
-Prints out trace info about the named variable.
-
-[list_end]
-
-[see_also [cmd tkcon](1)]
-[see_also [cmd tkconrc](5) [cmd tkcon](n) [cmd dump](n)]
-[see_also [cmd idebug](n)]
-[keywords Tk console debug]
-
-[manpage_end]
-
diff --git a/tkcon/docs/perl.txt b/tkcon/docs/perl.txt
deleted file mode 100755
index 37463b5..0000000
--- a/tkcon/docs/perl.txt
+++ /dev/null
@@ -1,109 +0,0 @@
-#!/usr/local/bin/perl -w
- 
-# tkcon.pl - a Perl/Tk	"shell" companion for tkcon.tcl.
-#
-# Variable $MW is an object reference to the main window, from which you can
-# create and manipulate child widgets.	Variable names beginning with an
-# underscore are reserved for this application.
-#
-# Stephen O. Lidie, 96/08/25
- 
-require 5.002;
-use English;
-use Tk;
-use Tk::Pretty qw(Pretty);
-use Tk::Dialog;
-use strict;
-use subs qw(doit tkcon);
-my($MW, $_TKCON, $_VERSION, $_HELP, $_SHELL, $_TAB, $_PARA, @_ERRORS, $_MES);
- 
-tkcon;				# main
- 
-sub doit {
- 
-    # Eval some code without use strict constraints.
- 
-    my($code) = @ARG;
- 
-    {
-	no strict;
-	if ($_MES) {
-	    $_MES->packForget;
-	    $_MES->destroy;
-	    $_MES = 0;
-	}
-	@_ERRORS = ();
-	$SIG{'__WARN__'} = sub {push @_ERRORS, @ARG};
-	my $_res = eval $code;
-	push @_ERRORS, $EVAL_ERROR if $EVAL_ERROR;
-	push @_ERRORS, $_res;
-    }
- 
-} # end doit
- 
-sub tkcon {
- 
-    # Nothing fancy here, just create the main window and the help dialog
-    # object, and display a pointer to the help.
- 
-    $_TKCON = 'tkcon.pl';
-    $_VERSION = '0.2';
-    $_SHELL = '/bin/sh';
-    $_SHELL = $ENV{'SHELL'} if $ENV{'SHELL'};
-    $_TAB = 0;
-    $_PARA = '';
- 
-    $MW = MainWindow->new;
-    $MW->title($_TKCON);
-    $MW->iconname($_TKCON);
-    $_HELP = $MW->Dialog(
-	-title	    => "$_TKCON Help",
-	-font	    => 'fixed',
-	-wraplength => '6i',
-	-justify    => 'left',
-	-text	    =>
-	    "?	  - this text.\n" .
-	    "|	  - pass arguments to your shell (default /bin/sh).\n" .
-	    "p	  - use Tk::Pretty to \"pretty-print\" arguments.\n" .
-	    "+	  - a tab starts/stops multiline input mode.\n" .
-	    "exit - quit $_TKCON.\n" .
-	    "\nOther input is assumed to be a Perl/Tk command.\n" .
-	    "\n\$MW is the MainWindow.\n",
-			 );
-    $_HELP->configure(-foreground => 'blue');
-    $_MES = $MW->Label(-text => "\nEnter ? for help.\n")->pack;
-    MainLoop;
- 
-} # end tkcon
- 
-sub Tk::Receive {
- 
-    shift();
-    $ARG = shift();
-    if (/^\?(.*)/) {		# help
-	$_HELP->Show;
-    } elsif (/^\|(.*)/) {	# bang
-	@_ERRORS = ();
-	push @_ERRORS, `$_SHELL -c $1 2>&1`;
-    } elsif (/^\+$/) {
-	$_TAB++;
-	if ($_TAB % 2) {
-	    @_ERRORS = ();
-	    $_PARA = '';
-	    push @_ERRORS, '+';
-	} else {
-	    doit $_PARA;
-	}
-    } else {			# Perl/Tk command
-	$ARG = "Pretty($1)" if (/^p\s(.*)$/);
-	if ($_TAB % 2) {
-	    $_PARA .= $ARG;
-	    push @_ERRORS, '+';
-	} else {
-	    doit $ARG;
-	}
-    } # ifend
- 
-    return @_ERRORS;
- 
-} # end Tk::Receive
diff --git a/tkcon/docs/plugin.html b/tkcon/docs/plugin.html
deleted file mode 100755
index 1cc1896..0000000
--- a/tkcon/docs/plugin.html
+++ /dev/null
@@ -1,113 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>tkcon: Tcl Plugin Stripped Demo</TITLE>
-<LINK REL="STYLESHEET" TYPE="text/css" HREF="./style.css">
-</HEAD>
-
-<BODY>
-
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=0 BGCOLOR=#000000><TR><TD>
-<!-- start header info -->
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>
-<TR>
-<TD><FONT SIZE=+3><B>tkcon Documentation</B> (May 2001)</FONT></TD>
-<TD align=right>
-<A href="http://tkcon.sourceforge.net/"> 
-<IMG src="http://sourceforge.net/sflogo.php?group_id=11462&type=1" width="88"
-height="31" border="0" alt="SourceForge Logo"></A>
-</TD>
-</TR>
-</TABLE>
-<!-- end header info -->
-
-</TD></TR><TR><TD>
-<!-- start main navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#CCCCCC width=100%>
-<TR>
-<TH><A HREF="index.html">Documentation</A></TH>
-<TH><A HREF="purpose.html">Purpose &amp; Features</A></TH>
-<TH><A HREF="limits.html">Limitations</A></TH>
-<TH><A HREF="todo.html">To&nbsp;Do</A></TH>
-<TH><A HREF="license.terms">License</A></TH>
-</TR><TR>
-<TH COLSPAN=2 CLASS="hi"><A HREF="plugin.html" CLASS="hi">Online Demo</A>
-(requires <A HREF="http://www.tcl.tk/software/plugin/">Tk plugin</A>)</TH>
-<TH COLSPAN=3><A HREF="nontcl.html">Using TkCon with other Tk Languages</A></TH>
-</TR>
-</TABLE>
-<!-- end main navigation table -->
-
-</TD></TR><TR><TD BGCOLOR=#FFFFFF>
-<DIV CLASS="indent">
-<P>
-This is the full tkcon script when run inside the plugin.  It feels like a
-stripped down version of tkcon, but the only limitations are those
-established by the plugin.  You can test the basic console features and get
-a feel for the mutli-color output.  Below the demo are some ideas to try
-out.  v2+ of the plugin is distributed with a megawidget version of tkcon for
-debugging tclets.  The demo below uses the CVS head of tkcon.
-
-<P>
-  <OBJECT
-        ID="PluginHostCtrl"
-        CLASSID="CLSID:14E78123-A693-4F27-B6EE-DDDE18F93D3A"
-        WIDTH="600"
-        HEIGHT="350"
->
-          <PARAM name="type" value="application/x-tcl"/>
-          <PARAM name="pluginspage" value="http://www.tcl.tk/software/plugin/"/>
-          <PARAM name="src"  value="http://tkcon.cvs.sourceforge.net/tkcon/tkcon/tkcon.tcl?rev=HEAD&content-type=application/x-tcl"/>
-
-        <EMBED
-          TYPE="application/x-tcl"
-          PLUGINSPAGE="http://www.tcl.tk/software/plugin/"
-          FRAMEBORDER="NO"
-          WIDTH="600"
-          HEIGHT="350"
-          SRC="http://tkcon.cvs.sourceforge.net/tkcon/tkcon/tkcon.tcl?rev=HEAD&content-type=application/x-tcl"
-        >
-        </EMBED>
-  </OBJECT>
-</P>
-
-Have a look at some of the features: (culled from the
-<A HREF="index.html">tkcon documentation</A>)
-<UL>
-<LI> <B>Variable / Path / Procedure Name Expansion.</B>  Type in
-<CODE>set tc</CODE> at the prompt.  Hit <I>&lt;Control-Shift-V&gt;</I>.
-<CODE>set tcl_</CODE> should now be visible.
-Hit <I>&lt;Control-Shift-V&gt;</I> again.  You should see the rest of
-the completions printed out for you.  Works the same for procedures
-and files paths (file access restricted from plugin).  Works properly
-when spaces or other funny characters are including in the name.
-
-<LI> <B>Command Highlighting.</B> Note that <CODE>set</CODE> should be in
-green, denoting it is a recognized command in that interpreter.
-
-<LI> <B>Electric Character Matching.</B>  Watch while you type the
-following: <CODE>proc foo { a b } { puts [list $a $b] }</CODE>.  Did you
-notice the blink matching of the braces?  Yes, it's smart.
-
-<LI> <B>Command History.</B>  Use the Up/Down arrows or
-<I>&lt;Control-p&gt;</I>/<I>&lt;Control-n&gt;</I> to peruse the command
-history.  <I>&lt;Control-r&gt;</I>/<I>&lt;Control-s&gt;</I> Actually
-does command history matching (like tcsh or other advanced Unix shells).
-
-<LI> <B>Useful Colorization.</B> Having defined <CODE>foo</CODE> above, type
-in <CODE>foo hey</CODE>.  Note that the error comes back in red.  Go up one
-in the command history and add <CODE> you</CODE> and see that regular
-stdout output comes through in blue (the colors are configurable).
-
-<LI> <B>Cut/Copy/Paste.</B>  You should be able to do that between outside
-windows and TkCon.  The default keys are
-<I>&lt;Control-x&gt;</I>/<I>&lt;Control-c&gt;</I>/<I>&lt;Control-v&gt;</I>.
-
-</UL>
-</DIV>
-</TD></TR></TABLE>
-
-<HR NOSHADE SIZE=1>
-<ADDRESS><FONT SIZE=2>&copy; Jeffrey Hobbs</FONT></ADDRESS>
-
-</BODY>
-</HTML>
diff --git a/tkcon/docs/procs.html b/tkcon/docs/procs.html
deleted file mode 100755
index c2a0279..0000000
--- a/tkcon/docs/procs.html
+++ /dev/null
@@ -1,167 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>tkcon: Procedures</TITLE>
-<LINK REL="STYLESHEET" TYPE="text/css" HREF="./style.css">
-</HEAD>
-
-<BODY BGCOLOR=#FFFFFF>
-
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=0 BGCOLOR=#000000><TR><TD>
-<!-- start header info -->
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>
-<TR>
-<TH><FONT SIZE=+3>tkcon: Procedures</FONT></TH>
-<TD align=right>
-<A href="http://tkcon.sourceforge.net/"> 
-<IMG src="http://sourceforge.net/sflogo.php?group_id=11462&type=1" width="88"
-height="31" border="0" alt="SourceForge Logo"></A>
-</TD>
-</TR>
-</TABLE>
-<!-- end header info -->
-
-</TD></TR><TR><TD>
-<!-- start main navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#CCCCCC width=100%>
-<TR>
-<TH CLASS="hi"><A HREF="index.html" CLASS="hi">Documentation</A></TH>
-<TH><A HREF="purpose.html">Purpose &amp; Features</A></TH>
-<TH><A HREF="limits.html">Limitations</A></TH>
-<TH><A HREF="todo.html">To&nbsp;Do</A></TH>
-<TH><A HREF="license.terms">License</A></TH>
-</TR><TR>
-<TH COLSPAN=2><A HREF="plugin.html">Online Demo</A>
-(requires <A HREF="http://tcl.activestate.com/software/plugin/">Tk plugin</A>)</TH>
-<TH COLSPAN=3><A HREF="nontcl.html">Using TkCon with other Tk Languages</A></TH>
-</TR>
-</TABLE>
-<!-- end main navigation table -->
-</TD></TR><TR><TD>
-<!-- start secondary navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#BBBBBB width=100%>
-<TR>
-<TH><A HREF="start.html">Getting Started</A></TH>
-<TH><A HREF="bindings.html">Special Bindings</A></TH>
-<TH CLASS="hi2"><A HREF="procs.html" CLASS="hi2">Procedures</A></TH>
-<TH><A HREF="demopic.png">Screenshot</A></TH>
-</TR>
-<TR>
-<TH><A HREF="dump.html"><CODE>dump</CODE></A></TH>
-<TH><A HREF="tkcon.html"><CODE>tkcon</CODE></A></TH>
-<TH><A HREF="idebug.html"><CODE>idebug</CODE></A></TH>
-<TH><A HREF="observe.html"><CODE>observe</CODE></A></TH>
-</TR>
-</TABLE>
-<!-- end secondary navigation table -->
-</TD></TR><TR><TD BGCOLOR=#FFFFFF>
-<DIV CLASS="indent">
- <P>
-There are several new procedures introduced in TkCon to improve
-productivity and/or account for lost functionality in the Tcl environment
-that users are used to in native environments.  There are also some
-redefined procedures.  Here is a non-comprehensive list:
-
-<DL COMPACT>
-
-<DT> <B>alias</B> <I>?sourceCmd targetCmd ?arg arg ...??</I>
-<DD> Simple alias mechanism.  It will overwrite existing commands.
-When called without args, it returns current aliases.  Note that TkCon
-makes some aliases for you (in slaves).
-<font color=#FF0000>Don't delete those</font>.
-
-<DT> <B>clear</B> <I>?percentage?</I>
-<DD> Clears the text widget.  Same as the &lt;Control-l&gt; binding, except
-this will accept a percentage of the buffer to clear (1-100, 100 default).
-
-<DT> <B>dir</B> <i>?-all? ?-full? ?-long? ?pattern pattern ...?</i>
-<DD> Cheap way to get directory listings.  Uses glob style pattern matching.
-
-<DT> <B>dump</B> <I>type ?-nocomplain? ?-filter pattern? ?--?
-pattern ?pattern ...?</I>
-<DD> The <CODE>dump</CODE> command provides a way for the user to spit out
-state information about the interpreter in a Tcl readable (and human
-readable) form.
-See <a href="dump.html">further <B>dump</B> docs</a> for details.
-
-<DT> <B>echo</B> <I>?arg arg ...?</I>
-<DD> Concatenates the args and spits the result to the console (stdout).
-
-<DT> <B>edit</B> <I>?-type type? ?-find str? ?-attach interp?</I> arg
-<font size=-1 color=#990033>NEW in v1.4, still under construction</font>
-<DD> Opens an editor with the data from <I>arg</I>.  The optional <I>type</I>
-argument can be one of: <I>proc</I>, <I>var</I> or <I>file</I>.  For
-proc or var, the <I>arg</I> may be a pattern.
-
-<DT> <B>idebug</B> <I>command ?args?</I>
-<DD> Interactive debugging command.
-See <a href="idebug.html">further <B>idebug</B> docs</a> for details.
-
-<DT> <B>lremove</B> <I>?-all? ?-regexp -glob? list items</I>
-<DD> Removes one or more items from a list and returns the new list.  If
-<I>-all</I> is specified, it removes all instances of each item in the
-list.  If <I>-regexp</I> or <I>-glob</I> is specified, it interprets each
-item in the items list as a regexp or glob pattern to match against.
-
-<DT> <B>less</B>
-<DD> Aliased to <B>edit</B>.
-
-<DT> <B>ls</B>
-<DD> Aliased to <B>dir -full</B>.
-
-<DT> <B>more</B>
-<DD> Aliased to <B>edit</B>.
-
-<DT> <B>observe</B> <I>type ?args?</I>
-<DD> This command provides passive runtime debugging output for variables
-and commands.
-See <a href="observe.html">further <B>observe</B> docs</a> for details.
-
-<DT> <B>puts</B> (same options as always)
-<DD> Redefined to put the output into TkCon
-
-<DT> <B>tkcon</B> <I>method ?args?</I>
-<DD> Multi-purpose command.
-See <a href="tkcon.html">further <B>tkcon</B> docs</a> for details.
-
-<DT> <B>tclindex</B> <I>?-extensions patternlist? ?-index TCL_BOOLEAN?
-?-package TCL_BOOLEAN? ?dir1 dir2 ...?</I>
-<DD> Convenience proc to update the tclIndex (controlled by -index switch)
-and/or pkgIndex.tcl (controlled by -package switch) file in the named
-directories based on the given pattern for files.  It defaults to creating
-the tclIndex but not the pkgIndex.tcl file, with the directory defaulting
-to [pwd].  The extension defaults to *.tcl, with *.[info sharelibextension]
-added when -package is true.
-
-<DT> <B>unalias</B> <I>cmd</I>
-<DD> unaliases command
-
-<DT> <B>what</B> <i>string</i>
-<DD> The <CODE>what</CODE> command will identify the word given in
-<i>string</i> in the Tcl environment and return a list of types that
-it was recognized as.  Possible types are: alias, procedure, command,
-array variable, scalar variable, directory, file, widget, and executable.
-Used by procedures <CODE>dump</CODE> and <CODE>which</CODE>.
-
-<DT> <B>which</B> <i>command</i>
-<DD> Like the 'which' command of Unix shells, this will tell you if a
-particular command is known, and if so, whether it is internal or external
-to the interpreter.  If it is an internal command and there is a slot in
-auto_index for it, it tells you the file that auto_index would load.  This
-does not necessarily mean that that is where the file came from, but if it
-were not in the interpreter previously, then that is where the command was
-found.
-
-</DL>
-
-There are several procedures that I use as helpers that some may find
-helpful in there coding (ie - expanding pathnames).  Feel free to lift
-them from the code (but do assign proper attribution).
-</DIV>
-</TD></TR></TABLE>
-
-<HR NOSHADE SIZE=1>
-<ADDRESS><FONT SIZE=2>&copy;
-Jeffrey Hobbs</FONT></ADDRESS>
-
-</BODY>
-</HTML>
diff --git a/tkcon/docs/purpose.html b/tkcon/docs/purpose.html
deleted file mode 100755
index 1d5a087..0000000
--- a/tkcon/docs/purpose.html
+++ /dev/null
@@ -1,87 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>tkcon: Purpose & Features</TITLE>
-<LINK REL="STYLESHEET" TYPE="text/css" HREF="./style.css">
-</HEAD>
-
-<BODY BGCOLOR=#FFFFFF>
-
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=0 BGCOLOR=#000000><TR><TD>
-<!-- start header info -->
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>
-<TR>
-<TD><FONT SIZE=+3><B>tkcon: Purpose &amp; Features</B></FONT></TD>
-<TD align=right>
-<A href="http://tkcon.sourceforge.net/"> 
-<IMG src="http://sourceforge.net/sflogo.php?group_id=11462&type=1" width="88"
-height="31" border="0" alt="SourceForge Logo"></A>
-</TD>
-</TR>
-</TABLE>
-<!-- end header info -->
-
-</TD></TR><TR><TD>
-<!-- start main navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#CCCCCC width=100%>
-<TR>
-<TH><A HREF="index.html">Documentation</A></TH>
-<TH CLASS="hi"><A HREF="purpose.html" CLASS="hi">Purpose &amp; Features</A></TH>
-<TH><A HREF="limits.html">Limitations</A></TH>
-<TH><A HREF="todo.html">To&nbsp;Do</A></TH>
-<TH><A HREF="license.terms">License</A></TH>
-</TR><TR>
-<TH COLSPAN=2><A HREF="plugin.html">Online Demo</A>
-(requires <A HREF="http://tcl.activestate.com/software/plugin/">Tk plugin</A>)</TH>
-<TH COLSPAN=3><A HREF="nontcl.html">Using TkCon with other Tk Languages</A></TH>
-</TR>
-</TABLE>
-<!-- end main navigation table -->
-
-</TD></TR><TR><TD BGCOLOR=#FFFFFF>
-<DIV CLASS="indent">
-
-<H3>Purpose:</H3>
-
-tkcon is a replacement for the standard console that comes with Tk (on
-Windows/Mac, but also works on Unix).  The console itself provides
-<i>many</i> more features than the standard console.  tkcon works on all
-platforms where Tcl/Tk is available.  It is meant primarily to aid one when
-working with the little details inside tcl and tk, giving Unix users the GUI
-console provided by default in the Mac and Windows Tk.  It's also not a bad
-replacement for the default MS-DOS shell (although it needs lots of fine
-tuning).
- <P>
-See <A HREF="limits.html">Limitations</A> for a good idea of what
-tkcon <B>can't</B> do for you.
-
-<H3>Features:</H3>
-
-Just in case you don't run across them while playing, here are some of the
-extras in tkcon:
-<UL>
-<LI> Command history
-<LI> Path (Unix style) / Proc / Variable name expansion
-<LI> Multiple consoles, each with its own state (via multiple interpreters)
-<LI> Captures <CODE>stdout</CODE> and <CODE>stderr</CODE> to console window
-<LI> Electric character matching (a la emacs)
-<LI> Electric proc highlighting
-<LI> Enhanced history searching
-<LI> Configurable
-<LI> Cut / Copy / Paste between windows
-<LI> Communication between consoles and other Tk interpreters (including
-non-tcl ones)
-<LI> Hot Errors (click on error result to see stack trace)
-<LI> Works on all Tk platforms
-</UL>
-
-Read the <A HREF="index.html">documentation</A> for how to take advantage
-of these features.
-</DIV>
-</TD></TR></TABLE>
-
-<HR NOSHADE SIZE=1>
-<ADDRESS><FONT SIZE=2>&copy;
-Jeffrey Hobbs</FONT></ADDRESS>
-
-</BODY>
-</HTML>
diff --git a/tkcon/docs/start.html b/tkcon/docs/start.html
deleted file mode 100755
index 5cc9808..0000000
--- a/tkcon/docs/start.html
+++ /dev/null
@@ -1,358 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>tkcon: Getting Started</TITLE>
-<LINK REL="STYLESHEET" TYPE="text/css" HREF="./style.css">
-</HEAD>
-
-<BODY BGCOLOR=#FFFFFF>
-
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=0 BGCOLOR=#000000><TR><TD>
-<!-- start header info -->
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>
-<TR>
-<TH><FONT SIZE=+3>tkcon: Getting Started</FONT></TH>
-<TD align=right>
-<A href="http://tkcon.sourceforge.net/"> 
-<IMG src="http://sourceforge.net/sflogo.php?group_id=11462&type=1" width="88"
-height="31" border="0" alt="SourceForge Logo"></A>
-</TD>
-</TR>
-</TABLE>
-<!-- end header info -->
-
-</TD></TR><TR><TD>
-<!-- start main navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#CCCCCC width=100%>
-<TR>
-<TH CLASS="hi"><A HREF="index.html" CLASS="hi">Documentation</A></TH>
-<TH><A HREF="purpose.html">Purpose &amp; Features</A></TH>
-<TH><A HREF="limits.html">Limitations</A></TH>
-<TH><A HREF="todo.html">To&nbsp;Do</A></TH>
-<TH><A HREF="license.terms">License</A></TH>
-</TR><TR>
-<TH COLSPAN=2><A HREF="plugin.html">Online Demo</A>
-(requires <A HREF="http://tcl.activestate.com/software/plugin/">Tk plugin</A>)</TH>
-<TH COLSPAN=3><A HREF="nontcl.html">Using TkCon with other Tk Languages</A></TH>
-</TR>
-</TABLE>
-<!-- end main navigation table -->
-</TD></TR><TR><TD>
-<!-- start secondary navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#BBBBBB width=100%>
-<TR>
-<TH CLASS="hi2"><A HREF="start.html" CLASS="hi2">Getting Started</A></TH>
-<TH><A HREF="bindings.html">Special Bindings</A></TH>
-<TH><A HREF="procs.html">Procedures</A></TH>
-<TH><A HREF="demopic.png">Screenshot</A></TH>
-</TR>
-<TR>
-<TH><A HREF="dump.html"><CODE>dump</CODE></A></TH>
-<TH><A HREF="tkcon.html"><CODE>tkcon</CODE></A></TH>
-<TH><A HREF="idebug.html"><CODE>idebug</CODE></A></TH>
-<TH><A HREF="observe.html"><CODE>observe</CODE></A></TH>
-</TR>
-</TABLE>
-<!-- end secondary navigation table -->
-</TD></TR><TR><TD BGCOLOR=#FFFFFF>
-<DIV CLASS="indent">
-<H3>Resource File:</H3>
-
-TkCon will search for a resource file in "<CODE>$env(HOME)/.tkconrc</CODE>"
-(Unix), "<CODE>$env(HOME)/tkcon.cfg</CODE>" (Windows) or
-"<CODE>$env(PREF_FOLDER)/tkcon.cfg</CODE>" (Macintosh).  On DOS machines,
-"<CODE>$env(HOME)</CODE>" usually refers to "<CODE>C:\</CODE>".  TkCon
-never sources the "<CODE>~/.wishrc</CODE>" file.  The resource file is
-sourced by each new instance of the console.  An example resource file is
-provided below.
-
-<H3>Command Line Arguments</H3>
-
-Except for <CODE>-rcfile</CODE>, command line arguments are handled after
-the TkCon resource file is sourced, but before the slave interpreter or the
-TkCon user interface is initialized.  <CODE>-rcfile</CODE> is handled right
-before it would be sourced, allowing you to specify any alternate file.
-Command line arguments are passed to each new console and will be evaluated
-by each.  To prevent this from happening, you have to say
-<CODE>tkcon main set argv {}; tkcon main set argc 0</CODE>.
- <P>
-For these options, any unique substring is allowed.
-
-<DL>
-
-<DT> <CODE>-argv</CODE> (also <CODE>--</CODE>)
-<DD> Causes TkCon to stop evaluating arguments and set the remaining args to
-be argv/argc (with <CODE>--</CODE> prepended).  This carries over for any
-further consoles.  This is meant only for wrapping TkCon around programs
-that require their own arguments.
-
-<DT> <CODE>-color-&lt;color&gt;</CODE> <I>color</I>
-<DD> Sets the requested color type to the specified color for tkcon.
-See the <B>Variables</B> section for the recognized
-<i>&lt;color&gt;</i> names.
-
-<DT> <CODE>-eval</CODE> (also <CODE>-main</CODE> or <CODE>-e</CODE>)
-<DD> A tcl script to eval in each main interpreter.  This is evaluated
-after the resource file is loaded and the slave interpreter is created.
-Multiple <CODE>-eval</CODE> switches will be recognized (in order).
-
-<DT> <CODE>-exec</CODE> <I>slavename</I>
-<DD> Sets the named slave that tkcon operates in.  In general, this is only
-useful to set to "" (empty), indicating to tkcon to avoid the
-multi-interpreter model and operate in the main environment.  When this is
-empty, any further arguments will be only used in the first tkcon console
-and not passed onto further new consoles.  This is useful when using tkcon
-as a console for extended wish executables that don't load there commands
-into slave interpreters.
-
-<DT> <CODE>-font</CODE> <I>font</I>
-<DD> Sets the font that tkcon uses for its text windows.  If this isn't
-a fixed width font, tkcon will override it.
-
-<DT> <CODE>-nontcl</CODE> <I>TCL_BOOLEAN</I>
-<DD> Sets <CODE>::tkcon::OPT(nontcl)</CODE> to <I>TCL_BOOLEAN</I>.  Needed
-when attaching to non-Tcl interpreters.
-
-<DT> <CODE>-package</CODE> <I>package_name</I> (also <CODE>-load</CODE>)
-<DD> Packages to automatically load into the slave interpreters (ie - "Tk").
-
-<DT> <CODE>-rcfile</CODE> <I>filename</I>
-<DD> Specify an alternate tkcon resource file name.
-
-<DT> <CODE>-root</CODE> <I>widgetname</I>
-<DD> Makes the named widget the root name of all consoles (ie - .tkcon).
-
-<DT> <CODE>-slave</CODE> <I>tcl_script</I>
-<DD> A tcl script to eval in each slave interpreter.  This will append
-the one specified in the tkcon resource file, if any.
-
-</DL>
-
-Some examples of tkcon command line startup situations:
-<DL>
-
-<DT> <CODE>megawish tkcon.tcl -exec "" -root .tkcon mainfile.tcl</CODE>
-<DD> Use tkcon as a console for your megawish application.  You can avoid
-starting the line with <CODE>megawish</CODE> if that is the default wish
-that tkcon would use.  The <CODE>-root</CODE> ensures that tkcon will not
-conflict with the 
-
-<DT> <CODE>tkcon.tcl -font "Courier 12" -load Tk</CODE>
-<DD> Use the courier font for tkcon and always load Tk in slave
-interpreters at startup.
-
-<DT> <CODE>tkcon.tcl -rcfile ~/.wishrc -color,bg white</CODE>
-<DD> Use the <CODE>~/.wishrc</CODE> file as the resource file, and
-a white background for tkcon's text widgets.
-
-</DL>
-
-<H3>Variables:</H3>
-
-Certain variables in TkCon can be modified to suit your needs.  It's
-easiest to do this in the resource file, but you can do it when time the
-program is running (and some can be changed via the Prefs menu).  All these
-are part of the master interpreter's <code>::tkcon</code> namespace.  The
-modifiable array variables are <CODE>::tkcon::COLOR</CODE> and
-<CODE>::tkcon::OPT</CODE>.  You can call '<CODE>tkcon set
-::tkcon::COLOR</CODE>' when the program is running to check its state.
-Here is an explanation of certain variables you might change or use:
-
-<DL>
-
-<DT> <CODE>::tkcon::COLOR(bg)</CODE>
-<DD> The background color for tkcon text widgets.
-Defaults to the operating system default (determined at startup).
-
-<DT> <CODE>::tkcon::COLOR(blink)</CODE>
-<DD> The background color of the electric brace highlighting, if on.
-Defaults to <font color=#FFFF00>yellow</font>.
-
-<DT> <CODE>::tkcon::COLOR(cursor)</CODE>
-<DD> The background color for the insertion cursor in tkcon.
-Defaults to <font color=#000000>black</font>.
-
-<DT> <CODE>::tkcon::COLOR(disabled)</CODE>
-<DD> The foreground color for disabled menu items.
-Defaults to <font color=#4D4D4D>dark grey</font>.
-
-<DT> <CODE>::tkcon::COLOR(proc)</CODE>
-<DD> The foreground color of a recognized proc, if command highlighting is on.
-Defaults to <font color=#008800>dark green</font>.
-
-<DT> <CODE>::tkcon::COLOR(var)</CODE>
-<DD> The background color of a recognized var, if command highlighting is on.
-Defaults to <font color=#FFC0D0>pink</font>.
-
-<DT> <CODE>::tkcon::COLOR(prompt)</CODE>
-<DD> The foreground color of the prompt as output in the console.
-Defaults to <font color=#8F4433>brown</font>.
-
-<DT> <CODE>::tkcon::COLOR(stdin)</CODE>
-<DD> The foreground color of the stdin for the console.
-Defaults to <font color=#000000>black</font>.
-
-<DT> <CODE>::tkcon::COLOR(stdout)</CODE>
-<DD> The foreground color of the stdout as output in the console.
-Defaults to <font color=#0000FF>blue</font>.
-
-<DT> <CODE>::tkcon::COLOR(stderr)</CODE>
-<DD> The foreground color of stderr as output in the console.
-Defaults to <font color=#FF0000>red</font>.
- <P>
-
-<DT> <CODE>::tkcon::OPT(autoload)</CODE>
-<DD> Packages to automatically load into the slave interpreter (ie - 'Tk').
-This is a list.  Defaults to {} (none).
-
-<DT> <CODE>::tkcon::OPT(blinktime)</CODE>
-<DD> The amount of time (in millisecs) that braced sections should
-<I>blink</I> for.  Defaults to 500 (.5 secs), must be at least 100.
-
-<DT> <CODE>::tkcon::OPT(blinkrange)</CODE>
-<DD> Whether to blink the entire range for electric brace matching or to
-just blink the actual matching braces (respectively 1 or 0, defaults to 1).
-
-<DT> <CODE>::tkcon::OPT(buffer)</CODE>
-<DD> The size of the console scroll buffer (in lines).
-Defaults to 512.
-
-<DT> <CODE>::tkcon::OPT(calcmode)</CODE>
-<DD> Whether to allow <CODE>expr</CODE> commands to be run at the command
-line without prefixing them with <CODE>expr</CODE> (just a convenience).
-
-<DT> <CODE>::tkcon::OPT(cols)</CODE>
-<DD> Number of columns for the console to start out with.  Defaults to 80.
-
-<DT> <CODE>::tkcon::OPT(dead)</CODE>
-<DD> What to do with dead connected interpreters.  If <CODE>dead</CODE>
-is <i>leave</i>, TkCon automatically exits the dead interpreter.  If
-<CODE>dead</CODE> is <i>ignore</i> then it remains attached waiting for
-the interpreter to reappear.  Otherwise TkCon will prompt you.
-
-<DT> <CODE>::tkcon::OPT(exec)</CODE>
-<DD> This corresponds to the <CODE>-exec</CODE> option above
-
-<DT> <CODE>::tkcon::OPT(font)</CODE>
-<DD> Font to use for tkcon text widgets (also specified with -font).
-Defaults to the system default, or a fixed width equivalent.
-
-<DT> <CODE>::tkcon::OPT(gets)</CODE>
-<DD> Controls whether tkcon will overload the gets command to work with
-tkcon.  The valid values are: <code>congets</code> (the default), which
-will redirect <code>stdin</code> requests to the tkcon window;
-<code>gets</code>, which will pop up a dialog to get input; and {} (empty
-string) which tells tkcon not to overload gets.  This value must be set at
-startup to alter tkcon's behavior.
-
-<DT> <CODE>::tkcon::OPT(history)</CODE>
-<DD> The size of the history list to keep.  Defaults to 48.
-
-<DT> <CODE>::tkcon::OPT(hoterrors)</CODE>
-<DD> Whether hot errors are enabled or not.  When enabled, errors that
-are returned to the console are marked with a link to the error info
-that will pop up in an minimal editor.  This requires more memory because
-each error that occurs will maintain bindings for this feature, as long
-as the error is in the text widget.  Defaults to on.
-
-<DT> <CODE>::tkcon::OPT(library)</CODE>
-<DD> The path to any tcl library directories (these are appended to the
-auto_path when the after the resource file is loaded in).
-
-<DT> <CODE>::tkcon::OPT(lightbrace)</CODE>
-<DD> Whether to use the brace highlighting feature or not
-(respectively 1 or 0, defaults to 1).
-
-<DT> <CODE>::tkcon::OPT(lightcmd)</CODE>
-<DD> Whether to use the command highlighting feature or not
-(respectively 1 or 0, defaults to 1).
-
-<DT> <CODE>::tkcon::OPT(maineval)</CODE>
-<DD> A tcl script to execute in the main interpreter after the slave
-interpreter is created and the user interface is initialized.
-
-<DT> <CODE>::tkcon::OPT(maxlinelen)</CODE>
-<DD> A number that specifies the limit of long result lines.
-True result is still captured in $_ (and 'puts $_' works).
-Defaults to 0 (unlimited).
-
-<DT> <CODE>::tkcon::OPT(maxmenu)</CODE>
-<DD> A number that specifies the maximum number of packages to show
-vertically in the Interp-&gt;Packages menu before breaking into
-another column.  Defaults to 15.
-
-<DT> <CODE>::tkcon::OPT(nontcl)</CODE>
-<DD> For those who might be using non-Tcl based Tk attachments, set this
-to 1.  It prevents TkCon from trying to evaluate its own Tcl code in an
-attached interpreter.  Also see my <A HREF="nontcl.html">notes for non-Tcl
-based Tk interpreters</A>.
-
-<DT> <CODE>::tkcon::OPT(prompt1)</CODE>
-<DD> Like tcl_prompt1, except it doesn't require you use '<CODE>puts</CODE>'.
-No equivalent for tcl_prompt2 is available (it's unnecessary IMHO).
-<BR>Defaults to {([file tail [pwd]]) [history nextid] % }.
-
-<DT> <CODE>::tkcon::OPT(rows)</CODE>
-<DD> Number of rows for the console to start out with.  Defaults to 20.
-
-<DT> <CODE>::tkcon::OPT(scollypos)</CODE>
-<DD> Y scrollbar position.  Valid values are <CODE>left</CODE> or
-<CODE>right</CODE>.  Defaults to <CODE>left</CODE>.
-
-<DT> <CODE>::tkcon::OPT(showmenu)</CODE>
-<DD> Show the menubar on startup (1 or 0, defaults to 1).
-
-<DT> <CODE>::tkcon::OPT(showmultiple)</CODE>
-<DD> Show multiple matches for path/proc/var name expansion
-(1 or 0, defaults to 1).
-
-<DT> <CODE>::tkcon::OPT(slaveeval)</CODE>
-<DD> A tcl script to execute in each slave interpreter right after it's
-created.  This allows the user to have user defined info always available
-in a slave.  Example:
-<PRE>	set ::tkcon::OPT(slaveeval) {
-		proc foo args { puts $args }
-		lappend auto_path .
-	}</PRE>
-
-<DT> <CODE>::tkcon::OPT(slaveexit)</CODE>
-<DD> Allows the prevention of <CODE>exit</CODE> in slaves from exitting
-the entire application.  If it is equal to <CODE>exit</CODE>, exit will
-exit as usual, otherwise it will just close down that interpreter (and
-any children).  Defaults to <VAR>close</VAR>.
-
-<DT> <CODE>::tkcon::OPT(subhistory)</CODE>
-<DD> Allow history substitution to occur (0 or 1, defaults to 1).  The
-history list is maintained in a single interpreter per TkCon console
-instance.  Thus you have history which can range over a series of attached
-interpreters.
-</DL>
-
- <P>
-
-An <b>example TkCon resource file</b> might look like:
-
-<PRE style="color: #883333">######################################################
-## My TkCon Resource File
- 
-# Use a fixed default font
-#tkcon font fixed; # valid on unix
-#tkcon font systemfixed; # valid on win
-tkcon font Courier 12; # valid everywhere
-
-# Keep 50 commands in history
-set ::tkcon::OPT(history) 50
-
-# Use a pink prompt
-set ::tkcon::COLOR(prompt) pink
-######################################################</PRE>
-
- <p>
-</DIV>
-</TD></TR></TABLE>
-
-<HR NOSHADE SIZE=1>
-<ADDRESS><FONT SIZE=2>&copy;
-Jeffrey Hobbs</FONT></ADDRESS>
-
-</BODY>
-</HTML>
diff --git a/tkcon/docs/style.css b/tkcon/docs/style.css
deleted file mode 100644
index 7aee5e8..0000000
--- a/tkcon/docs/style.css
+++ /dev/null
@@ -1,50 +0,0 @@
-body, div, p, th, td, li, dd, ul, ol, dl, dt, blockquote {
-	font-family:	Arial, Helvetica, sans-serif;
-}
-body {
-	background-color:  #FFFFFF;
-	font-size:         12px;
-	line-height:       1.25;
-	letter-spacing:    .2px;
-}
-th {
-	font-style: 	bold;
-	text-align:	left;
-}
-a { text-decoration: none }
-.hi, .hi2 {
-	font-weight:	bold;
-	color:		#B82619;
-	background:	#FFFFCC;
-	text-decoration: none;
-}
-.hi2 {	background:	#CCFFCC; }
-.indent { margin:	3px; }
-
-/* general styles */	
-.heading { 
-	font-size: 	14px;
-	font-weight: 	bold;
-	color: 		#B82619;
-}
-.subheading { 
-	font-weight: 	bold;
-	color: 		#B82619;
-}
-
-.err { 
-	font-weight:	bold;
-	color:		#B82619;
-}
-.smallText{
-	font-size: 10px;
-}
-.notsosmallText {
-	font-size: 11px;
-}
-
-/* unordered list without bullets */
-ul.sans { 
-	list-style-type: none;
-	list-style-postition: inside;
-}
diff --git a/tkcon/docs/tkcon.1.man b/tkcon/docs/tkcon.1.man
deleted file mode 100644
index 25ba74b..0000000
--- a/tkcon/docs/tkcon.1.man
+++ /dev/null
@@ -1,369 +0,0 @@
-[comment {-*- tcl -*- tkcon manpage}]
-[manpage_begin tkcon 1 2.5]
-[copyright {Jeffrey Hobbs (jeff at hobbs.org)}]
-[moddesc   {TkCon}]
-[titledesc {Tk console replacement}]
-
-[description]
-[para]
-TkCon is a replacement for the standard console that comes with Tk
-(on Windows/Mac, but also works on Unix).
-The console itself provides many more features than the standard
-console.
-TkCon works on all platforms where Tcl/Tk is available.
-It is meant primarily to aid one when working with the little
-details inside Tcl and Tk, giving Unix users the GUI console
-provided by default in the Mac and Windows Tk.
-
-[list_begin definitions]
-[call [cmd tkcon] [lb]\{[arg option] [arg value] | [arg tcl_script]\} ...[rb]]
-[list_end]
-
-[section OPTIONS]
-[para]
-Except for [cmd -rcfile], command line arguments are handled after
-the TkCon resource file is sourced, but before the slave
-interpreter or the TkCon user interface is initialized.
-
-[para]
-[cmd -rcfile] is handled right before it would be sourced,
-allowing you to specify any alternate file.
-Command line arguments are passed to each new console and
-will be evaluated by each.
-To prevent this from happening, you have to say
-
-[example_begin]
-tkcon main set argv {}; tkcon main set argc 0
-[example_end]
-
-[para]
-For these options, any unique substring is allowed.
-
-[list_begin definitions]
-[def "[cmd -argv] (also [cmd --])"]
-Causes TkCon to stop evaluating arguments and set the remaining
-args to be argv/argc (with [cmd --] prepended).
-This carries over for any further consoles.
-This is meant only for wrapping TkCon
-around programs that require their own arguments.
-
-[def "[cmd -color-<color>] [arg color]"]
-Sets the requested color type to the specified color for tkcon.
-See [cmd tkconrc](5) for the recognized [cmd <color>] names.
-
-[def "[cmd -eval] [arg tcl_script] (also [cmd -main] or [cmd -e])"]
-A Tcl script to eval in each main interpreter.
-This is evaluated after the resource file is loaded and the
-slave interpreter is created.
-Multiple [cmd -eval] switches will be recognized (in order).
-
-[def "[cmd -exec] [arg slavename]"]
-Sets the named slave that tkcon operates in.
-In general, this is only useful to set to [arg {""}] (empty),
-indicating to tkcon to avoid the multi-interpreter model and
-operate in the main environment.
-When this is empty, any further arguments will be only used
-in the first tkcon console and not passed onto further new consoles.
-This is useful when using tkcon as a console for extended wish
-executables that don't load there commands into slave interpreters.
-
-[def "[cmd -font] [arg font]"]
-Sets the font that tkcon uses for its text windows.
-If this isn't a fixed width font, tkcon will override it.
-
-[def "[cmd -nontcl] [arg TCL_BOOLEAN]"]
-Sets [cmd ::tkcon::OPT(nontcl)] to [arg TCL_BOOLEAN] (see
-[cmd tkconrc](5)).
-Needed when attaching to non-Tcl interpreters.
-
-[def "[cmd -package] [arg package_name] (also [cmd -load])"]
-Packages to automatically load into the slave interpreters (i.e. "Tk").
-
-[def "[cmd -rcfile] [arg filename]"]
-Specify an alternate tkcon resource file name.
-
-[def "[cmd -root] [arg widgetname]"]
-Makes the named widget the root name of all consoles (i.e. .tkcon).
-
-[def "[cmd -slave] [arg tcl_script]"]
-A Tcl script to eval in each slave interpreter.
-This will append the one specified in the tkcon resource file, if any.
-
-[list_end]
-
-[section {KEY BINDINGS}]
-[para]
-Most of the bindings are the same as for the [cmd text] widget.
-Some have been modified to make sure that the integrity of the
-console is maintained.
-Others have been added to enhance the usefulness of the console.
-Only the modified or new bindings are listed here.
-
-[list_begin definitions]
-
-[def "[cmd Control-x] or [cmd Cut] (on Sparc5 keyboards)"]
-Cut.
-
-[def "[cmd Control-c] or [cmd Copy] (on Sparc5 keyboards)"]
-Copy.
-
-[def "[cmd Control-v] or [cmd Paste] (on Sparc5 keyboards)"]
-Paste.
-
-[def [cmd Insert]]
-Insert (duh).
-
-[def [cmd Up]]
-Goes up one level in the commands line history when cursor is on
-the prompt line, otherwise it moves through the buffer.
-
-[def [cmd Down]]
-Goes down one level in the commands line history when cursor
-is on the last line of the buffer, otherwise it moves through the buffer.
-
-[def [cmd Control-p]]
-Goes up one level in the commands line history.
-
-[def [cmd Control-n]]
-Goes down one level in the commands line history.
-
-[def [cmd Tab]]
-Tries to expand file path names, then variable names, then proc names.
-
-[def [cmd Escape]]
-Tries to expand file path names.
-
-[def [cmd Control-P]]
-Tries to expand procedure names.
-The procedure names will be those that are actually in the attached
-interpreter (unless nontcl is specified, in which case it always
-does the lookup in the default slave interpreter).
-
-[def [cmd Control-V]]
-Tries to expand variable names (those returned by [lb]info vars[rb]).
-It's search behavior is like that for procedure names.
-
-[def "[cmd Return] or [cmd Enter]"]
-Evaluates the current command line if it is a complete command,
-otherwise it just goes to a new line.
-
-[def [cmd Control-a]]
-Go to the beginning of the current command line.
-
-[def [cmd Control-l]]
-Clear the entire console buffer.
-
-[def [cmd Control-r]]
-Searches backwards in the history for any command that contains
-the string in the current command line.
-Repeatable to search farther back.
-The matching substring off the found command will blink.
-
-[def [cmd Control-s]]
-As above, but searches forward (only useful if you searched too far back).
-
-[def [cmd Control-t]]
-Transposes characters.
-
-[def [cmd Control-u]]
-Clears the current command line.
-
-[def [cmd Control-z]]
-Saves current command line in a buffer that can be retrieved
-with another [cmd Control-z].
-If the current command line is empty, then any saved command
-is retrieved without being overwritten, otherwise the current
-contents get swapped with what's in the saved command buffer.
-
-[def [cmd Control-Key-1]]
-Attaches console to the console's slave interpreter.
-
-[def [cmd Control-Key-2]]
-Attaches console to the console's master interpreter.
-
-[def [cmd Control-Key-3]]
-Attaches console to main TkCon interpreter.
-
-[def [cmd Control-A]]
-Pops up the "About" dialog.
-
-[def [cmd Control-N]]
-Creates a new console. Each console has separate state, including
-it's own widget hierarchy (it's a slave interpreter).
-
-[def [cmd Control-q]]
-Close the current console OR Quit the program (depends on the
-value of [cmd ::tkcon::TKCON(slaveexit)]).
-
-[def [cmd Control-w]]
-Closes the current console.
-Closing the main console will exit the program (something has
-to control all the slaves...).
-
-[list_end]
-
-[para]
-TkCon also has electric bracing (similar to that in emacs).
-It will highlight matching pairs of {}'s, [lb][rb]'s, ()'s and ""'s.
-For the first three, if there is no matching left element for the right,
-then it blinks the entire current command line.
-For the double quote, if there is no proper match then it just blinks
-the current double quote character.
-It does properly recognize most escaping (except escaped escapes),
-but does not look for commenting (why would you interactively
-put comments in?).
-
-[section COMMANDS]
-[para]
-There are several new procedures introduced in TkCon to improve
-productivity and/or account for lost functionality in the Tcl
-environment that users are used to in native environments.
-There are also some redefined procedures.
-Here is a non-comprehensive list:
-
-[list_begin definitions]
-
-[def "[cmd alias] ?[arg sourceCmd] [arg targetCmd] ?[arg arg] [arg arg] ...??"]
-Simple alias mechanism.
-It will overwrite existing commands.
-When called without args, it returns current aliases.
-Note that TkCon makes some aliases for you (in slaves).
-Don't delete those.
-
-[def "[cmd clear] ?[arg percentage]?"]
-Clears the text widget.
-Same as the <[cmd Control-l]> binding, except this will accept a
-percentage of the buffer to clear (1-100, 100 default).
-
-[def "[cmd dir] ?[arg -all]? ?[arg -full]? ?[arg -long]?\
-	  ?[arg pattern] [arg pattern] ...?"]
-Cheap way to get directory listings.
-Uses glob style pattern matching.
-
-[def "[cmd dump] [arg type] ?[arg -nocomplain]? ?[arg {-filter pattern}]?\
-	  ?[cmd --]? [arg pattern] ?[arg pattern] ...?"]
-The dump command provides a way for the user to spit out state
-information about the interpreter in a Tcl readable (and
-human readable) form.
-See [cmd dump](n) for details.
-
-[def "[cmd echo] ?[arg arg] [arg arg] ...?"]
-Concatenates the args and spits the result to the console (stdout).
-
-[def "[cmd edit] ?[arg {-type type}]? ?[arg {-find str}]?\
-	  ?[arg {-attach interp}]? [arg arg]"]
-Opens an editor with the data from arg.
-The optional type argument can be one of: [arg proc], [arg var] or [arg file].
-For proc or var, the arg may be a pattern.
-
-[def "[cmd idebug] [arg command] ?[arg args]?"]
-Interactive debugging command.
-See [cmd idebug](n) for details.
-
-[def "[cmd lremove] ?[arg -all]? ?[arg -regexp] [arg -glob]?\
-	  [arg list] [arg items]"]
-Removes one or more items from a list and returns the new list.
-If [arg -all] is specified, it removes all instances of each item
-in the list.
-If [arg -regexp] or [arg -glob] is specified, it interprets each item in
-the items list as a regexp or glob pattern to match against.
-
-[def [cmd less]]
-Aliased to [cmd edit].
-
-[def [cmd ls]]
-Aliased to [cmd dir] [arg -full].
-
-[def [cmd more]]
-Aliased to [cmd edit].
-
-[def "[cmd observe] [arg type] ?[arg args]?"]
-This command provides passive runtime debugging output for
-variables and commands.
-See [cmd observe](n) for details.
-
-[def "[cmd puts] (same options as always)"]
-Redefined to put the output into TkCon.
-
-[def "[cmd tkcon] [arg method] ?[arg args]?"]
-Multi-purpose command.
-See [cmd tkcon](n) for details.
-
-[def "[cmd tclindex] [arg {?-extensions patternlist? ?-index TCL_BOOLEAN?\
-	  ?-package TCL_BOOLEAN? ?dir1 dir2 ...?}]"]
-Convenience proc to update the [file tclIndex] (controlled by [arg -index] switch)
-and/or [file pkgIndex.tcl] (controlled by [arg -package] switch) file in the named
-directories based on the given pattern for files.
-It defaults to creating the [file tclIndex] but not the [file pkgIndex.tcl] file,
-with the directory defaulting to [lb]pwd[rb].
-The extension defaults to *.tcl, with *.[lb]info sharelibextension[rb]
-added when [arg -package] is true.
-
-[def "[cmd unalias] [arg cmd]"]
-unaliases command.
-
-[def "[cmd what] [arg string]"]
-The what command will identify the word given in string in
-the Tcl environment and return a list of types that it was recognized as.
-Possible types are: alias, procedure, command, array variable,
-scalar variable, directory, file, widget, and executable.
-Used by procedures dump and which.
-
-[def "[cmd which] [arg command]"]
-Like the [syscmd which] command of Unix shells, this will tell you if a
-particular command is known, and if so, whether it is internal or
-external to the interpreter.
-If it is an internal command and there is a slot in [cmd auto_index] for it,
-it tells you the file that [cmd auto_index] would load.
-This does not necessarily mean that that is where the file came from,
-but if it were not in the interpreter previously, then that
-is where the command was found.
-
-[list_end]
-
-[para]
-There are several procedures that I use as helpers that some may find
-helpful in there coding (i.e. expanding pathnames). Feel free to lift
-them from the code (but do assign proper attribution).
-
-[section EXAMLPES]
-[para]
-Some examples of tkcon command line startup situations:
-
-[example_begin]
-[cmd megawish] /usr/bin/tkcon [cmd -exec] "" [cmd -root] .tkcon [arg mainfile.tcl]
-[example_end]
-
-Use tkcon as a console for your [cmd megawish] application.
-You can avoid starting the line with megawish if that is the
-default [cmd wish] that TkCon would use.
-The [cmd -root] ensures that tkcon will not conflict with the
-application root window.
-
-[example_begin]
-[cmd tkcon] [cmd -font] "Courier 12" [cmd -load] Tk
-[example_end]
-
-Use the courier font for TkCon and always load Tk in slave
-interpreters at startup.
-
-[example_begin]
-[cmd tkcon] [cmd -rcfile] ~/.wishrc [cmd -color-bg] white
-[example_end]
-
-Use the ~/.wishrc file as the resource file, and a white
-background for TkCon's text widgets.
-
-[section FILES]
-TkCon will search for a resource file in [file ~/.tkconrc].
-TkCon never sources the [file ~/.wishrc] file.
-The resource file is sourced by each new instance of the console.
-An example resource file is provided in [cmd tkconrc](5).
-
-[see_also [cmd tkconrc](5)]
-[see_also [cmd dump](n) [cmd tkcon](n) [cmd idebug](n)]
-[see_also [cmd observe](n) [cmd text](n)]
-[keywords Tk console]
-
-[manpage_end]
-
diff --git a/tkcon/docs/tkcon.html b/tkcon/docs/tkcon.html
deleted file mode 100755
index cb88a52..0000000
--- a/tkcon/docs/tkcon.html
+++ /dev/null
@@ -1,189 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>tkcon: tkcon procedure</TITLE>
-<LINK REL="STYLESHEET" TYPE="text/css" HREF="./style.css">
-</HEAD>
-
-<BODY BGCOLOR=#FFFFFF>
-
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=0 BGCOLOR=#000000><TR><TD>
-<!-- start header info -->
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>
-<TR>
-<TH><FONT SIZE=+3>tkcon: <CODE>tkcon</CODE> procedure</FONT></TH>
-<TD align=right>
-<A href="http://tkcon.sourceforge.net/"> 
-<IMG src="http://sourceforge.net/sflogo.php?group_id=11462&type=1" width="88"
-height="31" border="0" alt="SourceForge Logo"></A>
-</TD>
-</TR>
-</TABLE>
-<!-- end header info -->
-
-</TD></TR><TR><TD>
-<!-- start main navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#CCCCCC width=100%>
-<TR>
-<TH CLASS="hi"><A HREF="index.html" CLASS="hi">Documentation</A></TH>
-<TH><A HREF="purpose.html">Purpose &amp; Features</A></TH>
-<TH><A HREF="limits.html">Limitations</A></TH>
-<TH><A HREF="todo.html">To&nbsp;Do</A></TH>
-<TH><A HREF="license.terms">License</A></TH>
-</TR><TR>
-<TH COLSPAN=2><A HREF="plugin.html">Online Demo</A>
-(requires <A HREF="http://tcl.activestate.com/software/plugin/">Tk plugin</A>)</TH>
-<TH COLSPAN=3><A HREF="nontcl.html">Using TkCon with other Tk Languages</A></TH>
-</TR>
-</TABLE>
-<!-- end main navigation table -->
-</TD></TR><TR><TD>
-<!-- start secondary navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#BBBBBB width=100%>
-<TR>
-<TH><A HREF="start.html">Getting Started</A></TH>
-<TH><A HREF="bindings.html">Special Bindings</A></TH>
-<TH><A HREF="procs.html">Procedures</A></TH>
-<TH><A HREF="demopic.png">Screenshot</A></TH>
-</TR>
-<TR>
-<TH><A HREF="dump.html"><CODE>dump</CODE></A></TH>
-<TH CLASS="hi2"><A HREF="tkcon.html" CLASS="hi2"><CODE>tkcon</CODE></A></TH>
-<TH><A HREF="idebug.html"><CODE>idebug</CODE></A></TH>
-<TH><A HREF="observe.html"><CODE>observe</CODE></A></TH>
-</TR>
-</TABLE>
-<!-- end secondary navigation table -->
-</TD></TR><TR><TD BGCOLOR=#FFFFFF>
-<DIV CLASS="indent">
- <P>
-This provides lots of useful control over a console:
-
-<DL>
-
-<DT> <CODE>tkcon <b>attach</b></CODE> <I>interpreter</I>
-<DD> Attaches tkcon to the named interpreter.  The name must be that
-returned by <CODE>[tk appname]</CODE> or a valid path to a slave
-interpreter.  It's best to use this via the <CODE>Console->Attach
-Console</CODE> menu.
-
-<DT> <CODE>tkcon <b>buffer</b></CODE> ?<I>size</I>?
-<DD> Sets or queries the allowed size of the console text widget in lines.
-The text widget will automatically delete leading lines once this number
-has been exceeded (read: this is the scroll buffer size).
-
-<DT> <CODE>tkcon <b>bgerror</b></CODE> ?<I>msg errorInfo</I>?
-<DD> Does bgerror stuff in the tkcon master interpreter.
-
-<DT> <CODE>tkcon <b>close</b></CODE> or <CODE>tkcon <b>destroy</b></CODE>
-<DD> Destroys this tkcon widget.
-
-<DT> <CODE>tkcon <b>congets</b></CODE>
-<DD> Behaves like the traditional Tcl <code>gets</code>, but instead of
-using <code>stdin</code>, it uses the tkcon console window.  By default,
-tkcon replaces the standard gets with this command.  This behavior can be
-controlled by altering the <code>::tkcon::OPT(gets)</code> parameter at
-startup.  This should not be called directly - instead rely on the
-overloaded <code>gets</code>, which has support for the optional varName
-parameter.
-
-<DT> <CODE>tkcon <b>console</b></CODE> <I>args</I>
-<DD> Passes the args to the tkcon text widget (the console).
-
-<DT> <CODE>tkcon <b>error</b></CODE>
-<DD> Pops up a dialog that gives the user a full trace of the last error
-received in the tkcon console.
-
-<DT> <CODE>tkcon <b>find</b></CODE> <I>string ?-case TCL_BOOLEAN
--regexp TCL_BOOLEAN?</I>
-<DD> Highlights all instances of <I>string</I> in the console.  If the string
-is empty, it clears any previous highlighting.
-
-<DT> <CODE>tkcon <b>font</b></CODE> ?<I>fontname</I>?
-<DD> Sets or returns the font used by tkcon text widgets.
-
-<DT> <CODE>tkcon <b>gets</b></CODE>
-<DD> Behaves like the traditional Tcl <code>gets</code>, but instead of
-needing <code>stdin</code>, it pops a dialog box up for the user.  The
-overloaded <code>gets</code> has support for the optional varName parameter.
-
-<DT> <CODE>tkcon <b>getcommand</b></CODE>
-<DD> A variation of the <CODE><b>congets</b></CODE> method that requires a
-full command to be input before returning.
-
-<DT> <CODE>tkcon <b>hide</b></CODE>
-<DD> Withdraw the tkcon display from the screen (make sure you have
-a way to get it back).
-
-<DT> <CODE>tkcon <b>history</b></CODE> ?<i>-newline</i>?
-<DD> Displays the tkcon history in sourceable form.  If <i>-newline</i> is
-specified, it separates each command by an extra newline.
-
-<DT> <CODE>tkcon <b>iconify</b></CODE>
-<DD> Iconifies the tkcon display.
-
-<DT> <CODE>tkcon <b>linelength</b></CODE> ?<i>value</i>?
-<DD> Sets or displays the number that specifies the limit of long result lines.
-True result is still captured in $_ (and 'puts $_' works).
-
-<DT> <CODE>tkcon <b>load</b></CODE> <I>filename</I>
-<DD> Sources named file into the slave interpreter.  If no filename is
-given, it will attempt to call <CODE>tk_getOpenFile</CODE> to pop up the
-file select box.
-
-<DT> <CODE>tkcon <b>main</b></CODE> ?<I>arg arg ...</I>?
-<DD> Passes the args to the main tkcon interpreter to be evaluated and
-returns the result.
-
-<DT> <CODE>tkcon <b>master</b></CODE> <I>args</I>
-<DD> Passes the args to the master interpreter to be evaluated and
-returns the result.
-
-<DT> <CODE>tkcon <b>new</b></CODE>
-<DD> Creates a new tkcon widget.
-
-<DT> <CODE>tkcon <b>resultfilter</b></CODE> ?<I>command</I>?
-<DD> Specify a command to process the results before outputting it to the
-console window.  The command receives one argument (the result string) and
-the string returned is placed in the console.
-
-<DT> <CODE>tkcon <b>save</b></CODE> ?<I>filename</I> ?<I>type</I>??
-<DD> Saves the console buffer to the given filename.  If no filename is
-given, it will attempt to call <CODE>tk_getSaveFile</CODE> to pop up the
-file select box.  If no type is given, a dialog will ask you to specify
-what portion of the text you want to save.
-
-<DT> <CODE>tkcon <b>set</b></CODE> <I>var ?value?</I>
-<DD> Queries or sets a master interpreter variable.
-
-<DT> <CODE>tkcon <b>append</b></CODE> <I>var ?value?</I>
-<DD> Like set, but uses <CODE>append</CODE> on the variable.
-
-<DT> <CODE>tkcon <b>lappend</b></CODE> <I>var ?value?</I>
-<DD> Like set, but uses <CODE>lappend</CODE> on the variable.
-
-<DT> <CODE>tkcon <b>show</b></CODE> or <CODE>tkcon deiconify</CODE>
-<DD> Redisplays tkcon on the screen.
-
-<DT> <CODE>tkcon <b>slave</b></CODE> ?<I>slavename ?arg arg ...?</I>?
-<DD> If called with no args, it returns the name of all the tkcon
-interpreters.  Otherwise given an interp name it passes the args
-to the named interpreter to be evaluated and returns the result.
-If no args are passed, then it returns the <CODE>[tk appname]</CODE>
-of that interpreter.
-
-<DT> <CODE>tkcon <b>title</b></CODE> ?<I>title</I>?
-<DD> Sets or returns the title for tkcon.
-
-<DT> <CODE>tkcon <b>version</b></CODE>
-<DD> Returns of version of tkcon.
-
-</DL>
-</DIV>
-</TD></TR></TABLE>
-
-<HR NOSHADE SIZE=1>
-<ADDRESS><FONT SIZE=2>&copy;
-Jeffrey Hobbs</FONT></ADDRESS>
-
-</BODY>
-</HTML>
diff --git a/tkcon/docs/tkcon.n.man b/tkcon/docs/tkcon.n.man
deleted file mode 100644
index 6f99fa5..0000000
--- a/tkcon/docs/tkcon.n.man
+++ /dev/null
@@ -1,140 +0,0 @@
-[comment {-*- tcl -*- tkcon manpage}]
-[manpage_begin tkcon n 2.5]
-[copyright {Jeffrey Hobbs <jeff at hobbs.org>}]
-[moddesc   {TkCon}]
-[titledesc {Controlling TkCon console}]
-
-[description]
-[para]
-This provides lots of useful control over a console:
-
-[list_begin definitions]
-
-[call [cmd tkcon] [arg attach] [arg interpreter]]
-Attaches tkcon to the named interpreter.
-The name must be that returned by [lb][cmd tk] [arg appname][rb] or a valid
-path to a slave interpreter.
-It's best to use this via the [arg {Console->Attach Console}] menu.
-
-[call [cmd tkcon] [arg buffer] [opt [arg size]]]
-Sets or queries the allowed size of the console text widget in lines.
-The text widget will automatically delete leading lines once this
-number has been exceeded (read: this is the scroll buffer size).
-
-[call [cmd tkcon] [arg bgerror] [opt "[arg msg] [arg errorInfo]"]]
-Does bgerror stuff in the tkcon master interpreter.
-
-[call [cmd tkcon] [arg close] or [cmd tkcon] [arg destroy]]
-Destroys this tkcon widget.
-
-[call [cmd tkcon] [arg congets]]
-Behaves like the traditional Tcl gets, but instead of using stdin,
-it uses the tkcon console window.
-By default, tkcon replaces the standard gets with this command.
-This behavior can be controlled by altering the [cmd ::tkcon::OPT(gets)]
-parameter at startup.
-This should not be called directly - instead rely on the overloaded
-gets, which has support for the optional varName parameter.
-
-[call [cmd tkcon] [arg console] [arg args]]
-Passes the args to the tkcon text widget (the console).
-
-[call [cmd tkcon] [arg error]]
-Pops up a dialog that gives the user a full trace of the
-last error received in the tkcon console.
-
-[call [cmd tkcon] [arg find] [arg string]\
-      [opt "[arg -case] [arg TCL_BOOLEAN] [arg -regexp] [arg TCL_BOOLEAN]"]]
-Highlights all instances of string in the console.
-If the string is empty, it clears any previous highlighting.
-
-[call [cmd tkcon] [arg font] [opt [arg fontname]]]
-Sets or returns the font used by tkcon text widgets.
-
-[call [cmd tkcon] [arg gets]]
-Behaves like the traditional Tcl gets, but instead of needing
-stdin, it pops a dialog box up for the user.
-The overloaded gets has support for the optional varName parameter.
-
-[call [cmd tkcon] [arg getcommand]]
-A variation of the congets method that requires a full
-command to be input before returning.
-
-[call [cmd tkcon] [arg hide]]
-Withdraw the tkcon display from the screen (make sure you
-have a way to get it back).
-
-[call [cmd tkcon] [arg history] [opt [arg -newline]]]
-Displays the tkcon history in sourceable form.
-If [arg -newline] is specified, it separates each command by
-an extra newline.
-
-[call [cmd tkcon] [arg iconify]]
-Iconifies the tkcon display.
-
-[call [cmd tkcon] [arg linelength] [opt [arg value]]]
-Sets or displays the number that specifies the limit of long result lines.
-True result is still captured in $_ (and 'puts $_' works).
-
-[call [cmd tkcon] [arg load] [arg filename]]
-Sources named file into the slave interpreter.
-If no filename is given, it will attempt to call
-[cmd tk_getOpenFile] to pop up the file select box.
-
-[call [cmd tkcon] [arg main] [opt "[arg arg] [arg arg] [arg ...]"]]
-Passes the args to the main tkcon interpreter to be
-evaluated and returns the result.
-
-[call [cmd tkcon] [arg master] [arg args]]
-Passes the args to the master interpreter to be evaluated
-and returns the result.
-
-[call [cmd tkcon] [arg new]]
-Creates a new tkcon widget.
-
-[call [cmd tkcon] [arg resultfilter] [opt [arg command]]]
-Specify a command to process the results before outputting it to the console
-window.  The command receives one argument (the result string) and the string
-returned is placed in the console.
-
-[call [cmd tkcon] [arg save] [opt "[arg filename] [opt [arg type]]"]]
-Saves the console buffer to the given filename.
-If no filename is given, it will attempt to call
-[cmd tk_getSaveFile] to pop up the file select box.
-If no type is given, a dialog will ask you to specify
-what portion of the text you want to save.
-
-[call [cmd tkcon] [arg set] [arg var] [opt [arg value]]]
-Queries or sets a master interpreter variable.
-
-[call [cmd tkcon] [arg append] [arg var] [opt [arg value]]]
-Like set, but uses append on the variable.
-
-[call [cmd tkcon] [arg lappend] [arg var] [opt [arg value]]]
-Like set, but uses lappend on the variable.
-
-[call [cmd tkcon] [arg show] or [cmd tkcon] [arg deiconify]]
-Redisplays tkcon on the screen.
-
-[call [cmd tkcon] [arg slave] [opt "[arg slavename] [opt [arg {arg arg ...}]]"]]
-If called with no args, it returns the name of all the tkcon interpreters.
-Otherwise given an interp name it passes the args to the named interpreter
-to be evaluated and returns the result.
-If no args are passed, then it returns the [lb][cmd tk] [arg appname][rb] of that
-interpreter.
-
-[call [cmd tkcon] [arg title] [opt [arg title]]]
-Sets or returns the title for tkcon.
-
-[call [cmd tkcon] [arg version]]
-Returns of version of tkcon.
-
-[list_end]
-
-[see_also [cmd tkcon](1)]
-[see_also [cmd tkconrc](5) [cmd tkcon](n) [cmd dump](n)]
-[see_also [cmd observe](n)]
-[keywords Tk console debug]
-
-[manpage_end]
-
diff --git a/tkcon/docs/tkconrc.5.man b/tkcon/docs/tkconrc.5.man
deleted file mode 100644
index b10af92..0000000
--- a/tkcon/docs/tkconrc.5.man
+++ /dev/null
@@ -1,249 +0,0 @@
-[comment {-*- tcl -*- tkconrc manpage}]
-[manpage_begin tkconrc 5 2.5]
-[copyright {Jeffrey Hobbs <jeff at hobbs.org>}]
-[moddesc   {TkCon}]
-[titledesc {TkCon resource file}]
-
-[description]
-[para]
-TkCon will search for a resource file in [file ~/.tkconrc].
-TkCon never sources the [file ~/.wishrc] file.
-The resource file is sourced by each new instance of the console.
-An example resource file is provided below.
-
-[para]
-The file itself is a Tcl script, so it is required that the
-file conforms to Tcl script conventions.
-
-[section VARIABLES]
-[para]
-Certain variables in TkCon can be modified to suit your needs.
-It's easiest to do this in the resource file, but you can do
-it when time the program is running (and some can be changed
-via the [arg Prefs] menu).
-All these are part of the master interpreter's [cmd ::tkcon]
-namespace.
-The modifiable array variables are [cmd ::tkcon::COLOR] and
-[cmd ::tkcon::OPT].
-You can call
-
-[example_begin]
-tkcon set ::tkcon::COLOR
-[example_end]
-
-when the program is running to check its state.
-Here is an explanation of certain variables you
-might change or use:
-
-[list_begin definitions]
-
-[def [cmd ::tkcon::COLOR(bg)]]
-The background color for tkcon text widgets.
-Defaults to the operating system default (determined at startup).
-
-[def [cmd ::tkcon::COLOR(blink)]]
-The background color of the electric brace highlighting, if on.
-Defaults to yellow.
-
-[def [cmd ::tkcon::COLOR(cursor)]]
-The background color for the insertion cursor in tkcon.
-Defaults to black.
-
-[def [cmd ::tkcon::COLOR(disabled)]]
-The foreground color for disabled menu items.
-Defaults to dark grey.
-
-[def [cmd ::tkcon::COLOR(proc)]]
-The foreground color of a recognized proc, if command highlighting is on.
-Defaults to dark green.
-
-[def [cmd ::tkcon::COLOR(var)]]
-The background color of a recognized var, if command highlighting is on.
-Defaults to pink.
-
-[def [cmd ::tkcon::COLOR(prompt)]]
-The foreground color of the prompt as output in the console.
-Defaults to brown.
-
-[def [cmd ::tkcon::COLOR(stdin)]]
-The foreground color of the stdin for the console.
-Defaults to black.
-
-[def [cmd ::tkcon::COLOR(stdout)]]
-The foreground color of the stdout as output in the console.
-Defaults to blue.
-
-[def [cmd ::tkcon::COLOR(stderr)]]
-The foreground color of stderr as output in the console.
-Defaults to red.
-
-[def [cmd ::tkcon::OPT(autoload)]]
-Packages to automatically load into the slave interpreter (i.e. 'Tk').
-This is a list.
-Defaults to {} (none).
-
-[def [cmd ::tkcon::OPT(blinktime)]]
-The amount of time (in millisecs) that braced sections should blink for.
-Defaults to 500 (0.5 secs), must be at least 100.
-
-[def [cmd ::tkcon::OPT(blinkrange)]]
-Whether to blink the entire range for electric brace matching
-or to just blink the actual matching braces (respectively 1 or 0,
-defaults to 1).
-
-[def [cmd ::tkcon::OPT(buffer)]]
-The size of the console scroll buffer (in lines).
-Defaults to 512.
-
-[def [cmd ::tkcon::OPT(calcmode)]]
-Whether to allow expr commands to be run at the command line
-without prefixing them with expr (just a convenience).
-
-[def [cmd ::tkcon::OPT(cols)]]
-Number of columns for the console to start out with.
-Defaults to 80.
-
-[def [cmd ::tkcon::OPT(dead)]]
-What to do with dead connected interpreters.
-If dead is leave, TkCon automatically exits the dead interpreter.
-If dead is ignore then it remains attached waiting for the
-interpreter to reappear.
-Otherwise TkCon will prompt you.
-
-[def [cmd ::tkcon::OPT(exec)]]
-This corresponds to the [cmd -exec] tkcon option (see [cmd tkcon](1)).
-
-[def [cmd ::tkcon::OPT(font)]]
-Font to use for tkcon text widgets (also specified with [cmd -font] option).
-Defaults to the system default, or a fixed width equivalent.
-
-[def [cmd ::tkcon::OPT(gets)]]
-Controls whether tkcon will overload the gets command to work with tkcon.
-The valid values are: congets (the default), which will redirect
-stdin requests to the tkcon window; gets, which will pop up a dialog to
-get input; and {} (empty string) which tells tkcon not to overload gets.
-This value must be set at startup to alter tkcon's behavior.
-
-[def [cmd ::tkcon::OPT(history)]]
-The size of the history list to keep.
-Defaults to 48.
-
-[def [cmd ::tkcon::OPT(hoterrors)]]
-Whether hot errors are enabled or not.
-When enabled, errors that are returned to the console are marked
-with a link to the error info that will pop up in an minimal editor.
-This requires more memory because each error that occurs will
-maintain bindings for this feature, as long as the error
-is in the text widget.
-Defaults to on.
-
-[def [cmd ::tkcon::OPT(library)]]
-The path to any tcl library directories (these are appended
-to the [cmd auto_path] when the after the resource file is loaded in).
-
-[def [cmd ::tkcon::OPT(lightbrace)]]
-Whether to use the brace highlighting feature or not
-(respectively 1 or 0, defaults to 1).
-
-[def [cmd ::tkcon::OPT(lightcmd)]]
-Whether to use the command highlighting feature or not
-(respectively 1 or 0, defaults to 1).
-
-[def [cmd ::tkcon::OPT(maineval)]]
-A tcl script to execute in the main interpreter after the
-slave interpreter is created and the user interface is initialized.
-
-[def [cmd ::tkcon::OPT(maxlinelen)]]
-A number that specifies the limit of long result lines.
-True result is still captured in $_ (and 'puts $_' works).
-Defaults to 0 (unlimited).
-
-[def [cmd ::tkcon::OPT(maxmenu)]]
-A number that specifies the maximum number of packages to
-show vertically in the [arg Interp->Packages] menu before breaking
-into another column.
-Defaults to 15.
-
-[def [cmd ::tkcon::OPT(nontcl)]]
-For those who might be using non-Tcl based Tk attachments, set this to 1.
-It prevents TkCon from trying to evaluate its own Tcl
-code in an attached interpreter.
-Also see my notes for non-Tcl based Tk interpreters.
-
-[def [cmd ::tkcon::OPT(prompt1)]]
-Like [cmd tcl_prompt1], except it doesn't require you use [cmd puts].
-No equivalent for [cmd tcl_prompt2] is available (it's unnecessary IMHO).
-Defaults to {([lb]file tail [lb]pwd[rb][rb]) [lb]history nextid[rb] % }.
-
-[def [cmd ::tkcon::OPT(rows)]]
-Number of rows for the console to start out with.
-Defaults to 20.
-
-[def [cmd ::tkcon::OPT(scollypos)]]
-Y scrollbar position.
-Valid values are left or right.
-Defaults to right.
-
-[def [cmd ::tkcon::OPT(showmenu)]]
-Show the menubar on startup (1 or 0, defaults to 1).
-
-[def [cmd ::tkcon::OPT(showmultiple)]]
-Show multiple matches for path/proc/var name expansion (1 or 0,
-defaults to 1).
-
-[def [cmd ::tkcon::OPT(slaveeval)]]
-A tcl script to execute in each slave interpreter right after it's created.
-This allows the user to have user defined info always available in a slave.
-
-[para]
-Example:
-
-[example_begin]
-set ::tkcon::OPT(slaveeval) {
-    proc foo args { puts $args }
-    lappend auto_path .
-}
-[example_end]
-
-[def [cmd ::tkcon::OPT(slaveexit)]]
-Allows the prevention of exit in slaves from exitting the entire application.
-If it is equal to exit, exit will exit as usual, otherwise it will just close
-down that interpreter (and any children).
-Defaults to close.
-
-[def [cmd ::tkcon::OPT(subhistory)]]
-Allow history substitution to occur (0 or 1, defaults to 1).
-The history list is maintained in a single interpreter per TkCon console
-instance.
-Thus you have history which can range over a series of attached interpreters.
-
-[list_end]
-
-[section EXAMPLES]
-[para]
-An example TkCon resource file might look like:
-
-[example_begin]
-######################################################
-## My TkCon Resource File
-
-# Use a fixed default font
-#tkcon font fixed; # valid on unix
-#tkcon font systemfixed; # valid on win
-tkcon font Courier 12; # valid everywhere
-
-# Keep 50 commands in history
-set ::tkcon::OPT(history) 50
-
-# Use a pink prompt
-set ::tkcon::COLOR(prompt) pink
-######################################################
-[example_end]
-
-[see_also [cmd tkcon](1)]
-[see_also [cmd dump](n) [cmd tkcon](n) [cmd idebug](n)]
-[see_also [cmd observe](n)]
-[keywords Tk console]
-
-[manpage_end]
-
diff --git a/tkcon/docs/todo.html b/tkcon/docs/todo.html
deleted file mode 100755
index f9c2b3a..0000000
--- a/tkcon/docs/todo.html
+++ /dev/null
@@ -1,99 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>tkcon: To Do Ideas</TITLE>
-<LINK REL="STYLESHEET" TYPE="text/css" HREF="./style.css">
-</HEAD>
-
-<BODY BGCOLOR=#FFFFFF>
-
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=0 BGCOLOR=#000000><TR><TD>
-<!-- start header info -->
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>
-<TR>
-<TH><FONT SIZE=+3>tkcon: To Do Ideas</FONT></TH>
-<TD align=right>
-<A href="http://tkcon.sourceforge.net/"> 
-<IMG src="http://sourceforge.net/sflogo.php?group_id=11462&type=1" width="88"
-height="31" border="0" alt="SourceForge Logo"></A>
-</TD>
-</TR>
-</TABLE>
-<!-- end header info -->
-
-</TD></TR><TR><TD>
-<!-- start main navigation table -->
-<TABLE BORDER=1 CELLPADDING=2 CELLSPACING=2 BGCOLOR=#CCCCCC width=100%>
-<TR>
-<TH><A HREF="index.html">Documentation</A></TH>
-<TH><A HREF="purpose.html">Purpose &amp; Features</A></TH>
-<TH><A HREF="limits.html">Limitations</A></TH>
-<TH CLASS="hi"><A HREF="todo.html" CLASS="hi">To&nbsp;Do</A></TH>
-<TH><A HREF="license.terms">License</A></TH>
-</TR><TR>
-<TH COLSPAN=2><A HREF="plugin.html">Online Demo</A>
-(requires <A HREF="http://tcl.activestate.com/software/plugin/">Tk plugin</A>)</TH>
-<TH COLSPAN=3><A HREF="nontcl.html">Using TkCon with other Tk Languages</A></TH>
-</TR>
-</TABLE>
-<!-- end main navigation table -->
-
-</TD></TR><TR><TD BGCOLOR=#FFFFFF>
-<DIV CLASS="indent">
-<H3>Future Ideas</H3>
-
-<UL>
-<LI> Add encoding auto-conversion to exec commands
-<LI> keep history file, also keep history of sourced files
-<LI> <PRE>set mimetype(extension,au) "audio/u-law"
-set mimetype(extension,wav) "audio/wave"
-set mimetype(extension,mid) "audio/midi"
-/etc/magic
-proc run {file} {
-    global mimetype
-
-    if {[file executable $file]} {
-        exec $file
-        return
-    }
-
-    catch {set mimetype $mimetype(extension,[file extension $file])}
-
-    if {![info exists mimetype]} {
-        set mimetype $mimetype(magic,[exec /bin/file $file])
-    }
-
-    exec $mimetype(application,$mimetype) $file
-}</PRE>
-
-<LI> Add socket level communication model
-<LI> Enhance the true debugging capabilities - I'm looking at
-tcl-debug and into what I can adopt from the tkInspect philosophy.
-<LI> I'm taking ideas...
-</UL>
-
-<H3>Known Bugs/Quirks</H3>
-
-<UL>
-<LI> Command highlighting isn't perfect because I try to make it too
-efficient.
-<LI> All interpreters have the same current working directory.  This is
-a limitation of tcl.
-<LI> You can't 'attach' on machines where <CODE>send</CODE> does not exist.
-<A HREF="http://www.osf.org/~loverso/">John Loverso</A> has a comm.tcl
-replacement.
-In any case, you can still attach to internal interpreters and namespaces.
-<LI> Need to clean up checkpointed states when the associated interp dies.
-Works with slaves, but not foreign interps.
-<LI> Can't identify non-Tcl or pre-Tk4 interpreters automagically...
-<LI> You tell me...
-</UL>
-
-</DIV>
-</TD></TR></TABLE>
-
-<HR NOSHADE SIZE=1>
-<ADDRESS><FONT SIZE=2>&copy;
-Jeffrey Hobbs</FONT></ADDRESS>
-
-</BODY>
-</HTML>
diff --git a/tkcon/extra/console1_1.tcl b/tkcon/extra/console1_1.tcl
deleted file mode 100644
index 78975f0..0000000
--- a/tkcon/extra/console1_1.tcl
+++ /dev/null
@@ -1,2209 +0,0 @@
-##
-## Copyright 1996-1997 Jeffrey Hobbs
-##
-## source standard_disclaimer.tcl
-## source beer_ware.tcl
-##
-## Based off previous work for TkCon
-##
-
-##------------------------------------------------------------------------
-## PROCEDURE
-##	console
-##
-## DESCRIPTION
-##	Implements a console mega-widget
-##
-## ARGUMENTS
-##	console <window pathname> <options>
-##
-## OPTIONS
-##	(Any toplevel widget option may be used in addition to these)
-##
-##  -blinkcolor color			DEFAULT: yellow
-##	Specifies the background blink color for brace highlighting.
-##	This doubles as the highlight color for the find box.
-##
-##  -blinkrange TCL_BOOLEAN		DEFAULT: 1
-##	When doing electric brace matching, specifies whether to blink
-##	the entire range or just the matching braces.
-##
-##  -proccolor color			DEFAULT: darkgreen
-##	Specifies the color to highlight recognized procs.
-##
-##  -promptcolor color			DEFAULT: brown
-##	Specifies the prompt color.
-##
-##  -stdincolor color			DEFAULT: black
-##	Specifies the color for "stdin".
-##	This doubles as the console foreground color.
-##
-##  -stdoutcolor color			DEFAULT: blue
-##	Specifies the color for "stdout".
-##
-##  -stderrcolor color			DEFAULT: red
-##	Specifies the color for "stderr".
-##
-##  -blinktime delay			DEFAULT: 500
-##	For electric brace matching, specifies the amount of time to
-##	blink the background for.
-##
-##  -cols ##				DEFAULT: 80
-##	Specifies the startup width of the console.
-##
-##  -grabputs TCL_BOOLEAN		DEFAULT: 1
-##	Whether this console should grab the "puts" default output
-##
-##  -lightbrace TCL_BOOLEAN		DEFAULT: 1
-##	Specifies whether to activate electric brace matching.
-##
-##  -lightcmd TCL_BOOLEAN		DEFAULT: 1
-##	Specifies whether to highlight recognized commands.
-##
-##  -rows ##				DEFAULT: 20
-##	Specifies the startup height of the console.
-##
-##  -scrollypos left|right		DEFAULT: right
-##	Specified position of the console scrollbar relative to the text.
-##
-##  -showmultiple TCL_BOOLEAN		DEFAULT: 1
-##	For file/proc/var completion, specifies whether to display
-##	completions when multiple choices are possible.
-##
-##  -showmenu TCL_BOOLEAN		DEFAULT: 1
-##	Specifies whether to show the menubar.
-##
-##  -subhistory TCL_BOOLEAN		DEFAULT: 1
-##	Specifies whether to allow substitution in the history.
-##
-## RETURNS: the window pathname
-##
-## BINDINGS (these are the bindings for Console, used in the text widget)
-##
-## <<Console_ExpandFile>>	<Key-Tab>
-## <<Console_ExpandProc>>	<Control-Shift-Key-P>
-## <<Console_ExpandVar>>	<Control-Shift-Key-V>
-## <<Console_Tab>>		<Control-Key-i>
-## <<Console_Eval>>		<Key-Return> <Key-KP_Enter>
-##
-## <<Console_Clear>>		<Control-Key-l>
-## <<Console_KillLine>>		<Control-Key-k>
-## <<Console_Transpose>>	<Control-Key-t>
-## <<Console_ClearLine>>	<Control-Key-u>
-## <<Console_SaveCommand>>	<Control-Key-z>
-##
-## <<Console_Previous>>		<Key-Up>
-## <<Console_Next>>		<Key-Down>
-## <<Console_NextImmediate>>	<Control-Key-n>
-## <<Console_PreviousImmediate>>	<Control-Key-p>
-## <<Console_PreviousSearch>>	<Control-Key-r>
-## <<Console_NextSearch>>	<Control-Key-s>
-##
-## <<Console_Exit>>		<Control-Key-q>
-## <<Console_New>>		<Control-Key-N>
-## <<Console_Close>>		<Control-Key-w>
-## <<Console_About>>		<Control-Key-A>
-## <<Console_Help>>		<Control-Key-H>
-## <<Console_Find>>		<Control-Key-F>
-##
-## METHODS
-##	These are the methods that the console megawidget recognizes.
-##
-## configure ?option? ?value option value ...?
-## cget option
-##	Standard tk widget routines.
-##
-## load ?filename?
-##	Loads the named file into the current interpreter.
-##	If no file is specified, it pops up the file requester.
-##
-## save ?filename?
-##	Saves the console buffer to the named file.
-##	If no file is specified, it pops up the file requester.
-##
-## clear ?percentage?
-##	Clears a percentage of the console buffer (1-100).  If no
-##	percentage is specified, the entire buffer is cleared.
-##
-## error
-##	Displays the last error in the interpreter in a dialog box.
-##
-## hide
-##	Withdraws the console from the screen
-##
-## history ?-newline?
-##	Prints out the history without numbers (basically providing a
-##	list of the commands you've used).
-##
-## show
-##	Deiconifies and raises the console
-##
-## subwidget widget
-##	Returns the true widget path of the specified widget.  Valid
-##	widgets are console, scrolly, menubar.
-##
-## NAMESPACE & STATE
-##	The megawidget creates a global array with the classname, and a
-## global array which is the name of each megawidget created.  The latter
-## array is deleted when the megawidget is destroyed.
-##	The procedure console and those beginning with Console are
-## used.  Also, when a widget is created, commands named .$widgetname
-## and Console$widgetname are created.
-##
-## EXAMPLE USAGE:
-##
-## console .con -rows 24 -showmenu false
-##
-##------------------------------------------------------------------------
-
-package require Tk
-
-proc megawidget {CLASS} {
-  upvar \#0 $CLASS class
-
-  foreach o [array names class -*] {
-    foreach {name cname val} $class($o) {
-      if [string match -* $name] continue
-      option add *$CLASS.$name [uplevel \#0 [list subst $val]] widgetDefault
-    }
-  }
-  set class(class) $CLASS
-
-  bind $CLASS <Destroy> "catch {${CLASS}_destroy %W}"
-
-  ;proc $CLASS:eval {w method args} {
-    upvar \#0 $w data
-    set class [winfo class $w]
-    if [string match {} [set arg [info command ${class}_$method]]] {
-      set arg [info command ${class}_$method*]
-    }
-    set num [llength $arg]
-    if {$num==1} {
-      return [uplevel $arg [list $w] $args]
-    } elseif {$num} {
-      return -code error "ambiguous option \"$method\""
-    } elseif {[catch {uplevel [list $data(cmd) $method] $args} err]} {
-      return -code error $err
-    } else {
-      return $err
-    }
-  }
-
-  ;proc ${CLASS}_destroy w {
-    upvar \#0 $w data
-    catch { [winfo class $w]:destroy $w }
-    catch { rename $w {} }
-    catch { rename $data(cmd) {} }
-    catch { unset data }
-  }
-
-  ;proc ${CLASS}_cget {w args} {
-    if {[llength $args] != 1} {
-      return -code error "wrong \# args: should be \"$w cget option\""
-    }
-    upvar \#0 $w data [winfo class $w] class
-    if {[info exists class($args)] && [string match -* $class($args)]} {
-      set args $class($args)
-    }
-    if [string match {} [set arg [array names data $args]]] {
-      set arg [array names data ${args}*]
-    }
-    set num [llength $arg]
-    if {$num==1} {
-      return $data($arg)
-    } elseif {$num} {
-      return -code error "ambiguous option \"$args\""
-    } elseif {[catch {$data(cmd) cget $args} err]} {
-      return -code error $err
-    } else {
-      return $err
-    }
-  }
-
-  ;proc ${CLASS}_configure {w args} {
-    upvar \#0 $w data [winfo class $w] class
-
-    set num [llength $args]
-    if {$num==1} {
-      if {[info exists class($args)] && [string match -* $class($args)]} {
-	set args $class($args)
-      }
-      if [string match {} [set arg [array names data $args]]] {
-	set arg [array names data ${args}*]
-      }
-      set num [llength $arg]
-      if {$num==1} {
-	return [list $arg $class($arg) $data($arg)]
-      } elseif {$num} {
-	return -code error "ambiguous option \"$args\""
-      } elseif {[catch {$data(cmd) config $args} err]} {
-	return -code error $err
-      } else {
-	return $err
-      }
-    } elseif {$num} {
-      for {set i 0} {$i<$num} {incr i} {
-	set key [lindex $args $i]
-	if {[info exists class($key)] && [string match -* $class($key)]} {
-	  set key $class($key)
-	}
-	if [string match {} [set arg [array names data $key]]] {
-	  set arg [array names data $key*]
-	}
-	set val [lindex $args [incr i]]
-	set len [llength $arg]
-	if {$len==1} {
-	  $class(class):configure $w $arg $val
-	} elseif {$len} {
-	  return -code error "ambiguous option \"$args\""
-	} elseif {[catch {$data(cmd) configure $key $val} err]} {
-	  return -code error $err
-	}
-      }
-      return
-    } else {
-      set conf [$data(cmd) config]
-      foreach i [array names data -*] {
-	lappend conf "$i $class($i) [list $data($i)]"
-      }
-      return [lsort $conf]
-    }
-  }
-
-  ;proc $CLASS:configure {w key value}  {
-    puts "$w: $key configured to [list $value]"
-  }
-
-  return $CLASS
-}
-
-foreach pkg [info loaded {}] {
-  set file [lindex $pkg 0]
-  set name [lindex $pkg 1]
-  if {![catch {set version [package require $name]}]} {
-    if {[string match {} [package ifneeded $name $version]]} {
-      package ifneeded $name $version "load [list $file $name]"
-    }
-  }
-}
-catch {unset file name version}
-
-set Console(WWW) [info exists embed_args]
-
-array set Console {
-  -blinkcolor	{blinkColor	BlinkColor	yellow}
-  -blinkrange	{blinkRange	BlinkRange	1}
-  -proccolor	{procColor	ProcColor	darkgreen}
-  -promptcolor	{promptColor	PromptColor	brown}
-  -stdincolor	{stdinColor	StdinColor	black}
-  -stdoutcolor	{stdoutColor	StdoutColor	blue}
-  -stderrcolor	{stderrColor	StderrColor	red}
-
-  -blinktime	{blinkTime	BlinkTime	500}
-  -cols		{columns	Columns		80}
-  -grabputs	{grabPuts	GrabPuts	0}
-  -lightbrace	{lightBrace	LightBrace	1}
-  -lightcmd	{lightCmd	LightCmd	1}
-  -rows		{rows		Rows		20}
-  -scrollypos	{scrollYPos	ScrollYPos	right}
-  -showmultiple	{showMultiple	ShowMultiple	1}
-  -showmenu	{showMenu	ShowMenu	1}
-  -subhistory	{subhistory	SubHistory	1}
-
-  active	{}
-  version	1.2
-  release	{February 1997}
-  contact	{jhobbs@cs.uoregon.edu}
-  docs		{http://www.sunlabs.com/tcl/plugin/}
-  slavealias	{ console }
-  slaveprocs	{ alias dir dump lremove puts echo unknown tcl_unknown which }
-}
-
-if [string compare unix $tcl_platform(platform)] {
-  set Console(-font) {font	Font	{Courier 14}}
-} else {
-  set Console(-font) {font	Font	fixed}
-}
-
-if $Console(WWW) {
-  set Console(-prompt) {prompt	Prompt	{\[history nextid\] % }}
-} else {
-  set Console(-prompt) {prompt	Prompt	\
-      {(\[file tail \[pwd\]\]) \[history nextid\] % }}
-}
-
-megawidget Console
-
-## console -
-# ARGS:	w	- widget pathname of the Console console
-#	args
-# Calls:	ConsoleInitUI
-# Outputs:	errors found in Console resource file
-##
-proc console {W args} {
-  set CLASS Console
-  upvar \#0 $W data $CLASS class
-  if {[winfo exists $W]} {
-    catch {eval destroy [winfo children $W]}
-  } else {
-    toplevel $W -class $CLASS
-  }
-  wm withdraw $W
-  wm title $W "Console $class(version)"
-
-  ## User definable options
-  foreach o [array names class -*] {
-    if [string match -* $class($o)] continue
-    set data($o) [option get $W [lindex $class($o) 0] $CLASS]
-  }
-
-  global auto_path tcl_pkgPath tcl_interactive
-  set tcl_interactive 1
-
-  ## Private variables
-  array set data {
-    appname {} cmdbuf {} cmdsave {} errorInfo {}
-    event 1 histid 0 find {} find,case 0 find,reg 0
-  }
-  array set data [list class $CLASS cmd $CLASS$W \
-      menubar	$W.bar \
-      console	$W.text \
-      scrolly	$W.sy \
-      ]
-
-  rename $W $data(cmd)
-  if {[string comp {} $args] && \
-      [catch {eval ${CLASS}_configure $W $args} err]} {
-    catch {destroy $W}
-    catch {unset data}
-    return -code error $err
-  }
-  ;proc $W args "eval $CLASS:eval [list $W] \$args"
-
-  if {![info exists tcl_pkgPath]} {
-    set dir [file join [file dirname [info nameofexec]] lib]
-    if [string comp {} [info commands @scope]] {
-      set dir [file join $dir itcl]
-    }
-    catch {source [file join $dir pkgIndex.tcl]}
-  }
-  catch {tclPkgUnknown dummy-name dummy-version}
-
-  ## Menus
-  frame $data(menubar) -relief raised -bd 2
-  set c [text $data(console) -font $data(-font) -wrap char -setgrid 1 \
-      -yscrollcomm [list $W.sy set] -foreground $data(-stdincolor) \
-      -width $data(-cols) -height $data(-rows)]
-  bindtags $W [list $W all]
-  bindtags $c [list $c PreCon Console PostCon $W all]
-  scrollbar $data(scrolly) -takefocus 0 -bd 1 -command "$c yview"
-
-  ConsoleInitMenus $W
-
-  if $data(-showmenu) { pack $data(menubar) -fill x }
-  pack $data(scrolly) -side $data(-scrollypos) -fill y
-  pack $c -fill both -expand 1
-
-  Console:prompt $W "console display active\n"
-
-  foreach col {prompt stdout stderr stdin proc} {
-    $c tag configure $col -foreground $data(-${col}color)
-  }
-  $c tag configure blink -background $data(-blinkcolor)
-  $c tag configure find -background $data(-blinkcolor)
-
-  bind $c <Configure> {
-    set W [winfo toplevel %W]
-    scan [wm geometry $W] "%%dx%%d" $W\(-cols\) $W\(-rows\)
-  }
-  wm deiconify $W
-  focus -force $c
-
-  return $W
-}
-
-;proc Console:configure { W key val } {
-  upvar \#0 $W data
-  global Console
-
-  set truth {^(1|yes|true|on)$}
-  switch -- $key {
-    -blinkcolor		{
-      $data(console) tag config blink -background $val
-      $data(console) tag config find -background $val
-    }
-    -proccolor		{ $data(console) tag config proc   -foreground $val }
-    -promptcolor	{ $data(console) tag config prompt -foreground $val }
-    -stdincolor		{
-      $data(console) tag config stdin  -foreground $val
-      $data(console) config -foreground $val
-    }
-    -stdoutcolor	{ $data(console) tag config stdout -foreground $val }
-    -stderrcolor	{ $data(console) tag config stderr -foreground $val }
-
-    -blinktime		{
-      if ![regexp {[0-9]+} $val] {
-	return -code error "$key option requires an integer value"
-      }
-    }
-    -cols		{
-      if [winfo exists $data(console)] { $data(console) config -width $val }
-    }
-    -font		{ $data(console) config -font $val }
-    -grabputs		{
-      set val [regexp -nocase $truth $val]
-      if $val {
-	set Console(active) [linsert $Console(active) 0 $W]
-      } else {
-	set Console(active) [lremove -all $Console(active) $W]
-      }
-    }
-    -lightbrace		{ set val [regexp -nocase $truth $val] }
-    -lightcmd		{ set val [regexp -nocase $truth $val] }
-    -prompt		{
-      if [catch {uplevel \#0 [list subst $val]} err] {
-	return -code error "\"$val\" threw an error:\n$err"
-      }
-    }
-    -rows		{
-      if [winfo exists $data(console)] { $data(console) config -height $val }
-    }
-    -scrollypos		{
-      if [regexp {^(left|right)$} $val junk val] {
-	if [winfo exists $data(scrolly)] {
-	  pack config $data(scrolly) -side $val
-	}
-      } else {
-	return -code error "bad option \"$val\": must be left or right"
-      }
-    }
-    -showmultiple	{ set val [regexp -nocase $truth $val] }
-    -showmenu		{
-      set val [regexp -nocase $truth $val]
-      if [winfo exists $data(menubar)] {
-	if $val {
-	  pack $data(menubar) -fill x -before $data(console) \
-	      -before $data(scrolly)
-	} else { pack forget $data(menubar) }
-      }
-    }
-    -subhistory		{ set val [regexp -nocase $truth $val] }
-  }
-  set data($key) $val
-}
-
-;proc Console:destroy W {
-  global Console
-  set Console(active) [lremove $Console(active) $W]
-}
-
-## ConsoleEval - evaluates commands input into console window
-## This is the first stage of the evaluating commands in the console.
-## They need to be broken up into consituent commands (by ConsoleCmdSep) in
-## case a multiple commands were pasted in, then each is eval'ed (by
-## ConsoleEvalCmd) in turn.  Any uncompleted command will not be eval'ed.
-# ARGS:	w	- console text widget
-# Calls:	ConsoleCmdGet, ConsoleCmdSep, ConsoleEvalCmd
-## 
-;proc ConsoleEval {w} {
-  ConsoleCmdSep [ConsoleCmdGet $w] cmds cmd
-  $w mark set insert end-1c
-  $w insert end \n
-  if [llength $cmds] {
-    foreach c $cmds {ConsoleEvalCmd $w $c}
-    $w insert insert $cmd {}
-  } elseif {[info complete $cmd] && ![regexp {[^\\]\\$} $cmd]} {
-    ConsoleEvalCmd $w $cmd
-  }
-  $w see insert
-}
-
-## ConsoleEvalCmd - evaluates a single command, adding it to history
-# ARGS:	w	- console text widget
-# 	cmd	- the command to evaluate
-# Calls:	Console:prompt
-# Outputs:	result of command to stdout (or stderr if error occured)
-# Returns:	next event number
-## 
-;proc ConsoleEvalCmd {w cmd} {
-  ## HACK to get $W as we need it
-  set W [winfo parent $w]
-  upvar \#0 $W data
-
-  $w mark set output end
-  if [string comp {} $cmd] {
-    set err 0
-    if $data(-subhistory) {
-      set ev [ConsoleEvalSlave history nextid]
-      incr ev -1
-      if {[string match !! $cmd]} {
-	set err [catch {ConsoleEvalSlave history event $ev} cmd]
-	if !$err {$w insert output $cmd\n stdin}
-      } elseif {[regexp {^!(.+)$} $cmd dummy event]} {
-	## Check last event because history event is broken
-	set err [catch {ConsoleEvalSlave history event $ev} cmd]
-	if {!$err && ![string match ${event}* $cmd]} {
-	  set err [catch {ConsoleEvalSlave history event $event} cmd]
-	}
-	if !$err {$w insert output $cmd\n stdin}
-      } elseif {[regexp {^\^([^^]*)\^([^^]*)\^?$} $cmd dummy old new]} {
-	if ![set err [catch {ConsoleEvalSlave history event $ev} cmd]] {
-	  regsub -all -- $old $cmd $new cmd
-	  $w insert output $cmd\n stdin
-	}
-      }
-    }
-    if $err {
-      $w insert output $cmd\n stderr
-    } else {
-      if [string match {} $data(appname)] {
-	if [catch {ConsoleEvalSlave eval $cmd} res] {
-	  set data(errorInfo) [ConsoleEvalSlave set errorInfo]
-	  set err 1
-	}
-      } else {
-	if [catch [list ConsoleEvalAttached $cmd] res] {
-	  if [catch {ConsoleEvalAttached set errorInfo} err] {
-	    set data(errorInfo) {Error attempting to retrieve errorInfo}
-	  } else {
-	    set data(errorInfo) $err
-	  }
-	  set err 1
-	}
-      }
-      ConsoleEvalSlave history add $cmd
-      if $err {
-	$w insert output $res\n stderr
-      } elseif {[string comp {} $res]} {
-	$w insert output $res\n stdout
-      }
-    }
-  }
-  Console:prompt $W
-  set data(event) [ConsoleEvalSlave history nextid]
-}
-
-## ConsoleEvalSlave - evaluates the args in the associated slave
-## args should be passed to this procedure like they would be at
-## the command line (not like to 'eval').
-# ARGS:	args	- the command and args to evaluate
-##
-;proc ConsoleEvalSlave {args} {
-  uplevel \#0 $args
-}
-
-## ConsoleEvalAttached
-##
-;proc ConsoleEvalAttached {args} {
-  eval uplevel \#0 $args
-}
-
-## ConsoleCmdGet - gets the current command from the console widget
-# ARGS:	w	- console text widget
-# Returns:	text which compromises current command line
-## 
-;proc ConsoleCmdGet w {
-  if [string match {} [$w tag nextrange prompt limit end]] {
-    $w tag add stdin limit end-1c
-    return [$w get limit end-1c]
-  }
-}
-
-## ConsoleCmdSep - separates multiple commands into a list and remainder
-# ARGS:	cmd	- (possible) multiple command to separate
-# 	list	- varname for the list of commands that were separated.
-#	rmd	- varname of any remainder (like an incomplete final command).
-#		If there is only one command, it's placed in this var.
-# Returns:	constituent command info in varnames specified by list & rmd.
-## 
-;proc ConsoleCmdSep {cmd ls rmd} {
-  upvar $ls cmds $rmd tmp
-
-  set tmp {}
-  set cmds {}
-  foreach cmd [split [set cmd] \n] {
-    if [string comp {} $tmp] {
-      append tmp \n$cmd
-    } else {
-      append tmp $cmd
-    }
-    if {[info complete $tmp] && ![regexp {[^\\]\\$} $tmp]} {
-      lappend cmds $tmp
-      set tmp {}
-    }
-  }
-  if {[string comp {} [lindex $cmds end]] && [string match {} $tmp]} {
-    set tmp [lindex $cmds end]
-    set cmds [lreplace $cmds end end]
-  }
-}
-
-## Console:prompt - displays the prompt in the console widget
-# ARGS:	w	- console text widget
-# Outputs:	prompt (specified in data(-prompt)) to console
-## 
-;proc Console:prompt {W {pre {}} {post {}} {prompt {}}} {
-  upvar \#0 $W data
-
-  set w $data(console)
-  if [string comp {} $pre] { $w insert end $pre stdout }
-  set i [$w index end-1c]
-  if [string comp {} $data(appname)] {
-    $w insert end ">$data(appname)< " prompt
-  }
-  if [string comp {} $prompt] {
-    $w insert end $prompt prompt
-  } else {
-    $w insert end [ConsoleEvalSlave subst $data(-prompt)] prompt
-  }
-  $w mark set output $i
-  $w mark set insert end
-  $w mark set limit insert
-  $w mark gravity limit left
-  if [string comp {} $post] { $w insert end $post stdin }
-  $w see end
-}
-
-## ConsoleAbout - gives about info for Console
-## 
-;proc ConsoleAbout W {
-  global Console
-
-  set w $W.about
-  if [winfo exists $w] {
-    wm deiconify $w
-  } else {
-    toplevel $w
-    wm title $w "About Console v$Console(version)"
-    button $w.b -text Dismiss -command [list wm withdraw $w]
-    text $w.text -height 8 -bd 1 -width 60
-    pack $w.b -fill x -side bottom
-    pack $w.text -fill both -side left -expand 1
-    $w.text tag config center -justify center
-    $w.text tag config title -justify center -font {Courier 18 bold}
-    $w.text insert 1.0 "About Console v$Console(version)\n\n" title \
-	"Copyright 1995-1997 Jeffrey Hobbs, $Console(contact)\
-	\nhttp://www.cs.uoregon.edu/~jhobbs/\
-	\nRelease Date: v$Console(version), $Console(release)\
-	\nDocumentation available at:\n$Console(docs)" center
-  }
-}
-
-## ConsoleInitMenus - inits the menubar and popup for the console
-# ARGS:	W	- console
-## 
-;proc ConsoleInitMenus {W} {
-  upvar \#0 $W data
-
-  set w    $data(menubar)
-  set text $data(console)
-
-  if [catch {menu $w.pop -tearoff 0}] {
-    label $w.label -text "Menus not available in plugin mode"
-    pack $w.label
-    return
-  }
-  bind [winfo toplevel $w] <Button-3> "tk_popup $w.pop %X %Y"
-
-  pack [menubutton $w.con  -text "Console"  -un 0 -menu $w.con.m] -side left
-  $w.pop add cascade -label "Console" -un 0 -menu $w.pop.con
-
-  pack [menubutton $w.edit -text "Edit"     -un 0 -menu $w.edit.m] -side left
-  $w.pop add cascade -label "Edit"    -un 0 -menu $w.pop.edit
-
-  pack [menubutton $w.pref -text "Prefs"    -un 0 -menu $w.pref.m] -side left
-  $w.pop add cascade -label "Prefs"   -un 0 -menu $w.pop.pref
-
-  pack [menubutton $w.hist -text "History"  -un 0 -menu $w.hist.m] -side left
-  $w.pop add cascade -label "History"   -un 0 -menu $w.pop.hist
-
-  pack [menubutton $w.help -text "Help"     -un 0 -menu $w.help.m] -side right
-  $w.pop add cascade -label "Help"    -un 0 -menu $w.pop.help
-
-  ## Console Menu
-  ##
-  foreach m [list [menu $w.con.m -disabledfore $data(-promptcolor)] \
-		 [menu $w.pop.con -disabledfore $data(-promptcolor)]] {
-    $m add command -label "Console $W" -state disabled
-    $m add command -label "Close Console " -un 0 \
-	-acc [event info <<Console_Close>>] -com [list destroy $W]
-    $m add command -label "Clear Console " -un 1 \
-	-acc [event info <<Console_Clear>>] -com [list Console_clear $W]
-    $m add separator
-    $m add command -label "Quit" -un 0 -acc [event info <<Console_Exit>>] \
-	-command exit
-  }
-
-  ## Edit Menu
-  ##
-  foreach m [list [menu $w.edit.m] [menu $w.pop.edit]] {
-    $m add command -label "Cut"   -un 1 \
-	-acc [lindex [event info <<Cut>>] 0] \
-	-command [list ConsoleCut $text]
-    $m add command -label "Copy"  -un 1 \
-	-acc [lindex [event info <<Copy>>] 0] \
-	-command [list ConsoleCopy $text]
-    $m add command -label "Paste" -un 0 \
-	-acc [lindex [event info <<Paste>>] 0] \
-	-command [list ConsolePaste $text]
-    $m add separator
-    $m add command -label "Find"  -un 0 -acc [event info <<Console_Find>>] \
-	-command [list ConsoleFindBox $W]
-  }
-
-  ## Prefs Menu
-  ##
-  foreach m [list [menu $w.pref.m] [menu $w.pop.pref]] {
-    $m add checkbutton -label "Brace Highlighting"    -var $W\(-lightbrace\)
-    $m add checkbutton -label "Command Highlighting"  -var $W\(-lightcmd\)
-    $m add checkbutton -label "History Substitution"  -var $W\(-subhistory\)
-    $m add checkbutton -label "Show Multiple Matches" -var $W\(-showmultiple\)
-    $m add checkbutton -label "Show Menubar"	      -var $W\(-showmenu\) \
-	-command "Console:configure $W -showmenu \[set $W\(-showmenu\)\]"
-    $m add cascade -label Scrollbar -un 0 -menu $m.scroll
-
-    ## Scrollbar Menu
-    ##
-    set m [menu $m.scroll -tearoff 0]
-    $m add radio -label "Left" -var $W\(-scrollypos\) -value left \
-	-command [list Console:configure $W -scrollypos left]
-    $m add radio -label "Right" -var $W\(-scrollypos\) -value right \
-	-command [list Console:configure $W -scrollypos right]
-  }
-
-  ## History Menu
-  ##
-  foreach m [list $w.hist.m $w.pop.hist] {
-    menu $m -disabledfore $data(-promptcolor) \
-	-postcommand [list ConsoleHistoryMenu $W $m]
-  }
-
-  ## Help Menu
-  ##
-  foreach m [list [menu $w.help.m] [menu $w.pop.help]] {
-    $m config -disabledfore $data(-promptcolor)
-    $m add command -label "About " -un 0 -acc [event info <<Console_About>>] \
-	-command [list ConsoleAbout $W]
-  }
-
-  bind $W <<Console_Exit>>	exit
-  #bind $W <<Console_New>>	ConsoleNew
-  bind $W <<Console_Close>>	[list destroy $W]
-  bind $W <<Console_About>>	[list ConsoleAbout $W]
-  bind $W <<Console_Help>>	[list ConsoleHelp $W]
-  bind $W <<Console_Find>>	[list ConsoleFindBox $W]
-
-  ## Menu items need null PostCon bindings to avoid the TagProc
-  ##
-  foreach ev [bind $W] {
-    bind PostCon $ev {
-      # empty
-    }
-  }
-}
-
-## ConsoleHistoryMenu - dynamically build the menu for attached interpreters
-##
-# ARGS:	w	- menu widget
-##
-;proc ConsoleHistoryMenu {W w} {
-  upvar \#0 $W data
-
-  if ![winfo exists $w] return
-  set id [ConsoleEvalSlave history nextid]
-  if {$data(histid)==$id} return
-  set data(histid) $id
-  $w delete 0 end
-  set con $data(console)
-  while {($id>$data(histid)-10) && \
-      ![catch {ConsoleEvalSlave history event [incr id -1]} tmp]} {
-    set lbl [lindex [split $tmp "\n"] 0]
-    if {[string len $lbl]>32} { set lbl [string range $tmp 0 30]... }
-    $w add command -label "$id: $lbl" -command "
-    $con delete limit end
-    $con insert limit [list $tmp]
-    $con see end
-    ConsoleEval $con
-    "
-  }
-}
-
-## ConsoleFindBox - creates minimal dialog interface to ConsoleFind
-# ARGS:	w	- text widget
-#	str	- optional seed string for data(find)
-##
-;proc ConsoleFindBox {W {str {}}} {
-  upvar \#0 $W data
-
-  set t $data(console)
-  set base $W.find
-  if ![winfo exists $base] {
-    toplevel $base
-    wm withdraw $base
-    wm title $base "Console Find"
-
-    pack [frame $base.f] -fill x -expand 1
-    label $base.f.l -text "Find:"
-    entry $base.f.e -textvar $W\(find\)
-    pack [frame $base.opt] -fill x
-    checkbutton $base.opt.c -text "Case Sensitive" -variable $W\(find,case\)
-    checkbutton $base.opt.r -text "Use Regexp" -variable $W\(find,reg\)
-    pack $base.f.l -side left
-    pack $base.f.e $base.opt.c $base.opt.r -side left -fill both -expand 1
-    pack [frame $base.sep -bd 2 -relief sunken -height 4] -fill x
-    pack [frame $base.btn] -fill both
-    button $base.btn.fnd -text "Find" -width 6
-    button $base.btn.clr -text "Clear" -width 6
-    button $base.btn.dis -text "Dismiss" -width 6
-    eval pack [winfo children $base.btn] -padx 4 -pady 2 -side left -fill both
-
-    focus $base.f.e
-
-    bind $base.f.e <Return> [list $base.btn.fnd invoke]
-    bind $base.f.e <Escape> [list $base.btn.dis invoke]
-  }
-  $base.btn.fnd config -command "Console_find $W \$data(find) \
-      -case \$data(find,case) -reg \$data(find,reg)"
-  $base.btn.clr config -command "
-  $t tag remove find 1.0 end
-  set data(find) {}
-  "
-  $base.btn.dis config -command "
-  $t tag remove find 1.0 end
-  wm withdraw $base
-  "
-  if [string comp {} $str] {
-    set data(find) $str
-    $base.btn.fnd invoke
-  }
-
-  if {[string comp normal [wm state $base]]} {
-    wm deiconify $base
-  } else { raise $base }
-  $base.f.e select range 0 end
-}
-
-## Console_find - searches in text widget for $str and highlights it
-## If $str is empty, it just deletes any highlighting
-# ARGS: W	- console widget
-#	str	- string to search for
-#	-case	TCL_BOOLEAN	whether to be case sensitive	DEFAULT: 0
-#	-regexp	TCL_BOOLEAN	whether to use $str as pattern	DEFAULT: 0
-##
-;proc ConsoleFind {W str args} {
-  upvar \#0 $W data
-  set t $data(console)
-  $t tag remove find 1.0 end
-  set truth {^(1|yes|true|on)$}
-  set opts  {}
-  foreach {key val} $args {
-    switch -glob -- $key {
-      -c* { if [regexp -nocase $truth $val] { set case 1 } }
-      -r* { if [regexp -nocase $truth $val] { lappend opts -regexp } }
-      default { return -code error "Unknown option $key" }
-    }
-  }
-  if ![info exists case] { lappend opts -nocase }
-  if [string match {} $str] return
-  $t mark set findmark 1.0
-  while {[string comp {} [set ix [eval $t search $opts -count numc -- \
-      [list $str] findmark end]]]} {
-    $t tag add find $ix ${ix}+${numc}c
-    $t mark set findmark ${ix}+1c
-  }
-  catch {$t see find.first}
-  return [expr [llength [$t tag ranges find]]/2]
-}
-
-## Console:savecommand - saves a command in a buffer for later retrieval
-#
-##
-;proc Console:savecommand {w} {
-  upvar \#0 [winfo parent $w] data
-
-  set tmp $data(cmdsave)
-  set data(cmdsave) [ConsoleCmdGet $w]
-  if {[string match {} $data(cmdsave)]} {
-    set data(cmdsave) $tmp
-  } else {
-    $w delete limit end-1c
-  }
-  $w insert limit $tmp
-  $w see end
-}
-
-## Console_load - sources a file into the console
-# ARGS:	fn	- (optional) filename to source in
-# Returns:	selected filename ({} if nothing was selected)
-## 
-;proc Console_load {W {fn {}}} {
-  if {[string match {} $fn] &&
-      ([catch {tk_getOpenFile} fn] || [string match {} $fn])} return
-  ConsoleEvalAttached [list source $fn]
-}
-
-## Console_save - saves the console buffer to a file
-## This does not eval in a slave because it's not necessary
-# ARGS:	w	- console text widget
-# 	fn	- (optional) filename to save to
-## 
-;proc Console_save {W {fn {}}} {
-  upvar \#0 $W data
-
-  if {[string match {} $fn] &&
-      ([catch {tk_getSaveFile} fn] || [string match {} $fn])} return
-  if [catch {open $fn w} fid] {
-    return -code error "Save Error: Unable to open '$fn' for writing\n$fid"
-  }
-  puts $fid [$data(console) get 1.0 end-1c]
-  close $fid
-}
-
-## clear - clears the buffer of the console (not the history though)
-## 
-;proc Console_clear {W {pcnt 100}} {
-  upvar \#0 $W data
-
-  set data(tmp) [ConsoleCmdGet $data(console)]
-  if {![regexp {^[0-9]*$} $pcnt] || $pcnt < 1 || $pcnt > 100} {
-    return -code error \
-	"invalid percentage to clear: must be 1-100 (100 default)"
-  } elseif {$pcnt == 100} {
-    $data(console) delete 1.0 end
-  } else {
-    set tmp [expr $pcnt/100.0*[$data(console) index end]]
-    $data(console) delete 1.0 "$tmp linestart"
-  }
-  Console:prompt $W {} $data(tmp)
-}
-
-;proc Console_error {W} {
-  ## Outputs stack caused by last error.
-  upvar \#0 $W data
-  set info $data(errorInfo)
-  if [string match {} $info] { set info {errorInfo empty} }
-  catch {destroy $W.error}
-  set w [toplevel $W.error]
-  wm title $w "Console Last Error"
-  button $w.close -text Dismiss -command [list destroy $w]
-  scrollbar $w.sy -takefocus 0 -bd 1 -command [list $w.text yview]
-  text $w.text -font $data(-font) -yscrollcommand [list $w.sy set]
-  pack $w.close -side bottom -fill x
-  pack $w.sy -side right -fill y
-  pack $w.text -fill both -expand 1
-  $w.text insert 1.0 $info
-  $w.text config -state disabled
-}
-
-## Console_event - searches for history based on a string
-## Search forward (next) if $int>0, otherwise search back (prev)
-# ARGS:	W	- console widget
-##
-;proc Console_event {W int {str {}}} {
-  upvar \#0 $W data
-
-  if !$int return
-  set w $data(console)
-
-  set nextid [ConsoleEvalSlave history nextid]
-  if [string comp {} $str] {
-    ## String is not empty, do an event search
-    set event $data(event)
-    if {$int < 0 && $event == $nextid} { set data(cmdbuf) $str }
-    set len [string len $data(cmdbuf)]
-    incr len -1
-    if {$int > 0} {
-      ## Search history forward
-      while {$event < $nextid} {
-	if {[incr event] == $nextid} {
-	  $w delete limit end
-	  $w insert limit $data(cmdbuf)
-	  break
-	} elseif {![catch {ConsoleEvalSlave history event $event} res] \
-	    && ![string comp $data(cmdbuf) [string range $res 0 $len]]} {
-	  $w delete limit end
-	  $w insert limit $res
-	  break
-	}
-      }
-      set data(event) $event
-    } else {
-      ## Search history reverse
-      while {![catch {ConsoleEvalSlave history event [incr event -1]} res]} {
-	if {![string comp $data(cmdbuf) [string range $res 0 $len]]} {
-	  $w delete limit end
-	  $w insert limit $res
-	  set data(event) $event
-	  break
-	}
-      }
-    } 
-  } else {
-    ## String is empty, just get next/prev event
-    if {$int > 0} {
-      ## Goto next command in history
-      if {$data(event) < $nextid} {
-	$w delete limit end
-	if {[incr data(event)] == $nextid} {
-	  $w insert limit $data(cmdbuf)
-	} else {
-	  $w insert limit [ConsoleEvalSlave history event $data(event)]
-	}
-      }
-    } else {
-      ## Goto previous command in history
-      if {$data(event) == $nextid} { set data(cmdbuf) [ConsoleCmdGet $w] }
-      if [catch {ConsoleEvalSlave history event [incr data(event) -1]} res] {
-	incr data(event)
-      } else {
-	$w delete limit end
-	$w insert limit $res
-      }
-    }
-  }
-  $w mark set insert end
-  $w see end
-}
-
-;proc Console_history {W args} {
-  set sub {\2}
-  if [string match -n* $args] { append sub "\n" }
-  set h [ConsoleEvalSlave history]
-  regsub -all "( *\[0-9\]+  |\t)(\[^\n\]*\n?)" $h $sub h
-  return $h
-}
-
-;proc Console_hide {W} {
-  wm withdraw $W
-}
-
-;proc Console_show {W} {
-  wm deiconify $W
-  raise $W
-}
-
-##
-## Some procedures to make up for lack of built-in shell commands
-##
-
-## puts
-## This allows me to capture all stdout/stderr to the console window
-# ARGS:	same as usual	
-# Outputs:	the string with a color-coded text tag
-## 
-if ![catch {rename puts tcl_puts}] {
-  ;proc puts args {
-    global Console
-    set w [lindex $Console(active) 0].text
-    if {[llength $Console(active)] && [winfo exists $w]} {
-      set len [llength $args]
-      if {$len==1} {
-	eval $w insert output $args stdout {\n} stdout
-	$w see output
-      } elseif {$len==2 && \
-	  [regexp {(stdout|stderr|-nonewline)} [lindex $args 0] junk tmp]} {
-	if [string comp $tmp -nonewline] {
-	  eval $w insert output [lreplace $args 0 0] $tmp {\n} $tmp
-	} else {
-	  eval $w insert output [lreplace $args 0 0] stdout
-	}
-	$w see output
-      } elseif {$len==3 && \
-	  [regexp {(stdout|stderr)} [lreplace $args 2 2] junk tmp]} {
-	if [string comp [lreplace $args 1 2] -nonewline] {
-	  eval $w insert output [lrange $args 1 1] $tmp
-	} else {
-	  eval $w insert output [lreplace $args 0 1] $tmp
-	}
-	$w see output
-      } else {
-	global errorCode errorInfo
-	if [catch "tcl_puts $args" msg] {
-	  regsub tcl_puts $msg puts msg
-	  regsub -all tcl_puts $errorInfo puts errorInfo
-	  error $msg
-	}
-	return $msg
-      }
-      if $len update
-    } else {
-      global errorCode errorInfo
-      if [catch "tcl_puts $args" msg] {
-	regsub tcl_puts $msg puts msg
-	regsub -all tcl_puts $errorInfo puts errorInfo
-	error $msg
-      }
-      return $msg
-    }
-  }
-}
-
-## echo
-## Relaxes the one string restriction of 'puts'
-# ARGS:	any number of strings to output to stdout
-##
-proc echo args { puts [concat $args] }
-
-## alias - akin to the csh alias command
-## If called with no args, then it dumps out all current aliases
-## If called with one arg, returns the alias of that arg (or {} if none)
-# ARGS:	newcmd	- (optional) command to bind alias to
-# 	args	- command and args being aliased
-## 
-proc alias {{newcmd {}} args} {
-  if [string match {} $newcmd] {
-    set res {}
-    foreach a [interp aliases] {
-      lappend res [list $a -> [interp alias {} $a]]
-    }
-    return [join $res \n]
-  } elseif {[string match {} $args]} {
-    interp alias {} $newcmd
-  } else {
-    eval interp alias [list {} $newcmd {}] $args
-  }
-}
-
-## dump - outputs variables/procedure/widget info in source'able form.
-## Accepts glob style pattern matching for the names
-# ARGS:	type	- type of thing to dump: must be variable, procedure, widget
-# OPTS: -nocomplain
-#		don't complain if no vars match something
-#	-filter pattern
-#		specifies a glob filter pattern to be used by the variable
-#		method as an array filter pattern (it filters down for
-#		nested elements) and in the widget method as a config
-#		option filter pattern
-#	--	forcibly ends options recognition
-# Returns:	the values of the requested items in a 'source'able form
-## 
-proc dump {type args} {
-  set whine 1
-  set code  ok
-  while {[string match -* $args]} {
-    switch -glob -- [lindex $args 0] {
-      -n* { set whine 0; set args [lreplace $args 0 0] }
-      -f* { set fltr [lindex $args 1]; set args [lreplace $args 0 1] }
-      --  { set args [lreplace $args 0 0]; break }
-      default { return -code error "unknown option \"[lindex $args 0]\"" }
-    }
-  }
-  if {$whine && [string match {} $args]} {
-    return -code error "wrong \# args: [lindex [info level 0] 0]\
-	?-nocomplain? ?-filter pattern? ?--? pattern ?pattern ...?"
-  }
-  set res {}
-  switch -glob -- $type {
-    c* {
-      # command
-      # outpus commands by figuring out, as well as possible, what it is
-      # this does not attempt to auto-load anything
-      foreach arg $args {
-	if [string comp {} [set cmds [info comm $arg]]] {
-	  foreach cmd [lsort $cmds] {
-	    if {[lsearch -exact [interp aliases] $cmd] > -1} {
-	      append res "\#\# ALIAS:   $cmd => [interp alias {} $cmd]\n"
-	    } elseif {[string comp {} [info procs $cmd]]} {
-	      if {[catch {dump p -- $cmd} msg] && $whine} { set code error }
-	      append res $msg\n
-	    } else {
-	      append res "\#\# COMMAND: $cmd\n"
-	    }
-	  }
-	} elseif $whine {
-	  append res "\#\# No known command $arg\n"
-	  set code error
-	}
-      }
-    }
-    v* {
-      # variable
-      # outputs variables value(s), whether array or simple.
-      if ![info exists fltr] { set fltr * }
-      foreach arg $args {
-	if {[string match {} [set vars [uplevel info vars [list $arg]]]]} {
-	  if {[uplevel info exists $arg]} {
-	    set vars $arg
-	  } elseif $whine {
-	    append res "\#\# No known variable $arg\n"
-	    set code error
-	    continue
-	  } else continue
-	}
-	foreach var [lsort $vars] {
-	  upvar $var v
-	  if {[array exists v]} {
-	    set nest {}
-	    append res "array set $var \{\n"
-	    foreach i [lsort [array names v $fltr]] {
-	      upvar 0 v\($i\) __ary
-	      if {[array exists __ary]} {
-		append nest "\#\# NESTED ARRAY ELEMENT: $i\n"
-		append nest "upvar 0 [list $var\($i\)] __ary;\
-		    [dump v -filter $fltr __ary]\n"
-	      } else {
-		append res "    [list $i]\t[list $v($i)]\n"
-	      }
-	    }
-	    append res "\}\n$nest"
-	  } else {
-	    append res [list set $var $v]\n
-	  }
-	}
-      }
-    }
-    p* {
-      # procedure
-      foreach arg $args {
-	if {[string comp {} [set ps [info proc $arg]]] ||
-	    ([auto_load $arg] &&
-	     [string comp {} [set ps [info proc $arg]]])} {
-	  foreach p [lsort $ps] {
-	    set as {}
-	    foreach a [info args $p] {
-	      if {[info default $p $a tmp]} {
-		lappend as [list $a $tmp]
-	      } else {
-		lappend as $a
-	      }
-	    }
-	    append res [list proc $p $as [info body $p]]\n
-	  }
-	} elseif $whine {
-	  append res "\#\# No known proc $arg\n"
-	  set code error
-	}
-      }
-    }
-    w* {
-      # widget
-      ## The user should have Tk loaded
-      if [string match {} [info command winfo]] {
-	return -code error "winfo not present, cannot dump widgets"
-      }
-      if ![info exists fltr] { set fltr .* }
-      foreach arg $args {
-	if [string comp {} [set ws [info command $arg]]] {
-	  foreach w [lsort $ws] {
-	    if [winfo exists $w] {
-	      if [catch {$w configure} cfg] {
-		append res "\#\# Widget $w does not support configure method"
-		set code error
-	      } else {
-		append res "\#\# [winfo class $w] $w\n$w configure"
-		foreach c $cfg {
-		  if {[llength $c] != 5} continue
-		  if {[regexp -nocase -- $fltr $c]} {
-		    append res " \\\n\t[list [lindex $c 0] [lindex $c 4]]"
-		  }
-		}
-		append res \n
-	      }
-	    }
-	  }
-	} elseif $whine {
-	  append res "\#\# No known widget $arg\n"
-	  set code error
-	}
-      }
-    }
-    default {
-      return -code error "bad [lindex [info level 0] 0] option\
-	\"$type\":\ must be procedure, variable, widget"
-    }
-  }
-  return -code $code [string trimr $res \n]
-}
-
-## which - tells you where a command is found
-# ARGS:	cmd	- command name
-# Returns:	where command is found (internal / external / unknown)
-## 
-proc which cmd {
-  if {[string comp {} [info commands $cmd]] ||
-      ([auto_load $cmd] && [string comp {} [info commands $cmd]])} {
-    if {[lsearch -exact [interp aliases] $cmd] > -1} {
-      return "$cmd:\taliased to [alias $cmd]"
-    } elseif {[string comp {} [info procs $cmd]]} {
-      return "$cmd:\tinternal proc"
-    } else {
-      return "$cmd:\tinternal command"
-    }
-  } elseif {[string comp {} [auto_execok $cmd]]} {
-    return [auto_execok $cmd]
-  } else {
-    return -code error "$cmd:\tunknown command"
-  }
-}
-
-## dir - directory list
-# ARGS:	args	- names/glob patterns of directories to list
-# OPTS:	-all	- list hidden files as well (Unix dot files)
-#	-long	- list in full format "permissions size date filename"
-#	-full	- displays / after directories and link paths for links
-# Returns:	a directory listing
-## 
-proc dir {args} {
-  array set s {
-    all 0 full 0 long 0
-    0 --- 1 --x 2 -w- 3 -wx 4 r-- 5 r-x 6 rw- 7 rwx
-  }
-  while {[string match \-* [lindex $args 0]]} {
-    set str [lindex $args 0]
-    set args [lreplace $args 0 0]
-    switch -glob -- $str {
-      -a* {set s(all) 1} -f* {set s(full) 1}
-      -l* {set s(long) 1} -- break
-      default {
-	return -code error \
-	    "unknown option \"$str\", should be one of: -all, -full, -long"
-      }
-    }
-  }
-  set sep [string trim [file join . .] .]
-  if [string match {} $args] { set args . }
-  foreach arg $args {
-    if {[file isdir $arg]} {
-      set arg [string trimr $arg $sep]$sep
-      if $s(all) {
-	lappend out [list $arg [lsort [glob -nocomplain -- $arg.* $arg*]]]
-      } else {
-	lappend out [list $arg [lsort [glob -nocomplain -- $arg*]]]
-      }
-    } else {
-      lappend out [list [file dirname $arg]$sep \
-		       [lsort [glob -nocomplain -- $arg]]]
-    }
-  }
-  if $s(long) {
-    set old [clock scan {1 year ago}]
-    set fmt "%s%9d %s %s\n"
-    foreach o $out {
-      set d [lindex $o 0]
-      append res $d:\n
-      foreach f [lindex $o 1] {
-	file lstat $f st
-	set f [file tail $f]
-	if $s(full) {
-	  switch -glob $st(type) {
-	    d* { append f $sep }
-	    l* { append f "@ -> [file readlink $d$sep$f]" }
-	    default { if [file exec $d$sep$f] { append f * } }
-	  }
-	}
-	if [string match file $st(type)] {
-	  set mode -
-	} else {
-	  set mode [string index $st(type) 0]
-	}
-	foreach j [split [format %o [expr $st(mode)&0777]] {}] {
-	  append mode $s($j)
-	}
-	if {$st(mtime)>$old} {
-	  set cfmt {%b %d %H:%M}
-	} else {
-	  set cfmt {%b %d  %Y}
-	}
-	append res [format $fmt $mode $st(size) \
-			[clock format $st(mtime) -format $cfmt] $f]
-      }
-      append res \n
-    }
-  } else {
-    foreach o $out {
-      set d [lindex $o 0]
-      append res $d:\n
-      set i 0
-      foreach f [lindex $o 1] {
-	if {[string len [file tail $f]] > $i} {
-	  set i [string len [file tail $f]]
-	}
-      }
-      set i [expr $i+2+$s(full)]
-      ## This gets the number of cols in the Console console widget
-      set j [expr 64/$i]
-      set k 0
-      foreach f [lindex $o 1] {
-	set f [file tail $f]
-	if $s(full) {
-	  switch -glob [file type $d$sep$f] {
-	    d* { append f $sep }
-	    l* { append f @ }
-	    default { if [file exec $d$sep$f] { append f * } }
-	  }
-	}
-	append res [format "%-${i}s" $f]
-	if {[incr k]%$j == 0} {set res [string trimr $res]\n}
-      }
-      append res \n\n
-    }
-  }
-  return [string trimr $res]
-}
-interp alias {} ls {} dir
-
-## lremove - remove items from a list
-# OPTS:	-all	remove all instances of each item
-# ARGS:	l	a list to remove items from
-#	args	items to remove
-##
-proc lremove {args} {
-  set all 0
-  if [string match \-a* [lindex $args 0]] {
-    set all 1
-    set args [lreplace $args 0 0]
-  }
-  set l [lindex $args 0]
-  eval append is [lreplace $args 0 0]
-  foreach i $is {
-    if {[set ix [lsearch -exact $l $i]] == -1} continue
-    set l [lreplace $l $ix $ix]
-    if $all {
-      while {[set ix [lsearch -exact $l $i]] != -1} {
-	set l [lreplace $l $ix $ix]
-      }
-    }
-  }
-  return $l
-}
-
-## Unknown changed to get output into Console window
-# unknown:
-# Invoked automatically whenever an unknown command is encountered.
-# Works through a list of "unknown handlers" that have been registered
-# to deal with unknown commands.  Extensions can integrate their own
-# handlers into the "unknown" facility via "unknown_handle".
-#
-# If a handler exists that recognizes the command, then it will
-# take care of the command action and return a valid result or a
-# Tcl error.  Otherwise, it should return "-code continue" (=2)
-# and responsibility for the command is passed to the next handler.
-#
-# Arguments:
-# args -	A list whose elements are the words of the original
-#		command, including the command name.
-
-proc unknown args {
-    global unknown_handler_order unknown_handlers errorInfo errorCode
-
-    #
-    # Be careful to save error info now, and restore it later
-    # for each handler.  Some handlers generate their own errors
-    # and disrupt handling.
-    #
-    set savedErrorCode $errorCode
-    set savedErrorInfo $errorInfo
-
-    if {![info exists unknown_handler_order] || ![info exists unknown_handlers]} {
-	set unknown_handlers(tcl) tcl_unknown
-	set unknown_handler_order tcl
-    }
-
-    foreach handler $unknown_handler_order {
-        set status [catch {uplevel $unknown_handlers($handler) $args} result]
-
-        if {$status == 1} {
-            #
-            # Strip the last five lines off the error stack (they're
-            # from the "uplevel" command).
-            #
-            set new [split $errorInfo \n]
-            set new [join [lrange $new 0 [expr [llength $new] - 6]] \n]
-            return -code $status -errorcode $errorCode \
-                -errorinfo $new $result
-
-        } elseif {$status != 4} {
-            return -code $status $result
-        }
-
-        set errorCode $savedErrorCode
-        set errorInfo $savedErrorInfo
-    }
-
-    set name [lindex $args 0]
-    return -code error "invalid command name \"$name\""
-}
-
-# tcl_unknown:
-# Invoked when a Tcl command is invoked that doesn't exist in the
-# interpreter:
-#
-#	1. See if the autoload facility can locate the command in a
-#	   Tcl script file.  If so, load it and execute it.
-#	2. If the command was invoked interactively at top-level:
-#	    (a) see if the command exists as an executable UNIX program.
-#		If so, "exec" the command.
-#	    (b) see if the command requests csh-like history substitution
-#		in one of the common forms !!, !<number>, or ^old^new.  If
-#		so, emulate csh's history substitution.
-#	    (c) see if the command is a unique abbreviation for another
-#		command.  If so, invoke the command.
-#
-# Arguments:
-# args -	A list whose elements are the words of the original
-#		command, including the command name.
-
-proc tcl_unknown args {
-  global auto_noexec auto_noload env unknown_pending tcl_interactive Console
-  global errorCode errorInfo
-
-  # Save the values of errorCode and errorInfo variables, since they
-  # may get modified if caught errors occur below.  The variables will
-  # be restored just before re-executing the missing command.
-
-  set savedErrorCode $errorCode
-  set savedErrorInfo $errorInfo
-  set name [lindex $args 0]
-  if ![info exists auto_noload] {
-    #
-    # Make sure we're not trying to load the same proc twice.
-    #
-    if [info exists unknown_pending($name)] {
-      unset unknown_pending($name)
-      if {[array size unknown_pending] == 0} {
-	unset unknown_pending
-      }
-      return -code error "self-referential recursion in \"unknown\" for command \"$name\"";
-    }
-    set unknown_pending($name) pending;
-    set ret [catch {auto_load $name} msg]
-    unset unknown_pending($name);
-    if $ret {
-      return -code $ret -errorcode $errorCode \
-	  "error while autoloading \"$name\": $msg"
-    }
-    if ![array size unknown_pending] {
-      unset unknown_pending
-    }
-    if $msg {
-      set errorCode $savedErrorCode
-      set errorInfo $savedErrorInfo
-      set code [catch {uplevel $args} msg]
-      if {$code ==  1} {
-	#
-	# Strip the last five lines off the error stack (they're
-	# from the "uplevel" command).
-	#
-
-	set new [split $errorInfo \n]
-	set new [join [lrange $new 0 [expr [llength $new] - 6]] \n]
-	return -code error -errorcode $errorCode \
-	    -errorinfo $new $msg
-      } else {
-	return -code $code $msg
-      }
-    }
-  }
-  if {[info level] == 1 && [string match {} [info script]] \
-	  && [info exists tcl_interactive] && $tcl_interactive} {
-    if ![info exists auto_noexec] {
-      set new [auto_execok $name]
-      if {$new != ""} {
-	set errorCode $savedErrorCode
-	set errorInfo $savedErrorInfo
-	return [uplevel exec [list $new] [lrange $args 1 end]]
-	#return [uplevel exec >&@stdout <@stdin $new [lrange $args 1 end]]
-      }
-    }
-    set errorCode $savedErrorCode
-    set errorInfo $savedErrorInfo
-    ##
-    ## History substitution moved into ConsoleEvalCmd
-    ##
-    set cmds [info commands $name*]
-    if {[llength $cmds] == 1} {
-      return [uplevel [lreplace $args 0 0 $cmds]]
-    }
-    if {[llength $cmds]} {
-      if {$name == ""} {
-	return -code error "empty command name \"\""
-      } else {
-	return -code error \
-	    "ambiguous command name \"$name\": [lsort $cmds]"
-      }
-    }
-  }
-  return -code continue
-}
-
-switch -glob $tcl_platform(platform) {
-  win* { set META Alt }
-  mac* { set META Command }
-  default { set META Meta }
-}
-
-# ConsoleClipboardKeysyms --
-# This procedure is invoked to identify the keys that correspond to
-# the "copy", "cut", and "paste" functions for the clipboard.
-#
-# Arguments:
-# copy -	Name of the key (keysym name plus modifiers, if any,
-#		such as "Meta-y") used for the copy operation.
-# cut -		Name of the key used for the cut operation.
-# paste -	Name of the key used for the paste operation.
-
-;proc ConsoleClipboardKeysyms {copy cut paste} {
-  bind Console <$copy>	{ConsoleCopy %W}
-  bind Console <$cut>		{ConsoleCut %W}
-  bind Console <$paste>	{ConsolePaste %W}
-}
-
-;proc ConsoleCut w {
-  if [string match $w [selection own -displayof $w]] {
-    clipboard clear -displayof $w
-    catch {
-      clipboard append -displayof $w [selection get -displayof $w]
-      if [$w compare sel.first >= limit] {$w delete sel.first sel.last}
-    }
-  }
-}
-;proc ConsoleCopy w {
-  if [string match $w [selection own -displayof $w]] {
-    clipboard clear -displayof $w
-    catch {clipboard append -displayof $w [selection get -displayof $w]}
-  }
-}
-
-;proc ConsolePaste w {
-  if ![catch {selection get -displayof $w -selection CLIPBOARD} tmp] {
-    if [$w compare insert < limit] {$w mark set insert end}
-    $w insert insert $tmp
-    $w see insert
-    if [string match *\n* $tmp] {ConsoleEval $w}
-  }
-}
-
-## Get all Text bindings into Console except Unix cut/copy/paste
-## and newline insertion
-foreach ev [lremove [bind Text] {<Control-Key-y> <Control-Key-w> \
-    <Meta-Key-w> <Control-Key-o> <Control-Key-v> <Control-Key-c> \
-    <Control-Key-x>}] {
-  bind Console $ev [bind Text $ev]
-}
-
-foreach {ev key} {
-  <<Console_Previous>>		<Key-Up>
-  <<Console_Next>>		<Key-Down>
-  <<Console_NextImmediate>>	<Control-Key-n>
-  <<Console_PreviousImmediate>>	<Control-Key-p>
-  <<Console_PreviousSearch>>	<Control-Key-r>
-  <<Console_NextSearch>>	<Control-Key-s>
-
-  <<Console_ExpandFile>>	<Key-Tab>
-  <<Console_ExpandProc>>	<Control-Shift-Key-P>
-  <<Console_ExpandVar>>		<Control-Shift-Key-V>
-  <<Console_Tab>>		<Control-Key-i>
-  <<Console_Eval>>		<Key-Return>
-  <<Console_Eval>>		<Key-KP_Enter>
-
-  <<Console_Clear>>		<Control-Key-l>
-  <<Console_KillLine>>		<Control-Key-k>
-  <<Console_Transpose>>		<Control-Key-t>
-  <<Console_ClearLine>>		<Control-Key-u>
-  <<Console_SaveCommand>>	<Control-Key-z>
-
-  <<Console_Exit>>	<Control-Key-q>
-  <<Console_New>>	<Control-Key-N>
-  <<Console_Close>>	<Control-Key-w>
-  <<Console_About>>	<Control-Key-A>
-  <<Console_Help>>	<Control-Key-H>
-  <<Console_Find>>	<Control-Key-F>
-} {
-  event add $ev $key
-  bind Console $key {}
-}
-catch {unset ev key}
-
-## Redefine for Console what we need
-##
-event delete <<Paste>> <Control-V>
-ConsoleClipboardKeysyms <Copy> <Cut> <Paste>
-
-bind Console <Insert> {catch {ConsoleInsert %W [selection get -displayof %W]}}
-
-bind Console <Triple-1> {+
-catch {
-  eval %W tag remove sel [%W tag nextrange prompt sel.first sel.last]
-  %W mark set insert sel.first
-}
-}
-
-bind Console <<Console_ExpandFile>> {
-  if [%W compare insert > limit] {Console:expand %W path}
-  break
-}
-bind Console <<Console_ExpandProc>> {
-  if [%W compare insert > limit] {Console:expand %W proc}
-}
-bind Console <<Console_ExpandVar>> {
-  if [%W compare insert > limit] {Console:expand %W var}
-}
-bind Console <<Console_Tab>> {
-  if [%W compare insert >= limit] {
-    ConsoleInsert %W \t
-  }
-}
-bind Console <<Console_Eval>> {
-  ConsoleEval %W
-}
-bind Console <Delete> {
-  if {[string comp {} [%W tag nextrange sel 1.0 end]] \
-      && [%W compare sel.first >= limit]} {
-    %W delete sel.first sel.last
-  } elseif {[%W compare insert >= limit]} {
-    %W delete insert
-    %W see insert
-  }
-}
-bind Console <BackSpace> {
-  if {[string comp {} [%W tag nextrange sel 1.0 end]] \
-      && [%W compare sel.first >= limit]} {
-    %W delete sel.first sel.last
-  } elseif {[%W compare insert != 1.0] && [%W compare insert > limit]} {
-    %W delete insert-1c
-    %W see insert
-  }
-}
-bind Console <Control-h> [bind Console <BackSpace>]
-
-bind Console <KeyPress> {
-  ConsoleInsert %W %A
-}
-
-bind Console <Control-a> {
-  if [%W compare {limit linestart} == {insert linestart}] {
-    tkTextSetCursor %W limit
-  } else {
-    tkTextSetCursor %W {insert linestart}
-  }
-}
-bind Console <Control-d> {
-  if [%W compare insert < limit] break
-  %W delete insert
-}
-bind Console <<Console_KillLine>> {
-  if [%W compare insert < limit] break
-  if [%W compare insert == {insert lineend}] {
-    %W delete insert
-  } else {
-    %W delete insert {insert lineend}
-  }
-}
-bind Console <<Console_Clear>> {
-  Console_clear [winfo parent %W]
-}
-bind Console <<Console_Previous>> {
-  if [%W compare {insert linestart} != {limit linestart}] {
-    tkTextSetCursor %W [tkTextUpDownLine %W -1]
-  } else {
-    Console_event [winfo parent %W] -1
-  }
-}
-bind Console <<Console_Next>> {
-  if [%W compare {insert linestart} != {end-1c linestart}] {
-    tkTextSetCursor %W [tkTextUpDownLine %W 1]
-  } else {
-    Console_event [winfo parent %W] 1
-  }
-}
-bind Console <<Console_NextImmediate>> {
-  Console_event [winfo parent %W] 1
-}
-bind Console <<Console_PreviousImmediate>> {
-  Console_event [winfo parent %W] -1
-}
-bind Console <<Console_PreviousSearch>> {
-  Console_event [winfo parent %W] -1 [ConsoleCmdGet %W]
-}
-bind Console <<Console_NextSearch>> {
-  Console_event [winfo parent %W] 1 [ConsoleCmdGet %W]
-}
-bind Console <<Console_Transpose>> {
-  ## Transpose current and previous chars
-  if [%W compare insert > limit] { tkTextTranspose %W }
-}
-bind Console <<Console_ClearLine>> {
-  ## Clear command line (Unix shell staple)
-  %W delete limit end
-}
-bind Console <<Console_SaveCommand>> {
-  ## Save command buffer (swaps with current command)
-  Console:savecommand %W
-}
-catch {bind Console <Key-Page_Up>   { tkTextScrollPages %W -1 }}
-catch {bind Console <Key-Prior>     { tkTextScrollPages %W -1 }}
-catch {bind Console <Key-Page_Down> { tkTextScrollPages %W 1 }}
-catch {bind Console <Key-Next>      { tkTextScrollPages %W 1 }}
-bind Console <$META-d> {
-  if [%W compare insert >= limit] {
-    %W delete insert {insert wordend}
-  }
-}
-bind Console <$META-BackSpace> {
-  if [%W compare {insert -1c wordstart} >= limit] {
-    %W delete {insert -1c wordstart} insert
-  }
-}
-bind Console <$META-Delete> {
-  if [%W compare insert >= limit] {
-    %W delete insert {insert wordend}
-  }
-}
-bind Console <ButtonRelease-2> {
-  if {(!$tkPriv(mouseMoved) || $tk_strictMotif) \
-      && ![catch {selection get -displayof %W} tkPriv(junk)]} {
-    if [%W compare @%x,%y < limit] {
-      %W insert end $tkPriv(junk)
-    } else {
-      %W insert @%x,%y $tkPriv(junk)
-    }
-    if [string match *\n* $tkPriv(junk)] {ConsoleEval %W}
-  }
-}
-
-##
-## End Console bindings
-##
-
-##
-## Bindings for doing special things based on certain keys
-##
-bind PostCon <Key-parenright> {
-  if [string comp \\ [%W get insert-2c]] { ConsoleMatchPair %W \( \) limit }
-}
-bind PostCon <Key-bracketright> {
-  if [string comp \\ [%W get insert-2c]] { ConsoleMatchPair %W \[ \] limit }
-}
-bind PostCon <Key-braceright> {
-  if [string comp \\ [%W get insert-2c]] { ConsoleMatchPair %W \{ \} limit }
-}
-bind PostCon <Key-quotedbl> {
-  if [string comp \\ [%W get insert-2c]] { ConsoleMatchQuote %W limit }
-}
-
-bind PostCon <KeyPress> {
-  if [string comp {} %A] { ConsoleTagProc %W }
-}
-
-
-## ConsoleTagProc - tags a procedure in the console if it's recognized
-## This procedure is not perfect.  However, making it perfect wastes
-## too much CPU time...  Also it should check the existence of a command
-## in whatever is the connected slave, not the master interpreter.
-##
-;proc ConsoleTagProc w {
-  upvar \#0 [winfo parent $w] data
-  if !$data(-lightcmd) return
-  set i [$w index "insert-1c wordstart"]
-  set j [$w index "insert-1c wordend"]
-  if {[string comp {} \
-	   [ConsoleEvalAttached info command [list [$w get $i $j]]]]} {
-    $w tag add proc $i $j
-  } else {
-    $w tag remove proc $i $j
-  }
-}
-
-## ConsoleMatchPair - blinks a matching pair of characters
-## c2 is assumed to be at the text index 'insert'.
-## This proc is really loopy and took me an hour to figure out given
-## all possible combinations with escaping except for escaped \'s.
-## It doesn't take into account possible commenting... Oh well.  If
-## anyone has something better, I'd like to see/use it.  This is really
-## only efficient for small contexts.
-# ARGS:	w	- console text widget
-# 	c1	- first char of pair
-# 	c2	- second char of pair
-# Calls:	Console:blink
-## 
-;proc ConsoleMatchPair {w c1 c2 {lim 1.0}} {
-  upvar \#0 [winfo parent $w] data
-  if {!$data(-lightbrace) || $data(-blinktime)<100} return
-  if [string comp {} [set ix [$w search -back $c1 insert $lim]]] {
-    while {[string match {\\} [$w get $ix-1c]] &&
-	   [string comp {} [set ix [$w search -back $c1 $ix-1c $lim]]]} {}
-    set i1 insert-1c
-    while {[string comp {} $ix]} {
-      set i0 $ix
-      set j 0
-      while {[string comp {} [set i0 [$w search $c2 $i0 $i1]]]} {
-	append i0 +1c
-	if {[string match {\\} [$w get $i0-2c]]} continue
-	incr j
-      }
-      if {!$j} break
-      set i1 $ix
-      while {$j && [string comp {} [set ix [$w search -back $c1 $ix $lim]]]} {
-	if {[string match {\\} [$w get $ix-1c]]} continue
-	incr j -1
-      }
-    }
-    if [string match {} $ix] { set ix [$w index $lim] }
-  } else { set ix [$w index $lim] }
-  if $data(-blinkrange) {
-    Console:blink $w $data(-blinktime) $ix [$w index insert]
-  } else {
-    Console:blink $w $data(-blinktime) $ix $ix+1c \
-	[$w index insert-1c] [$w index insert]
-  }
-}
-
-## ConsoleMatchQuote - blinks between matching quotes.
-## Blinks just the quote if it's unmatched, otherwise blinks quoted string
-## The quote to match is assumed to be at the text index 'insert'.
-# ARGS:	w	- console text widget
-# Calls:	Console:blink
-## 
-;proc ConsoleMatchQuote {w {lim 1.0}} {
-  upvar \#0 [winfo parent $w] data
-  if {!$data(-lightbrace) || $data(-blinktime)<100} return
-  set i insert-1c
-  set j 0
-  while {[string comp {} [set i [$w search -back \" $i $lim]]]} {
-    if {[string match {\\} [$w get $i-1c]]} continue
-    if {!$j} {set i0 $i}
-    incr j
-  }
-  if [expr $j%2] {
-    if $data(-blinkrange) {
-      Console:blink $w $data(-blinktime) $i0 [$w index insert]
-    } else {
-      Console:blink $w $data(-blinktime) $i0 $i0+1c \
-	  [$w index insert-1c] [$w index insert]
-    }
-  } else {
-    Console:blink $w $data(-blinktime) [$w index insert-1c] [$w index insert]
-  }
-}
-
-## Console:blink - blinks between 2 indices for a specified duration.
-# ARGS:	w	- console text widget
-#	delay	- millisecs to blink for
-# 	args	- indices of regions to blink
-# Outputs:	blinks selected characters in $w
-## 
-;proc Console:blink {w delay args} {
-  eval $w tag add blink $args
-  after $delay eval $w tag remove blink $args
-  return
-}
-
-
-## ConsoleInsert
-## Insert a string into a text console at the point of the insertion cursor.
-## If there is a selection in the text, and it covers the point of the
-## insertion cursor, then delete the selection before inserting.
-# ARGS:	w	- text window in which to insert the string
-# 	s	- string to insert (usually just a single char)
-# Outputs:	$s to text widget
-## 
-;proc ConsoleInsert {w s} {
-  if {[string match {} $s] || [string match disabled [$w cget -state]]} {
-    return
-  }
-  if [$w comp insert < limit] {
-    $w mark set insert end
-  }
-  catch {
-    if {[$w comp sel.first <= insert] && [$w comp sel.last >= insert]} {
-      $w delete sel.first sel.last
-    }
-  }
-  $w insert insert $s
-  $w see insert
-}
-
-## Console:expand - 
-# ARGS:	w	- text widget in which to expand str
-# 	type	- type of expansion (path / proc / variable)
-# Calls:	ConsoleExpand(Pathname|Procname|Variable)
-# Outputs:	The string to match is expanded to the longest possible match.
-#		If data(-showmultiple) is non-zero and the user longest match
-#		equaled the string to expand, then all possible matches are
-#		output to stdout.  Triggers bell if no matches are found.
-# Returns:	number of matches found
-## 
-;proc Console:expand {w type} {
-  set exp "\[^\\]\[ \t\n\r\[\{\"\$]"
-  set tmp [$w search -back -regexp $exp insert-1c limit-1c]
-  if [string compare {} $tmp] {append tmp +2c} else {set tmp limit}
-  if [$w compare $tmp >= insert] return
-  set str [$w get $tmp insert]
-  switch -glob $type {
-    pa* { set res [ConsoleExpandPathname $str] }
-    pr* { set res [ConsoleExpandProcname $str] }
-    v*  { set res [ConsoleExpandVariable $str] }
-    default {set res {}}
-  }
-  set len [llength $res]
-  if $len {
-    $w delete $tmp insert
-    $w insert $tmp [lindex $res 0]
-    if {$len > 1} {
-      upvar \#0 [winfo parent $w] data
-      if {$data(-showmultiple) && ![string comp [lindex $res 0] $str]} {
-	puts stdout [lreplace $res 0 0]
-      }
-    }
-  } else bell
-  return [incr len -1]
-}
-
-## ConsoleExpandPathname - expand a file pathname based on $str
-## This is based on UNIX file name conventions
-# ARGS:	str	- partial file pathname to expand
-# Calls:	ConsoleExpandBestMatch
-# Returns:	list containing longest unique match followed by all the
-#		possible further matches
-## 
-;proc ConsoleExpandPathname str {
-  set pwd [ConsoleEvalAttached pwd]
-  if [catch {ConsoleEvalAttached [list cd [file dirname $str]]} err] {
-    return -code error $err
-  }
-  if [catch {lsort [ConsoleEvalAttached glob [file tail $str]*]} m] {
-    set match {}
-  } else {
-    if {[llength $m] > 1} {
-      set tmp [ConsoleExpandBestMatch $m [file tail $str]]
-      if [string match ?*/* $str] {
-	set tmp [file dirname $str]/$tmp
-      } elseif {[string match /* $str]} {
-	set tmp /$tmp
-      }
-      regsub -all { } $tmp {\\ } tmp
-      set match [linsert $m 0 $tmp]
-    } else {
-      ## This may look goofy, but it handles spaces in path names
-      eval append match $m
-      if [file isdir $match] {append match /}
-      if [string match ?*/* $str] {
-	set match [file dirname $str]/$match
-      } elseif {[string match /* $str]} {
-	set match /$match
-      }
-      regsub -all { } $match {\\ } match
-      ## Why is this one needed and the ones below aren't!!
-      set match [list $match]
-    }
-  }
-  ConsoleEvalAttached [list cd $pwd]
-  return $match
-}
-
-## ConsoleExpandProcname - expand a tcl proc name based on $str
-# ARGS:	str	- partial proc name to expand
-# Calls:	ConsoleExpandBestMatch
-# Returns:	list containing longest unique match followed by all the
-#		possible further matches
-## 
-;proc ConsoleExpandProcname str {
-  set match [ConsoleEvalAttached info commands $str*]
-  if {[llength $match] > 1} {
-    regsub -all { } [ConsoleExpandBestMatch $match $str] {\\ } str
-    set match [linsert $match 0 $str]
-  } else {
-    regsub -all { } $match {\\ } match
-  }
-  return $match
-}
-
-## ConsoleExpandVariable - expand a tcl variable name based on $str
-# ARGS:	str	- partial tcl var name to expand
-# Calls:	ConsoleExpandBestMatch
-# Returns:	list containing longest unique match followed by all the
-#		possible further matches
-## 
-;proc ConsoleExpandVariable str {
-  if [regexp {([^\(]*)\((.*)} $str junk ary str] {
-    ## Looks like they're trying to expand an array.
-    set match [ConsoleEvalAttached array names $ary $str*]
-    if {[llength $match] > 1} {
-      set vars $ary\([ConsoleExpandBestMatch $match $str]
-      foreach var $match {lappend vars $ary\($var\)}
-      return $vars
-    } else {set match $ary\($match\)}
-    ## Space transformation avoided for array names.
-  } else {
-    set match [ConsoleEvalAttached info vars $str*]
-    if {[llength $match] > 1} {
-      regsub -all { } [ConsoleExpandBestMatch $match $str] {\\ } str
-      set match [linsert $match 0 $str]
-    } else {
-      regsub -all { } $match {\\ } match
-    }
-  }
-  return $match
-}
-
-## ConsoleExpandBestMatch2 - finds the best unique match in a list of names
-## Improves upon the speed of the below proc only when $l is small
-## or $e is {}.  $e is extra for compatibility with proc below.
-# ARGS:	l	- list to find best unique match in
-# Returns:	longest unique match in the list
-## 
-;proc ConsoleExpandBestMatch2 {l {e {}}} {
-  set s [lindex $l 0]
-  if {[llength $l]>1} {
-    set i [expr [string length $s]-1]
-    foreach l $l {
-      while {$i>=0 && [string first $s $l]} {
-	set s [string range $s 0 [incr i -1]]
-      }
-    }
-  }
-  return $s
-}
-
-## ConsoleExpandBestMatch - finds the best unique match in a list of names
-## The extra $e in this argument allows us to limit the innermost loop a
-## little further.  This improves speed as $l becomes large or $e becomes long.
-# ARGS:	l	- list to find best unique match in
-# 	e	- currently best known unique match
-# Returns:	longest unique match in the list
-## 
-;proc ConsoleExpandBestMatch {l {e {}}} {
-  set ec [lindex $l 0]
-  if {[llength $l]>1} {
-    set e  [string length $e]; incr e -1
-    set ei [string length $ec]; incr ei -1
-    foreach l $l {
-      while {$ei>=$e && [string first $ec $l]} {
-	set ec [string range $ec 0 [incr ei -1]]
-      }
-    }
-  }
-  return $ec
-}
-
-
-## ConsoleResource - re'source's this script into current console
-## Meant primarily for my development of this program.  It follows
-## links until the ultimate source is found.
-## 
-set Console(SCRIPT) [info script]
-if !$Console(WWW) {
-  while {[string match link [file type $Console(SCRIPT)]]} {
-    set link [file readlink $Console(SCRIPT)]
-    if [string match relative [file pathtype $link]] {
-      set Console(SCRIPT) [file join [file dirname $Console(SCRIPT)] $link]
-    } else {
-      set Console(SCRIPT) $link
-    }
-  }
-  catch {unset link}
-  if [string match relative [file pathtype $Console(SCRIPT)]] {
-    set Console(SCRIPT) [file join [pwd] $Console(SCRIPT)]
-  }
-}
-
-;proc Console:resource {} {
-  global Console
-  uplevel \#0 [list source $Console(SCRIPT)]
-}
-
-catch {destroy .c}
-console .c
-wm iconify .c
-wm title .c "Tcl Plugin Console"
-wm geometry .c +10+10
diff --git a/tkcon/extra/stripped.tcl b/tkcon/extra/stripped.tcl
deleted file mode 100755
index 64ef1f5..0000000
--- a/tkcon/extra/stripped.tcl
+++ /dev/null
@@ -1,1083 +0,0 @@
-#!/bin/sh
-# \
-exec wish4.1 "$0" ${1+"$@"}
-
-#
-## stripped.tcl
-## Stripped down version of Tk Console Widget, part of the VerTcl system
-## Stripped to work with Netscape Tk Plugin.
-##
-## Copyright (c) 1995,1996 by Jeffrey Hobbs
-## jhobbs@cs.uoregon.edu, http://www.cs.uoregon.edu/~jhobbs/
-## source standard_disclaimer.tcl
-
-if {[info tclversion] < 7.5} {
-  error "TkCon requires at least the stable version of tcl7.5/tk4.1"
-}
-
-## tkConInit - inits tkCon
-# ARGS:	root	- widget pathname of the tkCon console root
-#	title	- title for the console root and main (.) windows
-# Calls:	tkConInitUI
-# Outputs:	errors found in tkCon resource file
-##
-proc tkConInit {{title Main}} {
-  global tkCon tcl_platform env auto_path tcl_interactive
-
-  set tcl_interactive 1
-
-  array set tkCon {
-    color,blink		yellow
-    color,proc		darkgreen
-    color,prompt	brown
-    color,stdin		black
-    color,stdout	blue
-    color,stderr	red
-
-    blinktime		500
-    font		fixed
-    lightbrace		1
-    lightcmd		1
-    prompt1		{[history nextid] % }
-    prompt2		{[history nextid] cont > }
-    showmultiple	1
-    slavescript		{}
-
-    cmd {} cmdbuf {} cmdsave {} event 1 svnt 1 cols 80 rows 24
-
-    version	{0.5x Stripped}
-    base	.console
-  }
-
-  if [string comp $tcl_platform(platform) unix] {
-    array set tkCon {
-      font	{Courier 12 {}}
-    }
-  }
-
-  tkConInitUI $title
-
-  interp alias {} clean {} tkConStateRevert tkCon
-  tkConStateCheckpoint tkCon
-}
-
-## tkConInitUI - inits UI portion (console) of tkCon
-## Creates all elements of the console window and sets up the text tags
-# ARGS:	title	- title for the console root and main (.) windows
-# Calls:	tkConInitMenus, tkConPrompt
-##
-proc tkConInitUI {title} {
-  global tkCon
-
-  set root $tkCon(base)
-  if [string match $root .] { set w {} } else { set w [frame $root] }
-
-  set tkCon(console) [text $w.text -font $tkCon(font) -wrap char \
-      -yscrollcommand "$w.sy set" -setgrid 1 -foreground $tkCon(color,stdin)]
-  bindtags $w.text "$w.text PreCon Console PostCon $root all"
-  set tkCon(scrolly) [scrollbar $w.sy \
-      -command "$w.text yview" -takefocus 0 -bd 1]
-
-  pack $w.sy -side left -fill y
-  set tkCon(scrollypos) left
-  pack $w.text -fill both -expand 1
-
-  $w.text insert insert "$title console display active\n" stdout
-  tkConPrompt $w.text
-
-  foreach col {prompt stdout stderr stdin proc} {
-    $w.text tag configure $col -foreground $tkCon(color,$col)
-  }
-  $w.text tag configure blink -background $tkCon(color,blink)
-
-  pack $root -fill both -expand 1
-  focus $w.text
-}
-
-## tkConEval - evaluates commands input into console window
-## This is the first stage of the evaluating commands in the console.
-## They need to be broken up into consituent commands (by tkConCmdSep) in
-## case a multiple commands were pasted in, then each is eval'ed (by
-## tkConEvalCmd) in turn.  Any uncompleted command will not be eval'ed.
-# ARGS:	w	- console text widget
-# Calls:	tkConCmdGet, tkConCmdSep, tkConEvalCmd
-## 
-proc tkConEval {w} {
-  global tkCon
-  tkConCmdSep [tkConCmdGet $w] cmds tkCon(cmd)
-  $w mark set insert end-1c
-  $w insert end \n
-  if [llength $cmds] {
-    foreach cmd $cmds {tkConEvalCmd $w $cmd}
-    $w insert insert $tkCon(cmd) {}
-  } elseif {[info complete $tkCon(cmd)] && ![regexp {[^\\]\\$} $tkCon(cmd)]} {
-    tkConEvalCmd $w $tkCon(cmd)
-  }
-  $w see insert
-}
-
-## tkConEvalCmd - evaluates a single command, adding it to history
-# ARGS:	w	- console text widget
-# 	cmd	- the command to evaluate
-# Calls:	tkConPrompt
-# Outputs:	result of command to stdout (or stderr if error occured)
-# Returns:	next event number
-## 
-proc tkConEvalCmd {w cmd} {
-  global tkCon
-  $w mark set output end
-  if [catch {uplevel \#0 history add [list $cmd] exec} result] {
-    $w insert output $result\n stderr
-  } elseif [string comp {} $result] {
-    $w insert output $result\n stdout
-  }
-  tkConPrompt $w
-  set tkCon(svnt) [set tkCon(event) [history nextid]]
-}
-
-## tkConCmdGet - gets the current command from the console widget
-# ARGS:	w	- console text widget
-# Returns:	text which compromises current command line
-## 
-proc tkConCmdGet w {
-  if [string match {} [set ix [$w tag nextrange prompt limit end]]] {
-    $w tag add stdin limit end-1c
-    return [$w get limit end-1c]
-  }
-}
-
-## tkConCmdSep - separates multiple commands into a list and remainder
-# ARGS:	cmd	- (possible) multiple command to separate
-# 	list	- varname for the list of commands that were separated.
-#	rmd	- varname of any remainder (like an incomplete final command).
-#		If there is only one command, it's placed in this var.
-# Returns:	constituent command info in varnames specified by list & rmd.
-## 
-proc tkConCmdSep {cmd ls rmd} {
-  upvar $ls cmds $rmd tmp
-  set tmp {}
-  set cmds {}
-  foreach cmd [split [set cmd] \n] {
-    if [string comp {} $tmp] {
-      append tmp \n$cmd
-    } else {
-      append tmp $cmd
-    }
-    if {[info complete $tmp] && ![regexp {[^\\]\\$} $tmp]} {
-      lappend cmds $tmp
-      set tmp {}
-    }
-  }
-  if {[string comp {} [lindex $cmds end]] && [string match {} $tmp]} {
-    set tmp [lindex $cmds end]
-    set cmds [lreplace $cmds end end]
-  }
-}
-
-## tkConPrompt - displays the prompt in the console widget
-# ARGS:	w	- console text widget
-# Outputs:	prompt (specified in tkCon(prompt1)) to console
-## 
-proc tkConPrompt w {
-  global tkCon env
-  set i [$w index end-1c]
-  $w insert end [subst $tkCon(prompt1)] prompt
-  $w mark set output $i
-  $w mark set limit insert
-  $w mark gravity limit left
-}
-
-## tkConStateCheckpoint - checkpoints the current state of the system
-## This allows you to return to this state with tkConStateRevert
-# ARGS:	ary	an array into which several elements are stored:
-#			commands  - the currently defined commands
-#			variables - the current global vars
-#		This is the array you would pass to tkConRevertState
-##
-proc tkConStateCheckpoint {ary} {
-  global tkCon
-  upvar $ary a
-  set a(commands)  [uplevel \#0 info commands *]
-  set a(variables) [uplevel \#0 info vars *]
-  return
-}
-
-## tkConStateCompare - compare two states and output difference
-# ARGS:	ary1	an array with checkpointed state
-#	ary2	a second array with checkpointed state
-# Outputs:
-##
-proc tkConStateCompare {ary1 ary2} {
-  upvar $ary1 a1 $ary2 a2
-  puts "Commands unique to $ary1:\n[lremove $a1(commands) $a2(commands)]"
-  puts "Commands unique to $ary2:\n[lremove $a2(commands) $a1(commands)]"
-  puts "Variables unique to $ary1:\n[lremove $a1(variables) $a2(variables)]"
-  puts "Variables unique to $ary2:\n[lremove $a2(variables) $a1(variables)]"
-}
-
-## tkConStateRevert - reverts interpreter to a previous state
-# ARGS:	ary	an array with checkpointed state
-##
-proc tkConStateRevert {ary} {
-  upvar $ary a
-  tkConStateCheckpoint tmp
-  foreach i [lremove $tmp(commands) $a(commands)] { catch "rename $i {}" }
-  foreach i [lremove $tmp(variables) $a(variables)] { uplevel \#0 unset $i }
-}
-
-##
-## Some procedures to make up for lack of built-in shell commands
-##
-
-## puts
-## This allows me to capture all stdout/stderr to the console window
-# ARGS:	same as usual	
-# Outputs:	the string with a color-coded text tag
-## 
-catch {rename puts tcl_puts}
-proc puts args {
-  set len [llength $args]
-  if {$len==1} {
-    eval tkcon console insert output $args stdout {\n} stdout
-    tkcon console see output
-  } elseif {$len==2 &&
-    [regexp {(stdout|stderr|-nonewline)} [lindex $args 0] junk tmp]} {
-    if [string comp $tmp -nonewline] {
-      eval tkcon console insert output [lreplace $args 0 0] $tmp {\n} $tmp
-    } else {
-      eval tkcon console insert output [lreplace $args 0 0] stdout
-    }
-    tkcon console see output
-  } elseif {$len==3 &&
-    [regexp {(stdout|stderr)} [lreplace $args 2 2] junk tmp]} {
-    if [string comp [lreplace $args 1 2] -nonewline] {
-      eval tkcon console insert output [lrange $args 1 1] $tmp
-    } else {
-      eval tkcon console insert output [lreplace $args 0 1] $tmp
-    }
-    tkcon console see output
-  } else {
-    eval tcl_puts $args
-  }
-}
-
-## alias - akin to the csh alias command
-## If called with no args, then it prints out all current aliases
-## If called with one arg, returns the alias of that arg (or {} if none)
-# ARGS:	newcmd	- (optional) command to bind alias to
-# 	args	- command and args being aliased
-## 
-proc alias {{newcmd {}} args} {
-  if [string match $newcmd {}] {
-    set res {}
-    foreach a [interp aliases] {
-      lappend res [list $a: [interp alias {} $a]]
-    }
-    return [join $res \n]
-  } elseif {[string match {} $args]} {
-    interp alias {} $newcmd
-  } else {
-    eval interp alias {{}} $newcmd {{}} $args
-  }
-}
-
-## unalias - unaliases an alias'ed command
-# ARGS:	cmd	- command to unbind as an alias
-## 
-proc unalias {cmd} {
-  interp alias {} $cmd {}
-}
-
-## tkcon - command that allows control over the console
-# ARGS:	totally variable, see internal comments
-## 
-proc tkcon {args} {
-  global tkCon
-  switch -- [lindex $args 0] {
-    clean {
-      ## 'cleans' the interpreter - reverting to original tkCon state
-      tkConStateRevert tkCon
-    }
-    console {
-      ## Passes the args to the text widget of the console.
-      eval $tkCon(console) [lreplace $args 0 0]
-    }
-    font {
-      ## "tkcon font ?fontname?".  Sets the font of the console
-      if [string comp {} [lindex $args 1]] {
-	return [$tkCon(console) config -font [lindex $args 1]]
-      } else {
-	return [$tkCon(console) config -font]
-      }
-    }
-    version {
-      return $tkCon(version)
-    }
-    default {
-      ## tries to determine if the command exists, otherwise throws error
-      set cmd [lindex $args 0]
-      set cmd tkCon[string toup [string index $cmd 0]][string range $cmd 1 end]
-      if [string match $cmd [info command $cmd]] {
-	eval $cmd [lreplace $args 0 0]
-      } else {
-	error "bad option \"[lindex $args 0]\": must be attach,\
-		clean, console, font"
-      }
-    }
-  }
-}
-
-## clear - clears the buffer of the console (not the history though)
-## This is executed in the parent interpreter
-## 
-proc clear {{pcnt 100}} {
-  if {![regexp {^[0-9]*$} $pcnt] || $pcnt < 1 || $pcnt > 100} {
-    error "invalid percentage to clear: must be 1-100 (100 default)"
-  } elseif {$pcnt == 100} {
-    tkcon console delete 1.0 end
-  } else {
-    set tmp [expr $pcnt/100.0*[tkcon console index end]]
-    tkcon console delete 1.0 "$tmp linestart"
-  }
-}
-
-## dump - outputs variables/procedure/widget info in source'able form.
-## Accepts glob style pattern matching for the names
-# ARGS:	type	- type of thing to dump: must be variable, procedure, widget
-# OPTS: -nocomplain	don't complain if no vars match something
-# Returns:	the values of the variables in a 'source'able form
-## 
-proc dump {type args} {
-  set whine 1
-  set code ok
-  if [string match \-n* [lindex $args 0]] {
-    set whine 0
-    set args [lreplace $args 0 0]
-  }
-  if {$whine && [string match {} $args]} {
-    error "wrong \# args: [lindex [info level 0] 0] ?-nocomplain? pattern ?pattern ...?"
-  }
-  set res {}
-  switch -glob -- $type {
-    v* {
-      # variable
-      # outputs variables value(s), whether array or simple.
-      foreach arg $args {
-	if {[string match {} [set vars [uplevel info vars [list $arg]]]]} {
-	  if {[uplevel info exists $arg]} {
-	    set vars $arg
-	  } elseif $whine {
-	    append res "\#\# No known variable $arg\n"
-	    set code error
-	    continue
-	  } else continue
-	}
-	foreach var [lsort $vars] {
-	  upvar $var v
-	  if {[array exists v]} {
-	    append res "array set $var \{\n"
-	    foreach i [lsort [array names v]] {
-	      upvar 0 v\($i\) w
-	      if {[array exists w]} {
-		append res "    [list $i {NESTED VAR ERROR}]\n"
-		if $whine { set code error }
-	      } else {
-		append res "    [list $i $v($i)]\n"
-	      }
-	    }
-	    append res "\}\n"
-	  } else {
-	    append res [list set $var $v]\n
-	  }
-	}
-      }
-    }
-    p* {
-      # procedure
-      foreach arg $args {
-	if {[string comp {} [set ps [info proc $arg]]]} {
-	  foreach p [lsort $ps] {
-	    set as {}
-	    foreach a [info args $p] {
-	      if {[info default $p $a tmp]} {
-		lappend as [list $a $tmp]
-	      } else {
-		lappend as $a
-	      }
-	    }
-	    append res [list proc $p $as [info body $p]]\n
-	  }
-	} elseif $whine {
-	  append res "\#\# No known proc $arg\n"
-	}
-      }
-    }
-    w* {
-      # widget
-    }
-    default {
-      return -code error "bad [lindex [info level 0] 0] option\
-	\"[lindex $args 0]\":\ must be procedure, variable, widget"
-    }
-  }
-  return -code $code [string trimr $res \n]
-}
-
-## which - tells you where a command is found
-# ARGS:	cmd	- command name
-# Returns:	where command is found (internal / external / unknown)
-## 
-proc which cmd {
-  if [string comp {} [info commands $cmd]] {
-    if {[lsearch -exact [interp aliases] $cmd] > -1} {
-      return "$cmd:\taliased to [alias $cmd]"
-    } elseif [string comp {} [info procs $cmd]] {
-      return "$cmd:\tinternal proc"
-    } else {
-      return "$cmd:\tinternal command"
-    }
-  } else {
-    return "$cmd:\tunknown command"
-  }
-}
-
-## lremove - remove items from a list
-# OPTS:	-all	remove all instances of each item
-# ARGS:	l	a list to remove items from
-#	is	a list of items to remove
-##
-proc lremove {args} {
-  set all 0
-  if [string match \-a* [lindex $args 0]] {
-    set all 1
-    set args [lreplace $args 0 0]
-  }
-  set l [lindex $args 0]
-  eval append is [lreplace $args 0 0]
-  foreach i $is {
-    if {[set ix [lsearch -exact $l $i]] == -1} continue
-    set l [lreplace $l $ix $ix]
-    if $all {
-      while {[set ix [lsearch -exact $l $i]] != -1} {
-	set l [lreplace $l $i $i]
-      }
-    }
-  }
-  return $l
-}
-
-
-## Unknown changed to get output into tkCon window
-## See $tcl_library/init.tcl for an explanation
-##
-proc unknown args {
-  global auto_noexec auto_noload env unknown_pending tcl_interactive tkCon
-  global errorCode errorInfo
-
-  # Save the values of errorCode and errorInfo variables, since they
-  # may get modified if caught errors occur below.  The variables will
-  # be restored just before re-executing the missing command.
-
-  set savedErrorCode $errorCode
-  set savedErrorInfo $errorInfo
-  set name [lindex $args 0]
-  if ![info exists auto_noload] {
-    #
-    # Make sure we're not trying to load the same proc twice.
-    #
-    if [info exists unknown_pending($name)] {
-      unset unknown_pending($name)
-      if {[array size unknown_pending] == 0} {
-	unset unknown_pending
-      }
-      return -code error "self-referential recursion in \"unknown\" for command \"$name\"";
-    }
-    set unknown_pending($name) pending;
-    set ret [catch {auto_load $name} msg]
-    unset unknown_pending($name);
-    if {$ret != 0} {
-      return -code $ret -errorcode $errorCode \
-	  "error while autoloading \"$name\": $msg"
-    }
-    if ![array size unknown_pending] {
-      unset unknown_pending
-    }
-    if $msg {
-      set errorCode $savedErrorCode
-      set errorInfo $savedErrorInfo
-      set code [catch {uplevel $args} msg]
-      if {$code ==  1} {
-	#
-	# Strip the last five lines off the error stack (they're
-	# from the "uplevel" command).
-	#
-
-	set new [split $errorInfo \n]
-	set new [join [lrange $new 0 [expr [llength $new] - 6]] \n]
-	return -code error -errorcode $errorCode \
-	    -errorinfo $new $msg
-      } else {
-	return -code $code $msg
-      }
-    }
-  }
-  if {[info level] == 1 && [string match {} [info script]] \
-	  && [info exists tcl_interactive] && $tcl_interactive} {
-    if ![info exists auto_noexec] {
-      if [auto_execok $name] {
-	set errorCode $savedErrorCode
-	set errorInfo $savedErrorInfo
-	return [uplevel exec $args]
-	#return [uplevel exec >&@stdout <@stdin $args]
-      }
-    }
-    set errorCode $savedErrorCode
-    set errorInfo $savedErrorInfo
-    if {[string match $name !!]} {
-      catch {set tkCon(cmd) [history event]}
-      return [uplevel {history redo}]
-    } elseif [regexp {^!(.+)$} $name dummy event] {
-      catch {set tkCon(cmd) [history event $event]}
-      return [uplevel [list history redo $event]]
-    } elseif [regexp {^\^([^^]*)\^([^^]*)\^?$} $name dummy old new] {
-      catch {set tkCon(cmd) [history substitute $old $new]}
-      return [uplevel [list history substitute $old $new]]
-    }
-    set cmds [info commands $name*]
-    if {[llength $cmds] == 1} {
-      return [uplevel [lreplace $args 0 0 $cmds]]
-    } elseif {[llength $cmds]} {
-      if {$name == ""} {
-	return -code error "empty command name \"\""
-      } else {
-	return -code error \
-	    "ambiguous command name \"$name\": [lsort $cmds]"
-      }
-    }
-  }
-  return -code error "invalid command name \"$name\""
-}
-
-
-# tkConClipboardKeysyms --
-# This procedure is invoked to identify the keys that correspond to
-# the "copy", "cut", and "paste" functions for the clipboard.
-#
-# Arguments:
-# copy -	Name of the key (keysym name plus modifiers, if any,
-#		such as "Meta-y") used for the copy operation.
-# cut -		Name of the key used for the cut operation.
-# paste -	Name of the key used for the paste operation.
-
-proc tkConCut w {
-  if [string match $w [selection own -displayof $w]] {
-    clipboard clear -displayof $w
-    catch {
-      clipboard append -displayof $w [selection get -displayof $w]
-      if [$w compare sel.first >= limit] {$w delete sel.first sel.last}
-    }
-  }
-}
-proc tkConCopy w {
-  if [string match $w [selection own -displayof $w]] {
-    clipboard clear -displayof $w
-    catch {clipboard append -displayof $w [selection get -displayof $w]}
-  }
-}
-
-proc tkConPaste w {
-  if ![catch {selection get -displayof $w -selection CLIPBOARD} tmp] {
-    if [$w compare insert < limit] {$w mark set insert end}
-    $w insert insert $tmp
-    $w see insert
-    if [string match *\n* $tmp] {tkConEval $w}
-  }
-}
-
-proc tkConClipboardKeysyms {copy cut paste} {
-  bind Console <$copy>	{tkConCopy %W}
-  bind Console <$cut>	{tkConCut %W}
-  bind Console <$paste>	{tkConPaste %W}
-}
-
-## Get all Text bindings into Console
-##
-foreach ev [lremove [bind Text] {<Control-Key-y> <Control-Key-w> \
-				     <Meta-Key-w> <Control-Key-o>}] {
-  bind Console $ev [bind Text $ev]
-}
-unset ev
-
-## Redefine for Console what we need
-##
-tkConClipboardKeysyms F16 F20 F18
-tkConClipboardKeysyms Control-c Control-x Control-v
-
-bind Console <Insert> {catch {tkConInsert %W [selection get -displayof %W]}}
-
-bind Console <Up> {
-  if [%W compare {insert linestart} != {limit linestart}] {
-    tkTextSetCursor %W [tkTextUpDownLine %W -1]
-  } else {
-    if {$tkCon(event) == [history nextid]} {
-      set tkCon(cmdbuf) [tkConCmdGet %W]
-    }
-    if [catch {history event [incr tkCon(event) -1]} tkCon(tmp)] {
-      incr tkCon(event)
-    } else {
-      %W delete limit end
-      %W insert limit $tkCon(tmp)
-      %W see end
-    }
-  }
-}
-bind Console <Down> {
-  if [%W compare {insert linestart} != {end-1c linestart}] {
-    tkTextSetCursor %W [tkTextUpDownLine %W 1]
-  } else {
-    if {$tkCon(event) < [history nextid]} {
-      %W delete limit end
-      if {[incr tkCon(event)] == [history nextid]} {
-	%W insert limit $tkCon(cmdbuf)
-      } else {
-	%W insert limit [history event $tkCon(event)]
-      }
-      %W see end
-    }
-  }
-}
-bind Console <Control-P> {
-  if [%W compare insert > limit] {tkConExpand %W proc}
-}
-bind Console <Control-V> {
-  if [%W compare insert > limit] {tkConExpand %W var}
-}
-bind Console <Control-i> {
-  if [%W compare insert >= limit] {
-    tkConInsert %W \t
-  }
-}
-bind Console <Return> {
-  tkConEval %W
-}
-bind Console <KP_Enter> [bind Console <Return>]
-bind Console <Delete> {
-  if {[string comp {} [%W tag nextrange sel 1.0 end]] \
-	  && [%W compare sel.first >= limit]} {
-    %W delete sel.first sel.last
-  } elseif [%W compare insert >= limit] {
-    %W delete insert
-    %W see insert
-  }
-}
-bind Console <BackSpace> {
-  if {[string comp {} [%W tag nextrange sel 1.0 end]] \
-	  && [%W compare sel.first >= limit]} {
-    %W delete sel.first sel.last
-  } elseif {[%W compare insert != 1.0] && [%W compare insert-1c >= limit]} {
-    %W delete insert-1c
-    %W see insert
-  }
-}
-bind Console <Control-h> [bind Console <BackSpace>]
-
-bind Console <KeyPress> {
-  tkConInsert %W %A
-}
-
-bind Console <Control-a> {
-  if [%W compare {limit linestart} == {insert linestart}] {
-    tkTextSetCursor %W limit
-  } else {
-    tkTextSetCursor %W {insert linestart}
-  }
-}
-bind Console <Control-d> {
-  if [%W compare insert < limit] break
-  %W delete insert
-}
-bind Console <Control-k> {
-  if [%W compare insert < limit] break
-  if [%W compare insert == {insert lineend}] {
-    %W delete insert
-  } else {
-    %W delete insert {insert lineend}
-  }
-}
-bind Console <Control-l> {
-  ## Clear console buffer, without losing current command line input
-  set tkCon(tmp) [tkConCmdGet %W]
-  clear
-  tkConPrompt
-  tkConInsert %W $tkCon(tmp)
-}
-bind Console <Control-n> {
-  ## Goto next command in history
-  if {$tkCon(event) < [history nextid]} {
-    %W delete limit end
-    if {[incr tkCon(event)] == [history nextid]} {
-      %W insert limit $tkCon(cmdbuf)
-    } else {
-      %W insert limit [history event $tkCon(event)]
-    }
-    %W see end
-  }
-}
-bind Console <Control-p> {
-  ## Goto previous command in history
-  if {$tkCon(event) == [history nextid]} {
-    set tkCon(cmdbuf) [tkConCmdGet %W]
-  }
-  if [catch {history event [incr tkCon(event) -1]} tkCon(tmp)] {
-    incr tkCon(event)
-  } else {
-    %W delete limit end
-    %W insert limit $tkCon(tmp)
-    %W see end
-  }
-}
-bind Console <Control-r> {
-  ## Search history reverse
-  if {$tkCon(svnt) == [history nextid]} {
-    set tkCon(cmdbuf) [tkConCmdGet %W]
-  }
-  set tkCon(tmp1) [string len $tkCon(cmdbuf)]
-  incr tkCon(tmp1) -1
-  while 1 {
-    if {[catch {history event [incr tkCon(svnt) -1]} tkCon(tmp)]} {
-      incr tkCon(svnt)
-      break
-    } elseif {![string comp $tkCon(cmdbuf) \
-	[string range $tkCon(tmp) 0 $tkCon(tmp1)]]} {
-      %W delete limit end
-      %W insert limit $tkCon(tmp)
-      break
-    }
-  }
-  %W see end
-}
-bind Console <Control-s> {
-  ## Search history forward
-  set tkCon(tmp1) [string len $tkCon(cmdbuf)]
-  incr tkCon(tmp1) -1
-  while {$tkCon(svnt) < [history nextid]} {
-    if {[incr tkCon(svnt)] == [history nextid]} {
-      %W delete limit end
-      %W insert limit $tkCon(cmdbuf)
-      break
-    } elseif {![catch {history event $tkCon(svnt)} tkCon(tmp)]
-	      && ![string comp $tkCon(cmdbuf) \
-		       [string range $tkCon(tmp) 0 $tkCon(tmp1)]]} {
-      %W delete limit end
-      %W insert limit $tkCon(tmp)
-      break
-    }
-  }
-  %W see end
-}
-bind Console <Control-t> {
-  ## Transpose current and previous chars
-  if [%W compare insert > limit] {
-    tkTextTranspose %W
-  }
-}
-bind Console <Control-u> {
-  ## Clear command line (Unix shell staple)
-  %W delete limit end
-}
-bind Console <Control-z> {
-  ## Save command buffer
-  set tkCon(tmp) $tkCon(cmdsave)
-  set tkCon(cmdsave) [tkConCmdGet %W]
-  if {[string match {} $tkCon(cmdsave)]} {
-    set tkCon(cmdsave) $tkCon(tmp)
-  } else {
-    %W delete limit end-1c
-  }
-  tkConInsert %W $tkCon(tmp)
-  %W see end
-}
-catch {bind Console <Key-Page_Up>   { tkTextScrollPages %W -1 }}
-catch {bind Console <Key-Prior>     { tkTextScrollPages %W -1 }}
-catch {bind Console <Key-Page_Down> { tkTextScrollPages %W 1 }}
-catch {bind Console <Key-Next>      { tkTextScrollPages %W 1 }}
-bind Console <Meta-d> {
-  if [%W compare insert >= limit] {
-    %W delete insert {insert wordend}
-  }
-}
-bind Console <Meta-BackSpace> {
-  if [%W compare {insert -1c wordstart} >= limit] {
-    %W delete {insert -1c wordstart} insert
-  }
-}
-bind Console <Meta-Delete> {
-  if [%W compare insert >= limit] {
-    %W delete insert {insert wordend}
-  }
-}
-bind Console <ButtonRelease-2> {
-  if {(!$tkPriv(mouseMoved) || $tk_strictMotif) \
-	  && ![catch {selection get -displayof %W} tkCon(tmp)]} {
-    if [%W compare @%x,%y < limit] {
-      %W insert end $tkCon(tmp)
-    } else {
-      %W insert @%x,%y $tkCon(tmp)
-    }
-    if [string match *\n* $tkCon(tmp)] {tkConEval %W}
-  }
-}
-
-##
-## End weird bindings
-##
-
-##
-## PostCon bindings, for doing special things based on certain keys
-##
-bind PostCon <Key-parenright> {
-  if {$tkCon(lightbrace) && $tkCon(blinktime)>99 &&
-      [string comp \\ [%W get insert-2c]]} {
-    tkConMatchPair %W \( \)
-  }
-}
-bind PostCon <Key-bracketright> {
-  if {$tkCon(lightbrace) && $tkCon(blinktime)>99 &&
-      [string comp \\ [%W get insert-2c]]} {
-    tkConMatchPair %W \[ \]
-  }
-}
-bind PostCon <Key-braceright> {
-  if {$tkCon(lightbrace) && $tkCon(blinktime)>99 &&
-      [string comp \\ [%W get insert-2c]]} {
-    tkConMatchPair %W \{ \}
-  }
-}
-bind PostCon <Key-quotedbl> {
-  if {$tkCon(lightbrace) && $tkCon(blinktime)>99 &&
-      [string comp \\ [%W get insert-2c]]} {
-    tkConMatchQuote %W
-  }
-}
-
-bind PostCon <KeyPress> {
-  if {$tkCon(lightcmd) && [string comp {} %A]} { tkConTagProc %W }
-}
-
-## tkConTagProc - tags a procedure in the console if it's recognized
-## This procedure is not perfect.  However, making it perfect wastes
-## too much CPU time...  Also it should check the existence of a command
-## in whatever is the connected slave, not the master interpreter.
-##
-proc tkConTagProc w {
-  set i [$w index "insert-1c wordstart"]
-  set j [$w index "insert-1c wordend"]
-  if {[string comp {} [info command [list [$w get $i $j]]]]} {
-    $w tag add proc $i $j
-  } else {
-    $w tag remove proc $i $j
-  }
-}
-
-
-## tkConMatchPair - blinks a matching pair of characters
-## c2 is assumed to be at the text index 'insert'.
-## This proc is really loopy and took me an hour to figure out given
-## all possible combinations with escaping except for escaped \'s.
-## It doesn't take into account possible commenting... Oh well.  If
-## anyone has something better, I'd like to see/use it.  This is really
-## only efficient for small contexts.
-# ARGS:	w	- console text widget
-# 	c1	- first char of pair
-# 	c2	- second char of pair
-# Calls:	tkConBlink
-## 
-proc tkConMatchPair {w c1 c2} {
-  if [string comp {} [set ix [$w search -back $c1 insert limit]]] {
-    while {[string match {\\} [$w get $ix-1c]] &&
-	   [string comp {} [set ix [$w search -back $c1 $ix-1c limit]]]} {}
-    set i1 insert-1c
-    while {[string comp {} $ix]} {
-      set i0 $ix
-      set j 0
-      while {[string comp {} [set i0 [$w search $c2 $i0 $i1]]]} {
-	append i0 +1c
-	if {[string match {\\} [$w get $i0-2c]]} continue
-	incr j
-      }
-      if {!$j} break
-      set i1 $ix
-      while {$j &&
-	     [string comp {} [set ix [$w search -back $c1 $ix limit]]]} {
-	if {[string match {\\} [$w get $ix-1c]]} continue
-	incr j -1
-      }
-    }
-    if [string match {} $ix] { set ix [$w index limit] }
-  } else { set ix [$w index limit] }
-  tkConBlink $w $ix [$w index insert]
-}
-
-## tkConMatchQuote - blinks between matching quotes.
-## Blinks just the quote if it's unmatched, otherwise blinks quoted string
-## The quote to match is assumed to be at the text index 'insert'.
-# ARGS:	w	- console text widget
-# Calls:	tkConBlink
-## 
-proc tkConMatchQuote w {
-  set i insert-1c
-  set j 0
-  while {[string comp {} [set i [$w search -back \" $i limit]]]} {
-    if {[string match {\\} [$w get $i-1c]]} continue
-    if {!$j} {set i0 $i}
-    incr j
-  }
-  if [expr $j%2] {
-    tkConBlink $w $i0 [$w index insert]
-  } else {
-    tkConBlink $w [$w index insert-1c] [$w index insert]
-  }
-}
-
-## tkConBlink - blinks between 2 indices for a specified duration.
-# ARGS:	w	- console text widget
-# 	i1	- start index to blink region
-# 	i2	- end index of blink region
-# 	dur	- duration in usecs to blink for
-# Outputs:	blinks selected characters in $w
-## 
-proc tkConBlink {w i1 i2} {
-  global tkCon
-  $w tag add blink $i1 $i2
-  after $tkCon(blinktime) $w tag remove blink $i1 $i2
-  return
-}
-
-
-## tkConInsert
-## Insert a string into a text at the point of the insertion cursor.
-## If there is a selection in the text, and it covers the point of the
-## insertion cursor, then delete the selection before inserting.
-# ARGS:	w	- text window in which to insert the string
-# 	s	- string to insert (usually just a single char)
-# Outputs:	$s to text widget
-## 
-proc tkConInsert {w s} {
-  if {[string match {} $s] || [string match disabled [$w cget -state]]} {
-    return
-  }
-  if [$w comp insert < limit] {
-    $w mark set insert end
-  }
-  catch {
-    if {[$w comp sel.first <= insert] && [$w comp sel.last >= insert]} {
-      $w delete sel.first sel.last
-    }
-  }
-  $w insert insert $s
-  $w see insert
-}
-
-## tkConExpand - 
-# ARGS:	w	- text widget in which to expand str
-# 	type	- type of expansion (path / proc / variable)
-# Calls:	tkConExpand(Pathname|Procname|Variable)
-# Outputs:	The string to match is expanded to the longest possible match.
-#		If tkCon(showmultiple) is non-zero and the user longest match
-#		equaled the string to expand, then all possible matches are
-#		output to stdout.  Triggers bell if no matches are found.
-# Returns:	number of matches found
-## 
-proc tkConExpand {w type} {
-  set exp "\[^\\]\[ \t\n\r\[\{\"\$]"
-  set tmp [$w search -back -regexp $exp insert-1c limit-1c]
-  if [string compare {} $tmp] {append tmp +2c} else {set tmp limit}
-  if [$w compare $tmp >= insert] return
-  set str [$w get $tmp insert]
-  switch -glob $type {
-    pr* {set res [tkConExpandProcname $str]}
-    v*  {set res [tkConExpandVariable $str]}
-    default {set res {}}
-  }
-  set len [llength $res]
-  if $len {
-    $w delete $tmp insert
-    $w insert $tmp [lindex $res 0]
-    if {$len > 1} {
-      global tkCon
-      if {$tkCon(showmultiple) && [string match [lindex $res 0] $str]} {
-	puts stdout [lreplace $res 0 0]
-      }
-    }
-  }
-  return [incr len -1]
-}
-
-## tkConExpandProcname - expand a tcl proc name based on $str
-# ARGS:	str	- partial proc name to expand
-# Calls:	tkConExpandBestMatch
-# Returns:	list containing longest unique match followed by all the
-#		possible further matches
-## 
-proc tkConExpandProcname str {
-  set match [info commands $str*]
-  if {[llength $match] > 1} {
-    regsub -all { } [tkConExpandBestMatch $match $str] {\\ } str
-    set match [linsert $match 0 $str]
-  } else {
-    regsub -all { } $match {\\ } match
-  }
-  return $match
-}
-
-## tkConExpandVariable - expand a tcl variable name based on $str
-# ARGS:	str	- partial tcl var name to expand
-# Calls:	tkConExpandBestMatch
-# Returns:	list containing longest unique match followed by all the
-#		possible further matches
-## 
-proc tkConExpandVariable str {
-  if [regexp {([^\(]*)\((.*)} $str junk ary str] {
-    set match [uplevel \#0 array names $ary $str*]
-    if {[llength $match] > 1} {
-      set vars $ary\([tkConExpandBestMatch $match $str]
-      foreach var $match {lappend vars $ary\($var\)}
-      return $vars
-    } else {set match $ary\($match\)}
-  } else {
-    set match [uplevel \#0 info vars $str*]
-    if {[llength $match] > 1} {
-      regsub -all { } [tkConExpandBestMatch $match $str] {\\ } str
-      set match [linsert $match 0 $str]
-    } else {
-      regsub -all { } $match {\\ } match
-    }
-  }
-  return $match
-}
-
-## tkConExpandBestMatch - finds the best unique match in a list of names
-## The extra $e in this argument allows us to limit the innermost loop a
-## little further.  This improves speed as $l becomes large or $e becomes long.
-# ARGS:	l	- list to find best unique match in
-# 	e	- currently best known unique match
-# Returns:	longest unique match in the list
-## 
-proc tkConExpandBestMatch {l {e {}}} {
-  set ec [lindex $l 0]
-  if {[llength $l]>1} {
-    set e  [string length $e]; incr e -1
-    set ei [string length $ec]; incr ei -1
-    foreach l $l {
-      while {$ei>=$e && [string first $ec $l]} {
-	set ec [string range $ec 0 [incr ei -1]]
-      }
-    }
-  }
-  return $ec
-}
-
-
-## Initialize only if we haven't yet
-##
-if [catch {winfo exists $tkCon(base)}] tkConInit
diff --git a/tkcon/icons/tkcon-small.svg b/tkcon/icons/tkcon-small.svg
deleted file mode 100644
index 8d6287b..0000000
--- a/tkcon/icons/tkcon-small.svg
+++ /dev/null
@@ -1,534 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>
-<!-- Created with Inkscape (http://www.inkscape.org/) -->
-
-<svg
-   xmlns:dc="http://purl.org/dc/elements/1.1/"
-   xmlns:cc="http://creativecommons.org/ns#"
-   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
-   xmlns:svg="http://www.w3.org/2000/svg"
-   xmlns="http://www.w3.org/2000/svg"
-   xmlns:xlink="http://www.w3.org/1999/xlink"
-   xmlns:sodipodi="http://sodipodi.sourceforge.net/DTD/sodipodi-0.dtd"
-   xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"
-   width="48px"
-   height="48px"
-   id="svg3819"
-   version="1.1"
-   inkscape:version="0.47pre4 r22446"
-   sodipodi:docname="tkcon_small.svg"
-   inkscape:export-filename="/home/pat/Documents/tkcon/tkcon_small.png"
-   inkscape:export-xdpi="90"
-   inkscape:export-ydpi="90">
-  <title
-     id="title2892">tkcon</title>
-  <defs
-     id="defs3821">
-    <inkscape:perspective
-       sodipodi:type="inkscape:persp3d"
-       inkscape:vp_x="0 : 24 : 1"
-       inkscape:vp_y="0 : 1000 : 0"
-       inkscape:vp_z="48 : 24 : 1"
-       inkscape:persp3d-origin="24 : 16 : 1"
-       id="perspective3827" />
-    <inkscape:perspective
-       id="perspective4799"
-       inkscape:persp3d-origin="62.49263 : 88.229167 : 1"
-       inkscape:vp_z="124.98526 : 132.34375 : 1"
-       inkscape:vp_y="0 : 1000 : 0"
-       inkscape:vp_x="0 : 132.34375 : 1"
-       sodipodi:type="inkscape:persp3d" />
-    <radialGradient
-       gradientUnits="userSpaceOnUse"
-       gradientTransform="matrix(1,0,0,0.73779,0,9.844321)"
-       r="2.5100370"
-       fy="39.510023"
-       fx="37.495606"
-       cy="39.510023"
-       cx="37.495606"
-       id="radialGradient6453"
-       xlink:href="#linearGradient6447"
-       inkscape:collect="always" />
-    <linearGradient
-       gradientTransform="matrix(1,0,0,0.744756,0,9.569132)"
-       gradientUnits="userSpaceOnUse"
-       y2="37.999615"
-       x2="36.451904"
-       y1="42.318577"
-       x1="40.253334"
-       id="linearGradient5719"
-       xlink:href="#linearGradient2214"
-       inkscape:collect="always" />
-    <linearGradient
-       gradientTransform="matrix(0.997583,0,0,0.989941,0.104141,0.07028871)"
-       gradientUnits="userSpaceOnUse"
-       y2="30.343304"
-       x2="26.178129"
-       y1="9.1463490"
-       x1="11.048059"
-       id="linearGradient4260"
-       xlink:href="#linearGradient4254"
-       inkscape:collect="always" />
-    <linearGradient
-       gradientTransform="matrix(0.953506,0,0,0.947873,1.141528,1.205591)"
-       gradientUnits="userSpaceOnUse"
-       y2="49.730762"
-       x2="48.845253"
-       y1="19.636894"
-       x1="20.338758"
-       id="linearGradient2244"
-       xlink:href="#linearGradient2238"
-       inkscape:collect="always" />
-    <radialGradient
-       gradientUnits="userSpaceOnUse"
-       gradientTransform="matrix(1.000000,0.000000,0.000000,0.304598,-1.841788e-16,29.37527)"
-       r="17.576654"
-       fy="42.242130"
-       fx="24.041630"
-       cy="42.242130"
-       cx="24.041630"
-       id="radialGradient2230"
-       xlink:href="#linearGradient2224"
-       inkscape:collect="always" />
-    <linearGradient
-       gradientTransform="matrix(0.957412,0,0,0.952331,1.022766,0.133307)"
-       gradientUnits="userSpaceOnUse"
-       y2="32.497993"
-       x2="21.305075"
-       y1="9.5865316"
-       x1="8.6529236"
-       id="linearGradient2220"
-       xlink:href="#linearGradient5176"
-       inkscape:collect="always" />
-    <linearGradient
-       gradientTransform="matrix(0.957412,0,0,0.952331,1.022766,0.133307)"
-       gradientUnits="userSpaceOnUse"
-       y2="14.157946"
-       x2="24.841814"
-       y1="32.285740"
-       x1="29.870447"
-       id="linearGradient2212"
-       xlink:href="#linearGradient2206"
-       inkscape:collect="always" />
-    <linearGradient
-       gradientTransform="matrix(0.950085,0,0,0.965659,1.243978,0.255342)"
-       gradientUnits="userSpaceOnUse"
-       y2="34.225887"
-       x2="22.440805"
-       y1="9.5830288"
-       x1="23.118565"
-       id="linearGradient2204"
-       xlink:href="#linearGradient2198"
-       inkscape:collect="always" />
-    <linearGradient
-       id="linearGradient2198">
-      <stop
-         id="stop2200"
-         offset="0.0000000"
-         style="stop-color:#748f48;stop-opacity:1.0000000;" />
-      <stop
-         id="stop2202"
-         offset="1.0000000"
-         style="stop-color:#1f2816;stop-opacity:1.0000000;" />
-    </linearGradient>
-    <linearGradient
-       id="linearGradient2206">
-      <stop
-         id="stop2208"
-         offset="0.0000000"
-         style="stop-color:#777973;stop-opacity:1.0000000;" />
-      <stop
-         id="stop2210"
-         offset="1.0000000"
-         style="stop-color:#cbccca;stop-opacity:1.0000000;" />
-    </linearGradient>
-    <linearGradient
-       id="linearGradient2214">
-      <stop
-         id="stop2216"
-         offset="0.0000000"
-         style="stop-color:#a9aaa7;stop-opacity:1.0000000;" />
-      <stop
-         id="stop2218"
-         offset="1.0000000"
-         style="stop-color:#676964;stop-opacity:1.0000000;" />
-    </linearGradient>
-    <linearGradient
-       id="linearGradient2224">
-      <stop
-         id="stop2226"
-         offset="0.0000000"
-         style="stop-color:#32342f;stop-opacity:0.54639173;" />
-      <stop
-         id="stop2228"
-         offset="1"
-         style="stop-color:#32342f;stop-opacity:0;" />
-    </linearGradient>
-    <linearGradient
-       id="linearGradient2238"
-       inkscape:collect="always">
-      <stop
-         id="stop2240"
-         offset="0"
-         style="stop-color:#ffffff;stop-opacity:1;" />
-      <stop
-         id="stop2242"
-         offset="1"
-         style="stop-color:#ffffff;stop-opacity:0;" />
-    </linearGradient>
-    <linearGradient
-       inkscape:collect="always"
-       xlink:href="#linearGradient2667"
-       id="linearGradient2673"
-       gradientTransform="matrix(1.236157,0,0,0.896051,-1.08182,2.830699)"
-       x1="11.492236"
-       y1="1.6537577"
-       x2="17.199417"
-       y2="26.729263"
-       gradientUnits="userSpaceOnUse" />
-    <linearGradient
-       id="linearGradient2667">
-      <stop
-         style="stop-color:#ffffff;stop-opacity:1.0000000;"
-         offset="0.0000000"
-         id="stop2669" />
-      <stop
-         style="stop-color:#fcfcff;stop-opacity:0.0000000;"
-         offset="1.0000000"
-         id="stop2671" />
-    </linearGradient>
-    <linearGradient
-       id="linearGradient5176">
-      <stop
-         style="stop-color:#a2a59c;stop-opacity:1.0000000;"
-         offset="0.0000000"
-         id="stop5178" />
-      <stop
-         style="stop-color:#535750;stop-opacity:1.0000000;"
-         offset="1.0000000"
-         id="stop5180" />
-    </linearGradient>
-    <linearGradient
-       id="linearGradient4254">
-      <stop
-         id="stop4256"
-         offset="0.0000000"
-         style="stop-color:#616161;stop-opacity:1.0000000;" />
-      <stop
-         id="stop4258"
-         offset="1.0000000"
-         style="stop-color:#a0a0a0;stop-opacity:1.0000000;" />
-    </linearGradient>
-    <linearGradient
-       id="linearGradient6447"
-       inkscape:collect="always">
-      <stop
-         id="stop6449"
-         offset="0"
-         style="stop-color:#777973;stop-opacity:1;" />
-      <stop
-         id="stop6451"
-         offset="1"
-         style="stop-color:#777973;stop-opacity:0;" />
-    </linearGradient>
-    <linearGradient
-       y2="609.50507"
-       x2="302.85715"
-       y1="366.64789"
-       x1="302.85715"
-       gradientTransform="matrix(2.774389,0,0,1.969706,-1892.179,-872.8854)"
-       gradientUnits="userSpaceOnUse"
-       id="linearGradient5027"
-       xlink:href="#linearGradient5048"
-       inkscape:collect="always" />
-    <linearGradient
-       id="linearGradient5048">
-      <stop
-         id="stop5050"
-         offset="0"
-         style="stop-color:black;stop-opacity:0;" />
-      <stop
-         style="stop-color:black;stop-opacity:1;"
-         offset="0.5"
-         id="stop5056" />
-      <stop
-         id="stop5052"
-         offset="1"
-         style="stop-color:black;stop-opacity:0;" />
-    </linearGradient>
-    <radialGradient
-       r="117.14286"
-       fy="486.64789"
-       fx="605.71429"
-       cy="486.64789"
-       cx="605.71429"
-       gradientTransform="matrix(2.774389,0,0,1.969706,-1891.633,-872.8854)"
-       gradientUnits="userSpaceOnUse"
-       id="radialGradient5029"
-       xlink:href="#linearGradient5060"
-       inkscape:collect="always" />
-    <linearGradient
-       id="linearGradient5060"
-       inkscape:collect="always">
-      <stop
-         id="stop5062"
-         offset="0"
-         style="stop-color:black;stop-opacity:1;" />
-      <stop
-         id="stop5064"
-         offset="1"
-         style="stop-color:black;stop-opacity:0;" />
-    </linearGradient>
-    <radialGradient
-       r="117.14286"
-       fy="486.64789"
-       fx="605.71429"
-       cy="486.64789"
-       cx="605.71429"
-       gradientTransform="matrix(-2.774389,0,0,1.969706,112.7623,-872.8854)"
-       gradientUnits="userSpaceOnUse"
-       id="radialGradient5031"
-       xlink:href="#linearGradient5060"
-       inkscape:collect="always" />
-    <inkscape:perspective
-       id="perspective79"
-       inkscape:persp3d-origin="24 : 16 : 1"
-       inkscape:vp_z="48 : 24 : 1"
-       inkscape:vp_y="0 : 1000 : 0"
-       inkscape:vp_x="0 : 24 : 1"
-       sodipodi:type="inkscape:persp3d" />
-  </defs>
-  <sodipodi:namedview
-     id="base"
-     pagecolor="#ffffff"
-     bordercolor="#666666"
-     borderopacity="1.0"
-     inkscape:pageopacity="0.0"
-     inkscape:pageshadow="2"
-     inkscape:zoom="12.4375"
-     inkscape:cx="24"
-     inkscape:cy="24"
-     inkscape:current-layer="layer1"
-     showgrid="true"
-     inkscape:grid-bbox="true"
-     inkscape:document-units="px"
-     inkscape:window-width="1440"
-     inkscape:window-height="850"
-     inkscape:window-x="0"
-     inkscape:window-y="0"
-     inkscape:window-maximized="1" />
-  <metadata
-     id="metadata3824">
-    <rdf:RDF>
-      <cc:Work
-         rdf:about="">
-        <dc:format>image/svg+xml</dc:format>
-        <dc:type
-           rdf:resource="http://purl.org/dc/dcmitype/StillImage" />
-        <dc:title>tkcon</dc:title>
-        <dc:date>23 Jan 2010</dc:date>
-        <dc:creator>
-          <cc:Agent>
-            <dc:title>Pat Thoyts</dc:title>
-          </cc:Agent>
-        </dc:creator>
-        <dc:description>Tcl feather icon blended with the console icon fron the tango theme icon package.</dc:description>
-        <dc:contributor>
-          <cc:Agent>
-            <dc:title>Pat Thoyts, The Tango Project</dc:title>
-          </cc:Agent>
-        </dc:contributor>
-        <cc:license
-           rdf:resource="http://creativecommons.org/licenses/publicdomain/" />
-      </cc:Work>
-      <cc:License
-         rdf:about="http://creativecommons.org/licenses/publicdomain/">
-        <cc:permits
-           rdf:resource="http://creativecommons.org/ns#Reproduction" />
-        <cc:permits
-           rdf:resource="http://creativecommons.org/ns#Distribution" />
-        <cc:permits
-           rdf:resource="http://creativecommons.org/ns#DerivativeWorks" />
-      </cc:License>
-    </rdf:RDF>
-  </metadata>
-  <g
-     id="layer1"
-     inkscape:label="Layer 1"
-     inkscape:groupmode="layer">
-    <g
-       inkscape:label="Layer 1"
-       id="layer1-1"
-       transform="matrix(0.96714517,0,0,0.96714517,0.5782736,3.6615871)">
-      <g
-         transform="matrix(0.02454499,0,0,0.02086758,46.14369,39.34109)"
-         id="g5022">
-        <rect
-           style="opacity:0.40206185;color:#000000;fill:url(#linearGradient5027);fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:1;marker:none;visibility:visible;display:inline;overflow:visible"
-           id="rect4173"
-           width="1339.6335"
-           height="478.35718"
-           x="-1559.2523"
-           y="-150.69685" />
-        <path
-           style="opacity:0.40206185;color:#000000;fill:url(#radialGradient5029);fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:1;marker:none;visibility:visible;display:inline;overflow:visible"
-           d="m -219.61876,-150.68038 c 0,0 0,478.33079 0,478.33079 142.874166,0.90045 345.40022,-107.16966 345.40014,-239.196175 0,-132.026537 -159.436816,-239.134595 -345.40014,-239.134615 z"
-           id="path5058"
-           sodipodi:nodetypes="cccc" />
-        <path
-           sodipodi:nodetypes="cccc"
-           id="path5018"
-           d="m -1559.2523,-150.68038 c 0,0 0,478.33079 0,478.33079 -142.8742,0.90045 -345.4002,-107.16966 -345.4002,-239.196175 0,-132.026537 159.4368,-239.134595 345.4002,-239.134615 z"
-           style="opacity:0.40206185;color:#000000;fill:url(#radialGradient5031);fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:1;marker:none;visibility:visible;display:inline;overflow:visible" />
-      </g>
-      <rect
-         ry="4.8517079"
-         rx="4.8517075"
-         y="3.5015533"
-         x="1.5026338"
-         height="38.998734"
-         width="44.996037"
-         id="rect1316"
-         style="fill:url(#linearGradient2212);fill-opacity:1;fill-rule:evenodd;stroke:url(#linearGradient2220);stroke-width:0.99999946;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none;stroke-dashoffset:0" />
-      <rect
-         ry="1.6452144"
-         rx="1.645215"
-         y="7.4827089"
-         x="5.4962788"
-         height="29.022322"
-         width="37.088005"
-         id="rect1314"
-         style="fill:url(#linearGradient2204);fill-opacity:1;fill-rule:evenodd;stroke:url(#linearGradient4260);stroke-width:0.99495775;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none;stroke-dashoffset:0" />
-      <g
-         style="opacity:0.25568183"
-         id="g2286">
-        <path
-           style="fill:none;stroke:#181f10;stroke-width:1.00072134;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
-           d="m 8.0152033,11.500361 31.9789417,0"
-           id="path1345" />
-        <path
-           id="path2264"
-           d="m 8.0152033,13.500361 31.9789417,0"
-           style="fill:none;stroke:#181f10;stroke-width:1.00072134;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none" />
-        <path
-           style="fill:none;stroke:#181f10;stroke-width:1.00072134;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
-           d="m 8.0152033,15.500361 31.9789417,0"
-           id="path2266" />
-        <path
-           id="path2268"
-           d="m 8.0152033,17.500361 31.9789417,0"
-           style="fill:none;stroke:#181f10;stroke-width:1.00072134;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none" />
-        <path
-           style="fill:none;stroke:#181f10;stroke-width:1.00072134;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
-           d="m 8.0152033,19.500361 31.9789417,0"
-           id="path2270" />
-        <path
-           id="path2272"
-           d="m 8.0152033,21.500361 31.9789417,0"
-           style="fill:none;stroke:#181f10;stroke-width:1.00072134;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none" />
-        <path
-           style="fill:none;stroke:#181f10;stroke-width:1.00072134;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
-           d="m 8.0152033,23.500361 31.9789417,0"
-           id="path2274" />
-        <path
-           id="path2276"
-           d="m 8.0152033,25.500361 31.9789417,0"
-           style="fill:none;stroke:#181f10;stroke-width:1.00072134;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none" />
-        <path
-           style="fill:none;stroke:#181f10;stroke-width:1.00072134;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
-           d="m 8.0152033,27.500361 31.9789417,0"
-           id="path2278" />
-        <path
-           id="path2280"
-           d="m 8.0152033,29.500361 31.9789417,0"
-           style="fill:none;stroke:#181f10;stroke-width:1.00072134;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none" />
-        <path
-           style="fill:none;stroke:#181f10;stroke-width:1.00072134;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none"
-           d="m 8.0152033,31.500361 31.9789417,0"
-           id="path2282" />
-        <path
-           id="path2284"
-           d="m 8.0152033,33.500361 31.9789417,0"
-           style="fill:none;stroke:#181f10;stroke-width:1.00072134;stroke-linecap:butt;stroke-linejoin:miter;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none" />
-      </g>
-      <rect
-         ry="3.7910469"
-         rx="3.7910469"
-         y="4.5007114"
-         x="2.5542557"
-         height="37.000587"
-         width="42.945141"
-         id="rect2232"
-         style="opacity:0.76373626;fill:none;stroke:url(#linearGradient2244);stroke-width:0.99999946;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none;stroke-dashoffset:0" />
-      <path
-         sodipodi:nodetypes="ccccccccccccc"
-         id="text1340"
-         d="m 11.625,20.679392 0,-3.054392 8.984828,4.060794 0,1.855919 -8.984828,4.087434 0,-3.045318 6.964396,-1.853858 L 11.625,20.679392 z m 18.892635,10.02636 0,1.974196 -10.903406,0 0,-1.974196 10.903406,0"
-         style="font-size:18.58501053px;font-style:normal;font-variant:normal;font-weight:bold;font-stretch:normal;text-align:start;line-height:125%;writing-mode:lr-tb;text-anchor:start;fill:#ffffff;fill-opacity:1;stroke:#6ed66e;stroke-width:1pt;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:0.2786885;font-family:Bitstream Vera Sans Mono" />
-      <path
-         id="path2443"
-         d="M 7.625388,8 C 7.102102,8 6.05153,8.190188 6.05153,9.0259761 L 6.16958,25.542519 C 23.841567,24.579133 20.294433,17.286426 42,13.633318 L 41.937264,9.2913791 C 41.859002,8.1662868 41.397947,8.0594548 40.327115,8.066071 L 7.625388,8 z"
-         style="opacity:0.53142856;fill:url(#linearGradient2673);fill-opacity:1;fill-rule:evenodd;stroke:none"
-         sodipodi:nodetypes="ccccccc" />
-      <rect
-         ry="0.11773217"
-         rx="0.11773217"
-         y="8.9805145"
-         x="6.9894562"
-         height="26.057468"
-         width="34.026031"
-         id="rect1340"
-         style="opacity:0.71428576;fill:none;stroke:#000000;stroke-width:1.99999917;stroke-linecap:round;stroke-linejoin:round;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none;stroke-dashoffset:0" />
-      <rect
-         ry="0.56022596"
-         rx="0.35819405"
-         y="37.514935"
-         x="35.485569"
-         height="2.9590063"
-         width="4.0200734"
-         id="rect5025"
-         style="fill:url(#radialGradient6453);fill-opacity:1;fill-rule:evenodd;stroke:url(#linearGradient5719);stroke-width:1.00000119;stroke-linecap:round;stroke-linejoin:miter;stroke-miterlimit:4;stroke-opacity:1;stroke-dasharray:none;stroke-dashoffset:0" />
-      <rect
-         ry="0.56022543"
-         rx="0.56022543"
-         y="38"
-         x="32"
-         height="2"
-         width="2"
-         id="rect6458"
-         style="fill:#93d94c;fill-opacity:1;fill-rule:evenodd;stroke:none" />
-      <path
-         transform="translate(4.375,-0.0625)"
-         d="m 28.875,38.75 c 0,0.31066 -0.25184,0.5625 -0.5625,0.5625 -0.31066,0 -0.5625,-0.25184 -0.5625,-0.5625 0,-0.31066 0.25184,-0.5625 0.5625,-0.5625 0.31066,0 0.5625,0.25184 0.5625,0.5625 z"
-         sodipodi:ry="0.5625"
-         sodipodi:rx="0.5625"
-         sodipodi:cy="38.75"
-         sodipodi:cx="28.3125"
-         id="path2300"
-         style="color:#000000;fill:#ffffff;fill-opacity:1;fill-rule:nonzero;stroke:none;stroke-width:1;marker:none;visibility:visible;display:inline;overflow:visible"
-         sodipodi:type="arc" />
-    </g>
-    <g
-       transform="matrix(0.20483461,0.08623714,-0.08976737,0.19677918,-24.266321,-112.46608)"
-       id="layer1-8"
-       inkscape:label="Layer 1"
-       style="opacity:0.78632479">
-      <g
-         transform="matrix(0.9671783,0,0,0.9671783,10.08245,12.003966)"
-         id="g2392">
-        <path
-           style="fill:#3465a4;fill-opacity:1;fill-rule:evenodd;stroke:none;display:inline"
-           d="m 499.58925,374.01397 c 0.3816,23.33209 -0.31077,46.41243 -20.5,68.34375 l -0.75,0.84375 1.125,0 8.25,0.125 c -13.4055,27.88641 -22.12748,55.6937 -41.40625,83.46875 l -0.6875,1 1.1875,-0.21875 10.1875,-1.9375 c -7.2169,18.31031 -19.55758,30.43279 -32.9375,34.5 -3.6826,-51.56863 22.05226,-97.08706 43.90625,-142.46875 0.0201,-0.0417 0.0424,-0.0833 0.0625,-0.125 l -0.8125,-0.5625 c -35.78567,40.01351 -51.9112,96.44881 -58,143 -12.12846,-6.84723 -16.17079,-15.9131 -20.28125,-28.25 l 8.46875,3.5625 0.875,0.375 -0.1875,-0.9375 c -6.43634,-28.61973 3.55648,-49.16246 13.25,-76.15625 l 6.96875,4.65625 0.8125,0.5625 -0.0312,-0.96875 c -0.546,-21.93119 14.22103,-43.94781 33.8125,-63.59375 l 2.71875,7.28125 0.375,0.96875 0.53125,-0.90625 5.96875,-9.9375 0.0312,-0.0625 c 9.85187,-13.56952 20.26746,-17.98682 37.0625,-22.5625 z"
-           id="path4426" />
-        <path
-           style="fill:#eeeeec;fill-opacity:1;fill-rule:evenodd;stroke:#eff1cb;stroke-width:1px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1;display:inline"
-           d="m 499.59927,374.00103 c -16.73773,4.56621 -27.27964,9.03227 -37.11238,22.57544 l -0.0312,0.0625 -5.96875,9.9375 -0.53125,0.90625 -0.375,-0.96875 -2.71875,-7.28125 c -19.59147,19.64594 -34.3585,41.66256 -33.8125,63.59375 l 0.0312,0.96875 -0.8125,-0.5625 -6.96875,-4.65625 c -9.69352,26.99379 -19.68634,47.53652 -13.25,76.15625 l 0.1875,0.9375 -0.875,-0.375 -8.375,-3.53125 c 0.027,0.17148 0.0656,0.33046 0.0937,0.5 4.0491,12.05775 8.1457,20.97338 20.09375,27.71875 0.47162,-3.60569 0.99723,-7.28794 1.59375,-11 -14.59059,-34.16414 -1.92582,-59.2811 3.84375,-81.875 l 8.875,5.125 c -1.22592,-21.15548 11.19424,-43.97039 27.34375,-63.875 l 4.6875,8.25 c 12.00875,-24.70084 21.50637,-34.61575 44.08113,-42.60669 z"
-           id="path7600"
-           sodipodi:nodetypes="ccccccccccccccccccccccc" />
-        <path
-           id="path2177"
-           d="m 505.90485,365.73272 -0.53125,0.0937 c -19.6846,3.43351 -38.95545,10.66619 -47.40625,27.96875 l -3.5625,-6.21875 -0.3125,-0.5625 -0.46875,0.46875 c -9.69371,9.27588 -20.10051,21.29056 -27.78125,33.09375 -7.20972,11.07937 -11.99173,21.92309 -11.46875,30.21875 l -5.03125,-6.28125 -0.5,-0.625 -0.34375,0.71875 c -6.12393,13.22899 -12.30431,29.50407 -16,44.4375 -3.504,14.15885 -4.75881,27.04706 -1.5,35.15625 l -8.28125,-4.8125 -0.6875,-0.40625 -0.0625,0.8125 c -1.55911,23.61702 8.0382,34.89333 19.0625,45.78125 l -9.1875,2.28125 -1.84375,0.46875 1.84375,0.5 c 5.27453,1.42933 10.27523,3.0386 13.75,5.71875 3.47477,2.68015 5.47098,6.36582 4.875,12.25 l 0,0.0312 0,25.5 0,0.15625 0.0937,0.125 11.5,16.5 0.90625,1.3125 0,-1.59375 0,-38.875 c 1.52181,-6.5439 3.30807,-11.04795 5.875,-14.03125 2.56693,-2.9833 5.90711,-4.51517 10.6875,-5.09375 l 1.71875,-0.21875 -1.5625,-0.71875 -6.0625,-2.875 c 14.45549,-8.70374 30.64505,-30.0393 34.90625,-50.3125 l 0.1875,-0.8125 -0.78125,0.21875 -7.5,2.03125 c 6.66299,-6.25626 13.37517,-18.65154 19.75,-33.09375 6.76105,-15.3172 13.07372,-32.66468 18.25,-46.53125 l 0.28125,-0.75 -0.78125,0.0625 -5.78125,0.40625 c 7.1471,-7.58581 11.11953,-20.1129 13.0625,-33.34375 2.02227,-13.77082 1.88035,-28.27105 0.75,-38.625 l -0.0625,-0.53125 z m -5.4375,8.28125 c 0.3816,23.33209 -0.31077,46.41243 -20.5,68.34375 l -0.75,0.84375 1.125,0 8.25,0.125 c -13.4055,27.88641 -22.12748,55.6937 -41.40625,83.46875 l -0.6875,1 1.1875,-0.21875 10.1875,-1.9375 c -7.2169,18.31031 -19.55758,30.43279 -32.9375,34.5 -3.6826,-51.56863 22.05226,-97.08706 43.90625,-142.46875 0.0201,-0.0417 0.0424,-0.0833 0.0625,-0.125 l -0.8125,-0.5625 c -35.78567,40.01351 -51.9112,96.44881 -58,143 -12.12846,-6.84723 -16.17079,-15.9131 -20.28125,-28.25 l 8.46875,3.5625 0.875,0.375 -0.1875,-0.9375 c -6.43634,-28.61973 3.55648,-49.16246 13.25,-76.15625 l 6.96875,4.65625 0.8125,0.5625 -0.0312,-0.96875 c -0.546,-21.93119 14.22103,-43.94781 33.8125,-63.59375 l 2.71875,7.28125 0.375,0.96875 0.53125,-0.90625 5.96875,-9.9375 0.0312,-0.0625 c 9.85187,-13.56952 20.26746,-17.98682 37.0625,-22.5625 z"
-           style="fill:#000000;fill-opacity:1;fill-rule:evenodd;stroke:none;display:inline" />
-      </g>
-    </g>
-  </g>
-</svg>
diff --git a/tkcon/icons/tkcon-small48.png b/tkcon/icons/tkcon-small48.png
deleted file mode 100644
index 8797a76..0000000
--- a/tkcon/icons/tkcon-small48.png
+++ /dev/null
diff --git a/tkcon/index.html b/tkcon/index.html
deleted file mode 100755
index 7c53084..0000000
--- a/tkcon/index.html
+++ /dev/null
@@ -1,70 +0,0 @@
-<HTML>
-<HEAD>
-<TITLE>Enhanced Tk Console: tkcon</TITLE>
-<LINK REL="STYLESHEET" TYPE="text/css" HREF="docs/style.css">
-</HEAD>
-
-<BODY BGCOLOR=#FFFFFF>
-
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=2 CELLPADDING=0 BGCOLOR=#000000><TR><TD>
-<!-- start header info -->
-<TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=#FFFFFF>
-<TR>
-<TD><FONT SIZE=+3><B>Enhanced Tk Console: tkcon</B></FONT></TD>
-<TD align=right>
-<A href="http://sourceforge.net/projects/tkcon/"> 
-<IMG src="http://sourceforge.net/sflogo.php?group_id=11462&type=1" width="88"
-height="31" border="0" alt="SourceForge Logo"></A>
-</TD>
-</TR>
-</TABLE>
-<!-- end header info -->
-
-</TD></TR><TR><TD>
-
-<TABLE WIDTH=100% BORDER=1 CELLSPACING=2 CELLPADDING=2 BGCOLOR=#DDDDDD>
-<TR>
-
-<TH><A HREF="docs/index.html">Documentation</A></TH>
-<TH><A HREF="docs/demopic.png">Screenshot</A></TH>
-<TH><A HREF="docs/plugin.html">Online Demo!</A> (requires
-<A HREF="http://www.tcl.tk/software/plugin/">Tk plugin</A>)</TH>
-<TH><A HREF="docs/license.terms">License</A> </TH>
-
-</TR><TR>
-
-<TD COLSPAN=4>
-<A
-HREF="http://sourceforge.net/project/showfiles.php?group_id=11462"><B>tkcon Release Archives</B></A>
-
-<P>
-<B><CODE STYLE="color: #990033;">Latest Release is 2.5 (2009-02-26)</CODE></B>
-</P>
-<P>
-You can grab the <A
-HREF="http://tkcon.cvs.sourceforge.net/tkcon/tkcon/tkcon.tcl?rev=HEAD">latest sources</A> from the
-<A HREF="http://tkcon.cvs.sourceforge.net/tkcon/tkcon/"><B>tkcon CVS repository</B></A>.
-</P>
-</TD>
-
-</TR>
-</TABLE>
-
-</TD></TR></TABLE>
-
-<P>
-tkcon is a replacement for the standard console that comes with Tk (on
-Windows/Mac, but also works on Unix).  The console itself provides
-<i>many</i> more features than the standard console.  tkcon works on all
-platforms where Tcl/Tk is available.  It is meant primarily to aid one when
-working with the little details inside tcl and tk, giving Unix users the GUI
-console provided by default in the Mac and Windows Tk.  It's also not a bad
-replacement for the default MS-DOS shell (although it needs lots of fine
-tuning).
-</P>
-
-<HR NOSHADE SIZE=1>
-<ADDRESS><FONT SIZE=2>&copy; Jeffrey Hobbs (jeff at hobbs dot org)</FONT></ADDRESS>
-
-</BODY>
-</HTML>
diff --git a/tkcon/install-desktop-menu.sh b/tkcon/install-desktop-menu.sh
deleted file mode 100755
index 1e4c4eb..0000000
--- a/tkcon/install-desktop-menu.sh
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/bin/sh
-#
-# To install a tkcon entry into a FreeDesktop.org compatible menu system such
-# as used by GNOME, KDE or most modern X11 desktop environments the tkcon.desktop
-# and icons/* files are installed. This should be done using the xdg-desktop-menu
-# utility and xdg-icon-resource utility from the xdg-utils package. See
-# http://portland.freedesktop.org/xdg-utils-1.0/ for further details.
-# 
-
-PROG_XDG_DESKTOP_MENU=`which xdg-desktop-menu`
-PROG_XDG_ICON_RESOURCE=`which xdg-icon-resource`
-
-ICONFILE=icons/tkcon-small48.png
-
-if [ -x $PROG_XDG_DESKTOP_MENU -a -x PROG_XDG_ICON_RESOURCE ]
-then
-    $PROG_XDG_DESKTOP_MENU install tkcon-console.desktop
-    $PROG_XDG_ICON_RESOURCE install --size 48 $ICONFILE tkcon-icon
-else
-    [ -d $HOME/.local/share/applications ] || mkdirhier $HOME/.local/share/applications
-    [ -d $HOME/.local/share/icons ] || mkdirhier $HOME/.local/share/icons
-    install tkcon-console.desktop $HOME/.local/share/applications/tkcon-console.desktop
-    install $ICONFILE $HOME/.local/share/icons/tkcon-icon.png
-fi
-
-
diff --git a/tkcon/pkgIndex.tcl b/tkcon/pkgIndex.tcl
deleted file mode 100644
index 431442a..0000000
--- a/tkcon/pkgIndex.tcl
+++ /dev/null
@@ -1,11 +0,0 @@
-# pkgIndex.tcl to use tkcon as a package via 'package require tkcon'
-#
-# 'tkcon show' will do all that is necessary to display tkcon
-#
-# Defaults to:
-#  * the main interp as the "slave"
-#  * hiding tkcon when you click in the titlebar [X]
-#  * using '.tkcon' as the root toplevel
-#  * not displaying itself at 'package require' time
-#
-package ifneeded tkcon 2.7 [list source [file join $dir tkcon.tcl]]
diff --git a/tkcon/tclconfig/ChangeLog b/tkcon/tclconfig/ChangeLog
deleted file mode 100644
index 9504def..0000000
--- a/tkcon/tclconfig/ChangeLog
+++ /dev/null
@@ -1,1003 +0,0 @@
-2016-03-11 Sean Woods <yoda@etoyoc.com>
-  *tcl.m4 Fixed the search for Tcl and Wish shells under MinGW. Static builds and threaded builds
-  get an "s" or "t" added to the name.
-
-2015-08-28  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4:  Rfe [00189c4afc]: Allow semi-static UCRT build on
-	Windows with VC 14.0
-
-2013-10-08  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4:  Bug [172223e008]: Wrong filename in
-	--disable-shared compile on MinGW
-
-2013-10-04  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4:  stub library is no longer linked with msvcrt??.dll.
-
-2013-10-01  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4:  Workaround for MinGW bug #2065:  "gcc --shared" links
-	with libgcc_s_dw2-1.dll when using 64-bit division in C
-
-2013-07-04  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4:  Bug [3324676]: AC_PROG_INSTALL incompat,
-	Bug [3606445]: Unneeded -DHAVE_NO_SEH=1 when not building on Windows
-
-2013-07-02  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4:  Bug [32afa6e256]: dirent64 check is incorrect in tcl.m4
-	(thanks to Brian Griffin)
-
-2013-06-20  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4:  Use X11/Xlib.h for checking where X11 can be found
-	in stead of X11/XIntrinsic.h. Suggested by Pietro Cerutti.
-
-2013-06-04  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4: Eliminate NO_VIZ macro as current
-	zlib uses HAVE_HIDDEN in stead. One more last-moment
-	fix for FreeBSD by Pietro Cerutti
-
-2013-05-19  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4: Fix for FreeBSD, and remove support for old
-	FreeBSD versions. Patch by Pietro Cerutti
-
-2013-03-12  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4: Patch by Andrew Shadura, providing better support for
-	* three architectures they have in Debian.
-
-2012-08-07  Stuart Cassoff  <stwo@users.sourceforge.net>
-
-	* tcl.m4: Added "-DNDEBUG" to CFLAGS_DEFAULT
-	when building with --disable-symbols.
-
-2012-08-07  Stuart Cassoff  <stwo@users.sourceforge.net>
-
-	* tcl.m4: [Bug 3555058]: Checkin [30736d63f0] broke
-	CFLAGS_DEFAULT, LDFLAGS_DEFAULT
-
-2012-08-07  Stuart Cassoff  <stwo@users.sourceforge.net>
-
-	* tcl.m4: [Bug 3511806]: Checkin [30736d63f0] broke CFLAGS
-
-2012-08-07  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4: [Bug 3511806]: Checkin [30736d63f0] broke CFLAGS
-
-2012-07-25  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4: My previous commit (2012-04-03) broke the ActiveTcl
-	build for AMD64, because of the quotes in "C:/<path>/AMD64/cl.exe".
-	It turns out that the AC_TRY_COMPILE macro cannot handle that.
-
-2012-07-22  Stuart Cassoff  <stwo@users.sourceforge.net>
-
-	* tcl.m4: Tidy: consistency, spelling, phrasing, whitespace.
-	No functional change.
-
-2012-04-03  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4: [Bug 3511806] Compiler checks too early
-	This change allows to build the cygwin and mingw32 ports of
-	Tcl/Tk extensions to build out-of-the-box using a native or
-	cross-compiler, e.g. on Cygwin, Linux or Darwin.
-
-2011-04-02  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* install-sh: Fix issue with library stripping in install-sh
-	 (backported from kevin_walzer's patch from Tcl 8.6 trunk)
-
-2011-04-05  Andreas Kupries  <andreask@activestate.com>
-
-	* tcl.m4: Applied patch by Jeff Lawson. Nicer error message when
-	  tclConfig.sh was not found.
-
-2010-12-15  Stuart Cassoff  <stwo@users.sourceforge.net>
-
-	* install-sh: Upgrade to newer install-sh and use it.
-	* tcl.m4:
-
-2010-12-14  Stuart Cassoff  <stwo@users.sourceforge.net>
-
-	* tcl.m4: Better building on OpenBSD.
-
-2010-12-14  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4: when using gcc, don't try to determine Win64 SDK
-
-2010-12-12  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4: Determine correctly a cross-compiler-windres
-
-2010-11-23  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4: add some cross-compile support, borrowed from Tcl 8.6
-
-2010-09-16  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: correct HP-UX LDFLAGS (only used when building big shell)
-
-2010-09-14  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: add extra if check for .manifest file generation
-	Add notice about package name and version being built.
-
-2010-09-09  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4: [FREQ #3058486] TEA_LOAD_CONFIG doesn't set all BUILD_ vars
-	Slightly related: defining BUILD_$1 on all platforms - not only win -
-	allows the -fvisibility feature to be used in extensions as well, at
-	least if you compile against tcl >= 8.5.
-
-2010-08-26  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: ensure safe quoting for autoheader usage
-
-2010-08-19  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: add TEA_ADD_CLEANFILES macro to make adding cleanfiles
-	easier, and add *.exp to CLEANFILES Windows default.
-	(TEA_MAKE_LIB): Enhanced to check for MSVC that requires manifests
-	and auto-embed it into proj DLL via MAKE_SHARED_LIB.  Also define
-	VC_MANIFEST_EMBED_DLL and VC_MANIFEST_EMBED_EXE that do the same
-	magic in case it is needed for extended TEA projects.
-
-2010-08-16  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	*** Bump to TEA_VERSION 3.9 ***
-	If upgrading from TEA_VERSION 3.8, copy over tcl.m4, change
-	TEA_INIT to use 3.9 and reconfigure (ac-2.59+).
-	BUILD_${PACKAGE_NAME} will be auto-defined on Windows for
-	correct setting of TCL_STORAGE_CLASS.
-	TEA_LOAD_CONFIG users should remove the SHLIB_LD_LIBS setting done
-	in configure.in (LIBS will be automagically populated by
-	TEA_LOAD_CONFIG).
-	TEA_EXPORT_CONFIG has been added for ${pkg}Config.sh creators
-	SHLIB_LD_FLAGS was deprecated a while ago, remove it if it is
-	still in your Makefile.in.
-
-	* tcl.m4: add /usr/lib64 to set of auto-search dirs. [Bug 1230554]
-	Auto-define BUILD_$PACKAGE_NAME so users don't need to.  This
-	needs to correspond with $pkg.h define magic for TCL_STORAGE_CLASS.
-	Auto-define CLEANFILES.  Users can expand it.
-	(SHLIB_LD_LIBS): define to '${LIBS}' default and change it only if
-	necessary.  Platforms not using this may simply not work or have
-	very funky linkers.
-	(TEA_LOAD_CONFIG): When loading config for another extension,
-	auto-add stub libraries found with TEA_ADD_LIBS.  Eases
-	configure.in for modules like itk and img::*.
-	(TEA_EXPORT_CONFIG): Add standardized function for exporting a
-	${pkg}Config.sh.  See use by img::* and itcl.
-
-2010-08-12  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	*** Bump to TEA_VERSION 3.8 ***
-	If upgrading from TEA_VERSION 3.7, copy over tcl.m4, change
-	TEA_INIT to use 3.8 and reconfigure (ac-2.59+).
-	No other changes should be necessary.
-
-	* tcl.m4: remove more vestigial bits from removed platforms.
-	Add back SCO_SV-3.2*.
-	Remove use of DL_LIBS and DL_OBJS and related baggage - these are
-	only needed by the core to support 'load'.
-	Allow for macosx in TEA_ADD_SOURCES.
-	Correct check for found_xincludes=no in TEA_PATH_UNIX_X.
-
-2010-08-11  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: remove the following old platform configurations:
-	UNIX_SV*|UnixWare-5*, SunOS-4.*, SINIX*5.4*, SCO_SV-3.2*<readded>,
-	OSF1-1.*, NEXTSTEP-*, NetBSD-1.*|FreeBSD-[[1-2]].*, MP-RAS-*,
-	IRIX-5.*, HP-UX-*.08.*|HP-UX-*.09.*|HP-UX-*.10.*, dgux*,
-	BSD/OS-2.1*|BSD/OS-3*
-	(AIX): drop AIX-pre4 support and use of ldAix, use -bexpall/-brtl
-
-2010-07-05  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4: [Patch #1055668] removal of exported internals from
-	tclInt.h (EXTERN macro)
-
-2010-04-14  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4    - Backport a lot of quoting fixes from tcl8.6/unix/tcl.m4
-	            - Fix determination of CYGPATH for CYGWIN
-	  With those fixes, itcl and tdbc compile fine with CYGWIN
-
-2010-04-06  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* install-sh         [Bug 2982540] configure and install* script files
-	                     should always have LF
-
-2010-02-19  Stuart Cassoff  <stwo@users.sourceforge.net>
-
-	* tcl.m4: Correct compiler/linker flags for threaded builds on
-	OpenBSD.
-
-2010-01-19  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4: Detect CYGWIN variant: win32 or unix
-
-2010-01-03  Donal K. Fellows  <dkf@users.sf.net>
-
-	* unix/tcl.m4 (TEA_CONFIG_CFLAGS): [Tcl Bug 1636685]: Use the
-	configuration for modern FreeBSD suggested by the FreeBSD porter.
-
-2009-10-22  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4: [Tcl Patch #2883533] tcl.m4 support for Haiku OS
-
-2009-04-27  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_CONFIG_CFLAGS): harden the check to add _r to CC on
-	AIX with threads.
-
-2009-04-10  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Darwin): check for 64-bit TkAqua.
-
-2009-03-26  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tclconfig/tcl.m4: Adapt LDFLAGS and LD_SEARCH_FLAGS
-	together with SHLIB_LD definition to unbreak building on HPUX.
-
-2009-03-20  Andreas Kupries  <andreask@activestate.com>
-
-	* tclconfig/tcl.m4: Changed SHLIB_LD definition to unbreak
-	building on HPUX.
-
-2009-03-16  Joe English  <jenglish@users.sourceforge.net>
-
-	* tcl.m4(TEA_PUBLIC_TK_HEADERS): Look at ${TK_INCLUDE_SPEC}
-	(found in tkConfig.sh) when trying to guess where tk.h might be
-	[Patch 1960628].
-
-2009-03-11  Joe English  <jenglish@users.sourceforge.net>
-
-	* tcl.m4: Allow ${SHLIB_SUFFIX} to be overridden at
-	configure-time [Patch 1960628].  Also fix some comment typos,
-	and an uninitialized variable bug-waiting-to-happen.
-
-2008-12-21  Jan Nijtmans  <nijtmans@users.sf.net>
-
-	* tcl.m4: [Bug 2073255] Tcl_GetString(NULL) doesn't crash on HP-UX
-	          (this bug report was for Tcl, but holds for TEA as well.)
-
-2008-12-20  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4: sync with tdbc tcl.m4 changes
-	(SunOS-5.11): Sun cc SHLIB_LD: use LDFLAGS_DEFAULT instead of LDFLAGS
-
-2008-12-02  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	*** Bump to TEA_VERSION 3.7 ***
-
-	* tcl.m4: in private header check, check for <plat>Port.h instead
-	of Int.h to ensure all private headers are available.
-
-2008-11-04  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Darwin): sync TEA_PRIVATE_TK_HEADERS handling of
-	Tk.framework PrivateHeaders with TEA_PRIVATE_TCL_HEADERS.
-
-2008-11-04  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_PATH_TCLCONFIG, TEA_PATH_TKCONFIG): exit with error
-	when tclConfig.sh cannot be found. [Bug #1997760]
-	(TEA_PRIVATE_TCL_HEADERS, TEA_PRIVATE_TK_HEADERS): allow for
-	finding the headers installed in the public areas, e.g. a result of
-	make install-private-headers. [Bug #1631922]
-
-2008-08-12  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Darwin): link shlib with current and compatiblity version
-	flags; look for libX11.dylib when searching for X11 libraries.
-
-2008-06-12  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (SunOS-5.11): fix 64bit amd64 support with gcc & Sun cc.
-
-2008-03-27  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (SunOS-5.1x): fix 64bit support for Sun cc. [Bug 1921166]
-
-2008-02-01  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
-
-	* tcl.m4 (TEA_CONFIG_CFLAGS): Updated to work at least in part with
-	more modern VC versions. Currently just made the linker flags more
-	flexible; more work may be needed.
-
-2007-10-26  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Darwin): add support for 64-bit X11.
-
-2007-10-23  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	*** Tagged tea-3-branch to start TEA 4 development on HEAD ***
-
-2007-09-17  Joe English  <jenglish@users.sourceforge.net>
-
-	* tcl.m4: use '${CC} -shared' instead of 'ld -Bshareable'
-	to build shared libraries on current NetBSDs [Bug 1749251].
-
-2007-09-15  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4: 	replace all direct references to compiler by ${CC} to
-			enable CC overriding at configure & make time.
-	(SunOS-5.1x):	replace direct use of '/usr/ccs/bin/ld' in SHLIB_LD by
-			'cc' compiler driver.
-
-2007-08-08  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: check Ttk dir for Tk private headers (8.5).
-	Add some comments to other bits.
-
-2007-06-25  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_PROG_TCLSH, TEA_PROG_WISH): move where / is added.
-
-2007-06-13  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: fix --with-tkinclude alignment. [Bug 1506111]
-
-2007-06-06  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Darwin): fix 64bit arch removal in fat 32&64bit builds.
-
-2007-05-18  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
-
-	* tcl.m4: Added quoting so that paths with spaces cause fewer
-	problems.
-
-2007-03-07  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Darwin): s/CFLAGS/CPPFLAGS/ in -mmacosx-version-min check.
-
-2007-02-15  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: correct private header check to search in generic subdir
-
-2007-02-09  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	*** Bump to TEA_VERSION 3.6 ***
-
-	* tcl.m4: correct -d to -f
-	(TEA_CONFIG_CFLAGS): SHLIB_SUFFIX is .so on HP ia64 [Bug 1615058]
-
-2007-02-08  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_PRIVATE_TCL_HEADERS, TEA_PRIVATE_TK_HEADERS): check
-	that the dirs actually have private headers. [Bug 1631922]
-
-2007-02-04  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4: add caching to -pipe check.
-
-2007-01-25  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4: integrate CPPFLAGS into CFLAGS as late as possible and
-	move (rather than duplicate) -isysroot flags from CFLAGS to CPPFLAGS to
-	avoid errors about multiple -isysroot flags from some older gcc builds.
-
-2006-01-19  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4: ensure CPPFLAGS env var is used when set. [Bug 1586861]
-	(Darwin): add -isysroot and -mmacosx-version-min flags to CPPFLAGS when
-	present in CFLAGS to avoid discrepancies between what headers configure
-	sees during preprocessing tests and compiling tests.
-
-2006-12-19  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Darwin): --enable-64bit: verify linking with 64bit -arch flag
-	succeeds before enabling 64bit build.
-
-2006-12-16  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Linux): fix previous change to use makefile variable
-	LDFLAGS_DEFAULT instead of LDFLAGS in SHLIB_LD, to ensure linker
-	flags in sampleextension Makefile are picked up.
-
-2006-11-26  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Linux): --enable-64bit support. [Patch 1597389], [Bug 1230558]
-
-2006-08-18  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Darwin): add support for --enable-64bit on x86_64, for
-	universal builds including x86_64 and for use of -mmacosx-version-min
-	instead of MACOSX_DEPLOYMENT_TARGET. For Tk extensions, remove 64-bit
-	arch flags from CFLAGS like in the Tk configure, as neither TkAqua nor
-	TkX11 can be built for 64-bit at present.
-
-2006-03-28  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: []-quote AC_DEFUN functions.
-	(TEA_PATH_TKCONFIG): Fixed Windows-specific check for tkConfig.sh.
-	(TEA_MAKE_LIB): Prepend 'lib' for Windows-gcc configs.
-
-2006-03-07  Joe English  <jenglish@users.sourceforge.net>
-
-	* tcl.m4: Set SHLIB_LD_FLAGS='${LIBS}' on NetBSD,
-	as per the other *BSD variants [Bug 1334613].
-
-2006-01-25  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	*** Bump to TEA version 3.5 ***
-
-	* tcl.m4: keep LD_SEARCH_FLAGS and CC_SEARCH_FLAGS synchronous
-	with core tcl.m4 meaning.
-
-2006-01-24  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Darwin): use makefile variable LDFLAGS_DEFAULT instead of
-	LDFLAGS in SHLIB_LD, to ensure linker flags in sampleextension Makefile
-	are picked up. [Bug 1403343]
-
-2006-01-23  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: add C:/Tcl/lib and C:/Progra~1/Tcl/lib dirs to check for
-	*Config.sh on Windows. [Bug 1407544]
-
-2006-01-23  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Darwin): for Tk extensions, remove -arch ppc64 from CFLAGS
-	like in the Tk configure, as neither TkAqua nor TkX11 can be built for
-	64bit at present (no 64bit GUI libraries).
-
-2006-01-22  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: restore system=windows on Windows.
-	Remove error if 'ar' isn't found (it may not be on Windows).
-	Do not add -lxnet or define _XOPEN_SOURCE on HP-UX by default.
-	Ensure the C|LDFLAGS_DEFAULT gets the fully sub'd value at
-	configure time.
-
-2006-01-10  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4: add caching, use AC_CACHE_CHECK instead of AC_CACHE_VAL
-	where possible, consistent message quoting, sync relevant
-	tcl/unix/tcl.m4 HEAD changes and gratuitous formatting differences
-	(notably sunc removal of support for for ancient BSD's, IRIX 4,
-	RISCos and Ultrix by kennykb), Darwin improvements to
-	TEA_LOAD_*CONFIG to make linking work against Tcl/Tk frameworks
-	installed in arbitrary location, change TEA_PROG_* search order
-	(look in *_BIN_DIR parents before *_PREFIX).
-
-2006-01-05  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: add dkf's system config refactor
-
-2006-01-04  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: remove extraneous ' that causes bash 3.1 to choke
-
-2005-12-19  Joe English  <jenglish@users.sourceforge.net>
-
-	* tcl.m4 (TEA_PATH_TCLCONFIG &c): Look for tclConfig.sh &c
-	in ${libdir}, where they are installed by default [Patch #1377407].
-
-2005-12-05  Don Porter  <dgp@users.sf.net>
-
-	* tcl.m4 (TEA_PUBLIC_*_HEADERS):	Better support for finding
-	header files for uninstalled Tcl and Tk.
-
-2005-12-02  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: correctly bump TEA_VERSION var to 3.4
-
-2005-12-01  Daniel Steffen  <das@users.sourceforge.net>
-
-	* unix/tcl.m4 (Darwin): fixed error when MACOSX_DEPLOYMENT_TARGET unset
-
-2005-11-29  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4:  *** Bump to TEA version 3.4 ***
-	Add Windows x64 build support.
-	Remove TEA_PATH_NOSPACE and handle the problem with ""s where
-	necessary - the macro relied on TCLSH_PROG which didn't work for
-	cross-compiles.
-
-2005-11-27  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Darwin): add 64bit support, add CFLAGS to SHLIB_LD to
-	support passing -isysroot in env(CFLAGS) to configure (flag can't
-	be present twice, so can't be in both CFLAGS and LDFLAGS during
-	configure), don't use -prebind when deploying on 10.4.
-	(TEA_ENABLE_LANGINFO, TEA_TIME_HANDLER): add/fix caching.
-
-2005-10-30  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4: fixed two tests for TEA_WINDOWINGSYSTEM = "aqua" that
-	should have been for `uname -s` = "Darwin" instead; added some
-	missing quoting.
-	(TEA_PROG_TCLSH, TEA_PROG_WISH): fix incorrect assumption that
-	install location of tclConfig.sh/tkConfig.sh allows to determine
-	the tclsh/wish install dir via ../bin. Indeed tcl/tk can be
-	configured with arbitrary --libdir and --bindir (independent of
-	prefix) and such a configuration is in fact standard with Darwin
-	framework builds. At least now also check ${TCL_PREFIX}/bin
-	resp. ${TK_PREFIX}/bin for presence of tclsh resp. wish (if tcl/tk
-	have been configured with arbitrary --bindir, this will still not
-	find them, for a general solution *Config.sh would need to contain
-	the values of bindir/libdir/includedir passed to configure).
-
-2005-10-07  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: Fix Solaris 5.10 check and Solaris AMD64 64-bit builds.
-
-2005-10-04  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_PRIVATE_TCL_HEADERS): add / to finish sed macro
-	(TEA_ENABLE_THREADS): don't check for pthread_attr_setstacksize func
-
-2005-09-13  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: *** Update to TEA version 3.3 ***
-	define TEA_WINDOWINGSYSTEM in TEA_LOAD_TKCONFIG.
-	Make --enable-threads the default (users can --disable-threads).
-	Improve AIX ${CC}_r fix to better check existing ${CC} value.
-	Do the appropriate evals to not require the *TOP_DIR_NATIVE vars
-	be set for extensions that use private headers.
-	Make aqua check for Xlib compat headers the same as win32.
-
-2005-07-26  Mo DeJong  <mdejong@users.sourceforge.net>
-
-	* tcl.m4 (TEA_PROG_TCLSH, TEA_BUILD_TCLSH,
-	TEA_PROG_WISH, TEA_BUILD_WISH): Remove
-	TEA_BUILD_TCLSH and TEA_BUILD_WISH because
-	of complaints that it broke the build when
-	only an installed version of Tcl was available
-	at extension build time. The TEA_PROG_TCLSH and
-	TEA_PROG_WISH macros will no longer search the
-	path at all. The build tclsh or installed
-	tclsh shell will now be found by TEA_PROG_TCLSH.
-
-2005-07-24  Mo DeJong  <mdejong@users.sourceforge.net>
-
-	* tcl.m4 (TEA_PROG_TCLSH, TEA_BUILD_TCLSH,
-	TEA_PROG_WISH, TEA_BUILD_WISH):
-	Split confused search for tclsh on PATH and
-	build and install locations into two macros.
-	TEA_PROG_TCLSH and TEA_PROG_WISH search the
-	system PATH for an installed tclsh or wish.
-	The TEA_BUILD_TCLSH and TEA_BUILD_WISH
-	macros determine the name of tclsh or
-	wish in the Tcl or Tk build directory even
-	if tclsh or wish has not yet been built.
-	[Tcl bug 1160114]
-	[Tcl patch 1244153]
-
-2005-06-23  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (TEA_PRIVATE_TK_HEADERS): add ${TK_SRC_DIR}/macosx to
-	TK_INCLUDES when building against TkAqua.
-
-	* tcl.m4 (TEA_PATH_X): fixed missing comma in AC_DEFINE
-
-	* tcl.m4: changes to better support framework builds of Tcl and Tk out
-	of the box: search framework install locations for *Config.sh, and if in
-	presence of a framework build, use the framework's Headers and
-	PrivateHeaders directories for public and private includes. [FR 947735]
-
-2005-06-18  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Darwin): add -headerpad_max_install_names to LDFLAGS to
-	ensure we can always relocate binaries with install_name_tool.
-
-2005-06-04  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (TEA_PATH_X): for TEA_WINDOWINGSYSTEM == aqua, check if xlib
-	compat headers are available in tkheaders location, otherwise add xlib
-	sourcedir to TK_XINCLUDES.
-
-2005-04-25  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4: added AC_DEFINE* descriptions (from core tcl.m4) to allow
-	use with autoheader.
-	(Darwin): added configure checks for recently added linker flags
-	-single_module and -search_paths_first to allow building with older
-	tools (and on Mac OS X 10.1), use -single_module in SHLIB_LD.
-	(TEA_MISSING_POSIX_HEADERS): added caching of dirent.h check.
-	(TEA_BUGGY_STRTOD): added caching (sync with core tcl.m4).
-
-2005-03-24  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_TCL_64BIT_FLAGS): use Tcl header defaults for wide
-	int type only on Windows when __int64 is detected as valid.
-
-2005-03-24  Don Porter  <dgp@users.sf.net>
-
-	* README.txt:	Update reference to "SC_* macros" to "TEA_* macros".
-	* tcl.m4:	Incorporated recent improvements in SC_PATH_TCLCONFIG
-	and SC_PATH_TKCONFIG into TEA_PATH_TCLCONFIG and TEA_PATH_TKCONFIG.
-	Corrected search path in TEA_PATH_CONFIG and added
-	AC_SUBST($1_BIN_DIR) to TEA_LOAD_CONFIG so that packages that load
-	the configuration of another package can know where they loaded
-	it from.
-
-2005-03-18  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_CONFIG_CFLAGS): correct 2005-03-17 change to have
-	variant LD_SEARCH_FLAGS for gcc and cc builds.
-
-	* tcl.m4 (TEA_PROG_TCLSH, TEA_PROG_WISH): correct x-compile check.
-
-2005-03-17  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: Correct gcc build and HP-UX-11.
-
-2005-02-08  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_ADD_LIBS): don't touch lib args starting with -.
-	(TEA_CONFIG_CFLAGS): only define _DLL for CE in shared build.
-	(TEA_MAKE_LIB): set RANLIB* to : on Windows (it's not needed).
-
-2005-02-01  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: redo of 2005-01-27 changes to correctly handle paths
-	with spaces.  Win/CE and Win/64 builds now require a prebuilt
-	tclsh to handle conversion to short pathnames.  This is done in
-	the new TEA_PATH_NOSPACE macro.  For Win/CE|64, make CC just the
-	compiler and move the necessary includes to CFLAGS.
-	(TEA_CONFIG_CFLAGS): Add Solaris 64-bit gcc build support.
-	(TEA_PROG_TCLSH, TEA_PROG_WISH): Allow TCLSH_PROG and WISH_PROG to
-	be set in the env and prevent resetting.
-	(TEA_ADD_LIBS): On Windows using GCC (mingw), convert foo.lib
-	args to -lfoo, for use with mingw.
-		*** POTENTIAL INCOMPATABILITY ***
-	(TEA_CONFIG_CFLAGS): Fix AIX gcc builds to work out-of-box.
-	Bumped TEA to 3.2.
-
-2005-01-27  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: remove cygpath calls to support msys.
-	Update base CE build assumption to "420,ARMV4,ARM,Pocket PC 2003".
-	Make STLIB_LD use $LINKBIN -lib.
-
-2005-01-25  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (Darwin): fixed bug with static build linking to dynamic
-	library in /usr/lib etc instead of linking to static library earlier
-	in search path. [Tcl Bug 956908]
-	Removed obsolete references to Rhapsody.
-
-2004-12-29  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: Updates for VC7 compatibility, fixing CFLAGS and LDFLAGS
-	options, using better default -O levels. [Bug 1092952, 1091967]
-
-2004-12-29  Joe English  <jenglish@users.sourceforge.net>
-
-	* tcl.m4: Do not use ${DBGX} suffix when building
-	shared libraries [patch #1081595, TIP #34]
-
-2004-09-07  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_CONFIG_CFLAGS): support eVC4 Win/CE builds
-
-2004-08-10  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_INIT, TEA_PREFIX): update handling of exec_prefix to
-	work around subdir configures since autoconf only propagates the
-	prefix (not exec_prefix).
-
-2004-07-23  Daniel Steffen  <das@users.sourceforge.net>
-
-	* tcl.m4 (TEA_CONFIG_CFLAGS): Darwin section: brought inline with
-	Tcl 8.5 HEAD config, removed core specific & obsolete settings.
-
-2004-07-22  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_PATH_X): check in TK_DEFS for MAC_OSX_TK to see if
-	we are compiling on Aqua.  Add TEA_WINDOWINGSYSTEM var that
-	reflects 'tk windowingsystem' value.
-
-2004-07-16  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_ENABLE_THREADS): force a threaded build when
-	building against a threaded core.
-	(CFLAGS_WARNING): Remove -Wconversion for gcc builds
-	(TEA_CONFIG_CFLAGS): Reorder configure.in for better 64-bit build
-	configuration, replacing EXTRA_CFLAGS with CFLAGS.  [Bug #874058]
-	Update to latest Tcl 8.5 head config settings.
-	Call this TEA version 3.1.
-
-2004-04-29  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_TCL_64BIT_FLAGS): replace AC_TRY_RUN test with
-	AC_TRY_COMPILE for the long vs. long long check. (kenny)
-
-2004-04-26  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_TCL_64BIT_FLAGS): update against core tcl.m4 to
-	define TCL_WIDE_INT_IS_LONG if 'using long'.
-
-2004-03-19  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: correct Windows builds getting LDFLAGS info in MAKE_LIB
-
-2004-02-11  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: correct TCL_INCLUDES for private headers on Windows - it
-	doesn't need the eval.
-
-2004-02-10  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: don't require TK_INCLUDES and TCL_INCLUDES to have the
-	DIR_NATIVE vars defined when using private headers on unix.
-	Allow $... to TEA_ADD_SOURCES for constructs like
-	TEA_ADD_SOURCES([\$(WIN_OBJECTS)]), that allow the developer to
-	place more in the Makefile.in.
-	tkUnixPort.h checks for HAVE_LIMITS_H, so do both HAVE and
-	CHECK on limits.h
-
-2003-12-10  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* Makefile.in:      added TEA_ADD_LIBS, TEA_ADD_INCLUDES and
-	* configure:        TEA_ADD_CFLAGS to configurable parameters with
-	* configure.in:     PKG_* equivs in the Makefile.  This allows the
-	* tclconfig/tcl.m4: user to worry less about actual magic VAR names.
-	Corrected Makefile.in to note that TEA_ADD_TCL_SOURCES requires
-	exact file names.
-
-2003-12-09  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: updated OpenBSD support based on [Patch #775246] (cassoff)
-
-2003-12-05  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* configure:
-	* configure.in:
-	* Makefile.in (VPATH): readd $(srcdir) to front of VPATH as the
-	first part of VPATH can get chopped off.
-	Change .c.$(OBJEXT) rule to .c.@OBJEXT@ to support more makes.
-	* tclconfig/tcl.m4: add TEA_ADD_STUB_SOURCES to support libstub
-	generation and TEA_ADD_TCL_SOURCES to replace RUNTIME_SOURCES as
-	the way the user specifies library files.
-
-2003-12-03  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* configure:           Update of TEA spec to (hopefully) simplify
-	* configure.in:        some aspects of TEA by making use of more
-	* Makefile.in:         AC 2.5x features.  Use PACKAGE_NAME (instead
-	* generic/tclsample.c: of PACKAGE) and PACKAGE_VERSION (instead of
-	* tclconfig/tcl.m4:    VERSION) arguments to AC_INIT as the TEA
-	package name and version.
-	Provide a version argument to TEA_INIT - starting with 3.0.
-	Drop all use of interior shell substs that older makefiles didn't
-	like.  Use PKG_* naming convention instead.
-	Move specification of source files and public headers into
-	configure.in with TEA_ADD_SOURCES and TEA_ADD_HEADERS.  These will
-	be munged during ./configure into the right obj file names (no
-	$(SOURCES:.c=.obj) needed).
-	There is almost nothing that should be touched in Makefile.in now
-	for the developer.  May want to add a TEA_ADD_TCL_SOURCES for the
-	RUNTIME_SOURCES that remains.
-	Use SHLID_LD_FLAGS (instead of SHLID_LDFLAGS) as Tcl does.
-	Only specify the user requested LDFLAGS/CFLAGS in the Makefile,
-	don't mention the _OPTIMIZE/_DEBUG variants.
-
-2003-10-15  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: create a TEA_SETUP_COMPILER_CC the precedes the
-	TEA_SETUP_COMPILER macro.  They are split so the check for CC
-	occurs before any use of CC.  Also add AC_PROG_CPP to the compiler
-	checks.
-
-2003-10-06  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: Updated for autoconf 2.5x prereq.
-	Where TCL_WIDE_INT_TYPE would be __int64, defer to the code checks
-	in tcl.h, which also handles TCL_LL_MODIFIER* properly.
-
-2003-04-22  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: correct default setting of ARCH for WinCE builds.
-	Correct \ escaping for CE sed macros.
-
-2003-04-10  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: replace $(syscal) construct with older `syscall` for
-	systems where sh != bash.
-
-2003-04-09  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_WITH_CELIB): add --enable-wince and --with-celib
-	options for Windows/CE compilation support.  Requires the
-	Microsoft eMbedded SDK and Keuchel's celib emulation layer.
-
-2003-02-18  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_ENABLE_THREADS): Make sure -lpthread gets passed on
-	the link line when checking for the pthread_attr_setstacksize
-	symbol. (dejong)
-
-	* tcl.m4 (TEA_SETUP_COMPILER): added default calls to
-	TEA_TCL_EARLY_FLAGS, TEA_TCL_64BIT_FLAGS,
-	TEA_MISSING_POSIX_HEADERS and TEA_BUGGY_STRTOD.
-
-2003-02-14  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: correct HP-UX ia64 --enable-64bit build flags
-
-2003-01-29  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: check $prefix/lib as well as $exec_prefix/lib when
-	looking for tcl|tkConfig.sh, as this check is done before we would
-	set exec_prefix when the user does not define it.
-
-2003-01-21  Mo DeJong  <mdejong@users.sourceforge.net>
-
-	* tcl.m4 (TEA_CONFIG_CFLAGS): Fix build support
-	for mingw, the previous implementation would
-	use VC++ when compiling with mingw gcc. Don't
-	pass -fPIC since gcc always compiles pic code
-	under win32. Change some hard coded cases
-	of gcc to ${CC}.
-
-2002-10-15  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: move the CFLAGS definition from TEA_ENABLE_SHARED to
-	TEA_MAKE_LIB because setting too early confuses other AC_* macros.
-	Correct the HP-11 SHLIB_LD_LIBS setting.
-
-	* tcl.m4: add the CFLAGS definition into TEA_ENABLE_SHARED and
-	make it pick up the env CFLAGS at configure time.
-
-2002-10-09  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: add --enable-symbols=mem option to enable TCL_MEM_DEBUG.
-	Improved AIX 64-bit build support, allow it on AIX-4 as well.
-	Enable 64-bit HP-11 compilation with gcc.
-	Enable 64-bit IRIX64-6 cc build support.
-	Correct FreeBSD thread library linkage.
-	Add OSF1 static build support.
-	Improve SunOS-5 shared build SHLIB_LD macro.
-
-2002-07-20  Zoran Vasiljevic  <zoran@archiware.com>
-
-	* tcl.m4: Added MINGW32 to list of systems checked for Windows build.
-	Also, fixes some indentation issues with "--with-XXX" options.
-
-2002-04-23  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_ENABLE_THREADS): added USE_THREAD_ALLOC define to
-	use new threaded allocatory by default on Unix for Tcl 8.4.
-	(TEA_CONFIG_CFLAGS): corrected LD_SEARCH_FLAGS for FreeBSD-3+.
-
-2002-04-22  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4 (TEA_SETUP_COMPILER): removed call to AC_CYGWIN so that
-	we can use autoconf 2.5x as well as 2.13.  This prevents us from
-	being able to warn against the use of cygwin gcc at configure
-	time, but allows autoconf 2.5x, which is what is shipped with most
-	newer systems.
-
-2002-04-11  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: Enabled COFF as well as CV style debug info with
-	--enable-symbols to allow Dr. Watson users to see function info.
-	More info on debugging levels can be obtained at:
-	http://msdn.microsoft.com/library/en-us/dnvc60/html/gendepdebug.asp
-
-2002-04-03  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: change all SC_* macros to TEA_*.  The SC_ was for
-	Scriptics, which is no more.  TEA represents a better, independent
-	prefix that won't need changing.
-	Added preliminary mingw gcc support. [Patch #538772]
-	Added TEA_PREFIX macro that handles defaulting the prefix and
-	exec_prefix vars to those used by Tcl if none were specified.
-	Added TEA_SETUP_COMPILER macro that encompasses the AC_PROG_CC
-	check and several other basic AC_PROG checks needed for making
-	executables.  This greatly simplifies user's configure.in files.
-	Collapsed AIX-5 defines into AIX-* with extra checks for doing the
-	ELF stuff on AIX-5-ia64.
-	Updated TEA_ENABLE_THREADS to take an optional arg to allow
-	switching it on by default (for Thread) and add sanity checking to
-	warn the user if configuring threads incompatibly.
-
-2002-03-29  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: made sure that SHLIB_LDFLAGS was set to LDFLAGS_DEFAULT.
-	Removed --enable-64bit support for AIX-4 because it wasn't correct.
-	Added -MT or -MD Windows linker switches to properly support
-	symbols-enabled builds.
-
-2002-03-28  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: called AC_MSG_ERROR when SC_TEA_INIT wasn't called first
-	instead of calling it as that inlines it each time in shell code.
-	Changed Windows CFLAGS_OPTIMIZE to use -O2 instead of -Oti.
-	Noted TCL_LIB_VERSIONS_OK=nodots for Windows builds.
-	A few changes to support itcl (and perhaps others):
-	Added support for making your own stub libraries to SC_MAKE_LIB.
-	New SC_PATH_CONFIG and SC_LOAD_CONFIG that take a package name arg
-	and find that ${pkg}Config.sh file.  itk uses this for itcl.
-
-2002-03-27  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: made SC_LOAD_TKCONFIG recognize when working with a Tk
-	build dir setup.
-	Added EXTRA_CFLAGS and SHLIB_LD_LIBS substs to SC_CONFIG_CFLAGS.
-	Added XLIBSW onto LIBS when it is defined.
-	Remove TCL_LIBS from MAKE_LIB and correctly use SHLIB_LD_LIBS
-	instead to not rely as much on tclConfig.sh cached info.
-	Add TK_BIN_DIR to paths to find wish in SC_PROG_WISH.
-	These move towards making TEA much more independent of *Config.sh.
-
-2002-03-19  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: corrected forgotten (UN)SHARED_LIB_SUFFIX and
-	SHLIB_SUFFIX defines for Win.
-	(SC_PATH_X): made this only do the check on unix platforms.
-
-2002-03-12  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* README.txt: updated to reflect fewer files
-
-2002-03-06  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* config.guess (removed):
-	* config.sub (removed): removed unnecessary files
-
-	* installFile.tcl (removed):
-	* mkinstalldirs (removed): these aren't really necessary for
-	making TEA work
-
-	* tcl.m4 (SC_PUBLIC_TCL_HEADERS, SC_PUBLIC_TK_HEADERS): don't
-	check /usr(/local)/include for includes on Windows when not using
-	gcc
-
-2002-03-05  Jeff Hobbs  <jeffh@ActiveState.com>
-
-	* tcl.m4: added warnings on Windows, removed RELPATH define and
-	added TCL_LIBS to MAKE_LIB macro.
-
-	This import represents 2.0.0, or a new start at attempting to
-	make TEA much easier for C extension developers.
-
-	**** moved from tclpro project to core tcl project, ****
-	**** renamed to 'tclconfig'                         ****
-
-2001-03-15    Karl Lehenbauer <karl@procplace.com>
-
-	* installFile.tcl: Added updating of the modification time of
-	  the target file whether we overwrote it or decided that it
-	  hadn't changed.  This was necessary for us to be able to
-	  determine whether or not a module install touched the file.
-
-2001-03-08    Karl Lehenbauer <karl@procplace.com>
-
-	* installFile.tcl: Added support for converting new-style (1.1+)
-	  Cygnus drive paths to Tcl-style.
-
-2001-01-15    <brent.welch@interwoven.com>
-
-	* tcl.m4: Added FreeBSD clause.
-
-2001-01-03    <brent.welch@interwoven.com>
-
-	* tcl.m4: Fixed typo in SC_LIB_SPEC where it is checking
-	for exec-prefix.
-
-2000-12-01    <brent.welch@interwoven.com>
-
-	* tcl.m4: Concatenated most of the Ajuba acsite.m4 file
-	so we don't need to modify the autoconf installation.
-	* config.guess:
-	* config.sub:
-	* installFile.tcl:
-	Added files from the itcl config subdirectory,
-	which should go away.
-
-2000-7-29    <welch@ajubasolutions.com>
-
-	* Fixed the use of TCL_SRC_DIR and TK_SRC_DIR within
-	TCL_PRIVATE_INCLUDES and TK_PRIVATE_INCLUDES to match their recent
-	change from $(srcdir) to $(srcdir)/..
diff --git a/tkcon/tclconfig/README.txt b/tkcon/tclconfig/README.txt
deleted file mode 100644
index 59b5a3e..0000000
--- a/tkcon/tclconfig/README.txt
+++ /dev/null
@@ -1,26 +0,0 @@
-These files comprise the basic building blocks for a Tcl Extension
-Architecture (TEA) extension.  For more information on TEA see:
-
-	http://www.tcl.tk/doc/tea/
-
-This package is part of the Tcl project at SourceForge, and latest
-sources should be available there:
-
-	http://tcl.sourceforge.net/
-
-This package is a freely available open source package.  You can do
-virtually anything you like with it, such as modifying it, redistributing
-it, and selling it either in whole or in part.
-
-CONTENTS
-========
-The following is a short description of the files you will find in
-the sample extension.
-
-README.txt	This file
-
-install-sh	Program used for copying binaries and script files
-		to their install locations.
-
-tcl.m4		Collection of Tcl autoconf macros.  Included by a package's
-		aclocal.m4 to define TEA_* macros.
diff --git a/tkcon/tclconfig/install-sh b/tkcon/tclconfig/install-sh
deleted file mode 100755
index 7c34c3f..0000000
--- a/tkcon/tclconfig/install-sh
+++ /dev/null
@@ -1,528 +0,0 @@
-#!/bin/sh
-# install - install a program, script, or datafile
-
-scriptversion=2011-04-20.01; # UTC
-
-# This originates from X11R5 (mit/util/scripts/install.sh), which was
-# later released in X11R6 (xc/config/util/install.sh) with the
-# following copyright and license.
-#
-# Copyright (C) 1994 X Consortium
-#
-# Permission is hereby granted, free of charge, to any person obtaining a copy
-# of this software and associated documentation files (the "Software"), to
-# deal in the Software without restriction, including without limitation the
-# rights to use, copy, modify, merge, publish, distribute, sublicense, and/or
-# sell copies of the Software, and to permit persons to whom the Software is
-# furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
-# X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
-# AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC-
-# TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-#
-# Except as contained in this notice, the name of the X Consortium shall not
-# be used in advertising or otherwise to promote the sale, use or other deal-
-# ings in this Software without prior written authorization from the X Consor-
-# tium.
-#
-#
-# FSF changes to this file are in the public domain.
-#
-# Calling this script install-sh is preferred over install.sh, to prevent
-# `make' implicit rules from creating a file called install from it
-# when there is no Makefile.
-#
-# This script is compatible with the BSD install script, but was written
-# from scratch.
-
-nl='
-'
-IFS=" ""	$nl"
-
-# set DOITPROG to echo to test this script
-
-# Don't use :- since 4.3BSD and earlier shells don't like it.
-doit=${DOITPROG-}
-if test -z "$doit"; then
-  doit_exec=exec
-else
-  doit_exec=$doit
-fi
-
-# Put in absolute file names if you don't have them in your path;
-# or use environment vars.
-
-chgrpprog=${CHGRPPROG-chgrp}
-chmodprog=${CHMODPROG-chmod}
-chownprog=${CHOWNPROG-chown}
-cmpprog=${CMPPROG-cmp}
-cpprog=${CPPROG-cp}
-mkdirprog=${MKDIRPROG-mkdir}
-mvprog=${MVPROG-mv}
-rmprog=${RMPROG-rm}
-stripprog=${STRIPPROG-strip}
-
-posix_glob='?'
-initialize_posix_glob='
-  test "$posix_glob" != "?" || {
-    if (set -f) 2>/dev/null; then
-      posix_glob=
-    else
-      posix_glob=:
-    fi
-  }
-'
-
-posix_mkdir=
-
-# Desired mode of installed file.
-mode=0755
-
-chgrpcmd=
-chmodcmd=$chmodprog
-chowncmd=
-mvcmd=$mvprog
-rmcmd="$rmprog -f"
-stripcmd=
-
-src=
-dst=
-dir_arg=
-dst_arg=
-
-copy_on_change=false
-no_target_directory=
-
-usage="\
-Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE
-   or: $0 [OPTION]... SRCFILES... DIRECTORY
-   or: $0 [OPTION]... -t DIRECTORY SRCFILES...
-   or: $0 [OPTION]... -d DIRECTORIES...
-
-In the 1st form, copy SRCFILE to DSTFILE.
-In the 2nd and 3rd, copy all SRCFILES to DIRECTORY.
-In the 4th, create DIRECTORIES.
-
-Options:
-     --help     display this help and exit.
-     --version  display version info and exit.
-
-  -c            (ignored)
-  -C            install only if different (preserve the last data modification time)
-  -d            create directories instead of installing files.
-  -g GROUP      $chgrpprog installed files to GROUP.
-  -m MODE       $chmodprog installed files to MODE.
-  -o USER       $chownprog installed files to USER.
-  -s            $stripprog installed files.
-  -S            $stripprog installed files.
-  -t DIRECTORY  install into DIRECTORY.
-  -T            report an error if DSTFILE is a directory.
-
-Environment variables override the default commands:
-  CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG
-  RMPROG STRIPPROG
-"
-
-while test $# -ne 0; do
-  case $1 in
-    -c) ;;
-
-    -C) copy_on_change=true;;
-
-    -d) dir_arg=true;;
-
-    -g) chgrpcmd="$chgrpprog $2"
-	shift;;
-
-    --help) echo "$usage"; exit $?;;
-
-    -m) mode=$2
-	case $mode in
-	  *' '* | *'	'* | *'
-'*	  | *'*'* | *'?'* | *'['*)
-	    echo "$0: invalid mode: $mode" >&2
-	    exit 1;;
-	esac
-	shift;;
-
-    -o) chowncmd="$chownprog $2"
-	shift;;
-
-    -s) stripcmd=$stripprog;;
-
-    -S) stripcmd="$stripprog $2"
-	shift;;
-
-    -t) dst_arg=$2
-	shift;;
-
-    -T) no_target_directory=true;;
-
-    --version) echo "$0 $scriptversion"; exit $?;;
-
-    --)	shift
-	break;;
-
-    -*)	echo "$0: invalid option: $1" >&2
-	exit 1;;
-
-    *)  break;;
-  esac
-  shift
-done
-
-if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then
-  # When -d is used, all remaining arguments are directories to create.
-  # When -t is used, the destination is already specified.
-  # Otherwise, the last argument is the destination.  Remove it from $@.
-  for arg
-  do
-    if test -n "$dst_arg"; then
-      # $@ is not empty: it contains at least $arg.
-      set fnord "$@" "$dst_arg"
-      shift # fnord
-    fi
-    shift # arg
-    dst_arg=$arg
-  done
-fi
-
-if test $# -eq 0; then
-  if test -z "$dir_arg"; then
-    echo "$0: no input file specified." >&2
-    exit 1
-  fi
-  # It's OK to call `install-sh -d' without argument.
-  # This can happen when creating conditional directories.
-  exit 0
-fi
-
-if test -z "$dir_arg"; then
-  do_exit='(exit $ret); exit $ret'
-  trap "ret=129; $do_exit" 1
-  trap "ret=130; $do_exit" 2
-  trap "ret=141; $do_exit" 13
-  trap "ret=143; $do_exit" 15
-
-  # Set umask so as not to create temps with too-generous modes.
-  # However, 'strip' requires both read and write access to temps.
-  case $mode in
-    # Optimize common cases.
-    *644) cp_umask=133;;
-    *755) cp_umask=22;;
-
-    *[0-7])
-      if test -z "$stripcmd"; then
-	u_plus_rw=
-      else
-	u_plus_rw='% 200'
-      fi
-      cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;;
-    *)
-      if test -z "$stripcmd"; then
-	u_plus_rw=
-      else
-	u_plus_rw=,u+rw
-      fi
-      cp_umask=$mode$u_plus_rw;;
-  esac
-fi
-
-for src
-do
-  # Protect names starting with `-'.
-  case $src in
-    -*) src=./$src;;
-  esac
-
-  if test -n "$dir_arg"; then
-    dst=$src
-    dstdir=$dst
-    test -d "$dstdir"
-    dstdir_status=$?
-  else
-
-    # Waiting for this to be detected by the "$cpprog $src $dsttmp" command
-    # might cause directories to be created, which would be especially bad
-    # if $src (and thus $dsttmp) contains '*'.
-    if test ! -f "$src" && test ! -d "$src"; then
-      echo "$0: $src does not exist." >&2
-      exit 1
-    fi
-
-    if test -z "$dst_arg"; then
-      echo "$0: no destination specified." >&2
-      exit 1
-    fi
-
-    dst=$dst_arg
-    # Protect names starting with `-'.
-    case $dst in
-      -*) dst=./$dst;;
-    esac
-
-    # If destination is a directory, append the input filename; won't work
-    # if double slashes aren't ignored.
-    if test -d "$dst"; then
-      if test -n "$no_target_directory"; then
-	echo "$0: $dst_arg: Is a directory" >&2
-	exit 1
-      fi
-      dstdir=$dst
-      dst=$dstdir/`basename "$src"`
-      dstdir_status=0
-    else
-      # Prefer dirname, but fall back on a substitute if dirname fails.
-      dstdir=`
-	(dirname "$dst") 2>/dev/null ||
-	expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
-	     X"$dst" : 'X\(//\)[^/]' \| \
-	     X"$dst" : 'X\(//\)$' \| \
-	     X"$dst" : 'X\(/\)' \| . 2>/dev/null ||
-	echo X"$dst" |
-	    sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
-		   s//\1/
-		   q
-		 }
-		 /^X\(\/\/\)[^/].*/{
-		   s//\1/
-		   q
-		 }
-		 /^X\(\/\/\)$/{
-		   s//\1/
-		   q
-		 }
-		 /^X\(\/\).*/{
-		   s//\1/
-		   q
-		 }
-		 s/.*/./; q'
-      `
-
-      test -d "$dstdir"
-      dstdir_status=$?
-    fi
-  fi
-
-  obsolete_mkdir_used=false
-
-  if test $dstdir_status != 0; then
-    case $posix_mkdir in
-      '')
-	# Create intermediate dirs using mode 755 as modified by the umask.
-	# This is like FreeBSD 'install' as of 1997-10-28.
-	umask=`umask`
-	case $stripcmd.$umask in
-	  # Optimize common cases.
-	  *[2367][2367]) mkdir_umask=$umask;;
-	  .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;;
-
-	  *[0-7])
-	    mkdir_umask=`expr $umask + 22 \
-	      - $umask % 100 % 40 + $umask % 20 \
-	      - $umask % 10 % 4 + $umask % 2
-	    `;;
-	  *) mkdir_umask=$umask,go-w;;
-	esac
-
-	# With -d, create the new directory with the user-specified mode.
-	# Otherwise, rely on $mkdir_umask.
-	if test -n "$dir_arg"; then
-	  mkdir_mode=-m$mode
-	else
-	  mkdir_mode=
-	fi
-
-	posix_mkdir=false
-	case $umask in
-	  *[123567][0-7][0-7])
-	    # POSIX mkdir -p sets u+wx bits regardless of umask, which
-	    # is incompatible with FreeBSD 'install' when (umask & 300) != 0.
-	    ;;
-	  *)
-	    tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$
-	    trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0
-
-	    if (umask $mkdir_umask &&
-		exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1
-	    then
-	      if test -z "$dir_arg" || {
-		   # Check for POSIX incompatibilities with -m.
-		   # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or
-		   # other-writeable bit of parent directory when it shouldn't.
-		   # FreeBSD 6.1 mkdir -m -p sets mode of existing directory.
-		   ls_ld_tmpdir=`ls -ld "$tmpdir"`
-		   case $ls_ld_tmpdir in
-		     d????-?r-*) different_mode=700;;
-		     d????-?--*) different_mode=755;;
-		     *) false;;
-		   esac &&
-		   $mkdirprog -m$different_mode -p -- "$tmpdir" && {
-		     ls_ld_tmpdir_1=`ls -ld "$tmpdir"`
-		     test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1"
-		   }
-		 }
-	      then posix_mkdir=:
-	      fi
-	      rmdir "$tmpdir/d" "$tmpdir"
-	    else
-	      # Remove any dirs left behind by ancient mkdir implementations.
-	      rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null
-	    fi
-	    trap '' 0;;
-	esac;;
-    esac
-
-    if
-      $posix_mkdir && (
-	umask $mkdir_umask &&
-	$doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir"
-      )
-    then :
-    else
-
-      # The umask is ridiculous, or mkdir does not conform to POSIX,
-      # or it failed possibly due to a race condition.  Create the
-      # directory the slow way, step by step, checking for races as we go.
-
-      case $dstdir in
-	/*) prefix='/';;
-	-*) prefix='./';;
-	*)  prefix='';;
-      esac
-
-      eval "$initialize_posix_glob"
-
-      oIFS=$IFS
-      IFS=/
-      $posix_glob set -f
-      set fnord $dstdir
-      shift
-      $posix_glob set +f
-      IFS=$oIFS
-
-      prefixes=
-
-      for d
-      do
-	test -z "$d" && continue
-
-	prefix=$prefix$d
-	if test -d "$prefix"; then
-	  prefixes=
-	else
-	  if $posix_mkdir; then
-	    (umask=$mkdir_umask &&
-	     $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break
-	    # Don't fail if two instances are running concurrently.
-	    test -d "$prefix" || exit 1
-	  else
-	    case $prefix in
-	      *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;;
-	      *) qprefix=$prefix;;
-	    esac
-	    prefixes="$prefixes '$qprefix'"
-	  fi
-	fi
-	prefix=$prefix/
-      done
-
-      if test -n "$prefixes"; then
-	# Don't fail if two instances are running concurrently.
-	(umask $mkdir_umask &&
-	 eval "\$doit_exec \$mkdirprog $prefixes") ||
-	  test -d "$dstdir" || exit 1
-	obsolete_mkdir_used=true
-      fi
-    fi
-  fi
-
-  if test -n "$dir_arg"; then
-    { test -z "$chowncmd" || $doit $chowncmd "$dst"; } &&
-    { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } &&
-    { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false ||
-      test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1
-  else
-
-    # Make a couple of temp file names in the proper directory.
-    dsttmp=$dstdir/_inst.$$_
-    rmtmp=$dstdir/_rm.$$_
-
-    # Trap to clean up those temp files at exit.
-    trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0
-
-    # Copy the file name to the temp name.
-    (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") &&
-
-    # and set any options; do chmod last to preserve setuid bits.
-    #
-    # If any of these fail, we abort the whole thing.  If we want to
-    # ignore errors from any of these, just make sure not to ignore
-    # errors from the above "$doit $cpprog $src $dsttmp" command.
-    #
-    { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } &&
-    { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } &&
-    { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } &&
-    { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } &&
-
-    # If -C, don't bother to copy if it wouldn't change the file.
-    if $copy_on_change &&
-       old=`LC_ALL=C ls -dlL "$dst"	2>/dev/null` &&
-       new=`LC_ALL=C ls -dlL "$dsttmp"	2>/dev/null` &&
-
-       eval "$initialize_posix_glob" &&
-       $posix_glob set -f &&
-       set X $old && old=:$2:$4:$5:$6 &&
-       set X $new && new=:$2:$4:$5:$6 &&
-       $posix_glob set +f &&
-
-       test "$old" = "$new" &&
-       $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1
-    then
-      rm -f "$dsttmp"
-    else
-      # Rename the file to the real destination.
-      $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null ||
-
-      # The rename failed, perhaps because mv can't rename something else
-      # to itself, or perhaps because mv is so ancient that it does not
-      # support -f.
-      {
-	# Now remove or move aside any old file at destination location.
-	# We try this two ways since rm can't unlink itself on some
-	# systems and the destination file might be busy for other
-	# reasons.  In this case, the final cleanup might fail but the new
-	# file should still install successfully.
-	{
-	  test ! -f "$dst" ||
-	  $doit $rmcmd -f "$dst" 2>/dev/null ||
-	  { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null &&
-	    { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; }
-	  } ||
-	  { echo "$0: cannot unlink or rename $dst" >&2
-	    (exit 1); exit 1
-	  }
-	} &&
-
-	# Now rename the file to the real destination.
-	$doit $mvcmd "$dsttmp" "$dst"
-      }
-    fi || exit 1
-
-    trap '' 0
-  fi
-done
-
-# Local variables:
-# eval: (add-hook 'write-file-hooks 'time-stamp)
-# time-stamp-start: "scriptversion="
-# time-stamp-format: "%:y-%02m-%02d.%02H"
-# time-stamp-time-zone: "UTC"
-# time-stamp-end: "; # UTC"
-# End:
diff --git a/tkcon/tclconfig/tcl.m4 b/tkcon/tclconfig/tcl.m4
deleted file mode 100644
index 655be25..0000000
--- a/tkcon/tclconfig/tcl.m4
+++ /dev/null
@@ -1,4176 +0,0 @@
-# tcl.m4 --
-#
-#	This file provides a set of autoconf macros to help TEA-enable
-#	a Tcl extension.
-#
-# Copyright (c) 1999-2000 Ajuba Solutions.
-# Copyright (c) 2002-2005 ActiveState Corporation.
-#
-# See the file "license.terms" for information on usage and redistribution
-# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-
-AC_PREREQ(2.57)
-
-# Possible values for key variables defined:
-#
-# TEA_WINDOWINGSYSTEM - win32 aqua x11 (mirrors 'tk windowingsystem')
-# TEA_PLATFORM        - windows unix
-# TEA_TK_EXTENSION    - True if this is a Tk extension
-#
-
-#------------------------------------------------------------------------
-# TEA_PATH_TCLCONFIG --
-#
-#	Locate the tclConfig.sh file and perform a sanity check on
-#	the Tcl compile flags
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Adds the following arguments to configure:
-#		--with-tcl=...
-#
-#	Defines the following vars:
-#		TCL_BIN_DIR	Full path to the directory containing
-#				the tclConfig.sh file
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PATH_TCLCONFIG], [
-    dnl TEA specific: Make sure we are initialized
-    AC_REQUIRE([TEA_INIT])
-    #
-    # Ok, lets find the tcl configuration
-    # First, look for one uninstalled.
-    # the alternative search directory is invoked by --with-tcl
-    #
-
-    if test x"${no_tcl}" = x ; then
-	# we reset no_tcl in case something fails here
-	no_tcl=true
-	AC_ARG_WITH(tcl,
-	    AC_HELP_STRING([--with-tcl],
-		[directory containing tcl configuration (tclConfig.sh)]),
-	    with_tclconfig="${withval}")
-	AC_MSG_CHECKING([for Tcl configuration])
-	AC_CACHE_VAL(ac_cv_c_tclconfig,[
-
-	    # First check to see if --with-tcl was specified.
-	    if test x"${with_tclconfig}" != x ; then
-		case "${with_tclconfig}" in
-		    */tclConfig.sh )
-			if test -f "${with_tclconfig}"; then
-			    AC_MSG_WARN([--with-tcl argument should refer to directory containing tclConfig.sh, not to tclConfig.sh itself])
-			    with_tclconfig="`echo "${with_tclconfig}" | sed 's!/tclConfig\.sh$!!'`"
-			fi ;;
-		esac
-		if test -f "${with_tclconfig}/tclConfig.sh" ; then
-		    ac_cv_c_tclconfig="`(cd "${with_tclconfig}"; pwd)`"
-		else
-		    AC_MSG_ERROR([${with_tclconfig} directory doesn't contain tclConfig.sh])
-		fi
-	    fi
-
-	    # then check for a private Tcl installation
-	    if test x"${ac_cv_c_tclconfig}" = x ; then
-		for i in \
-			../tcl \
-			`ls -dr ../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
-			`ls -dr ../tcl[[8-9]].[[0-9]] 2>/dev/null` \
-			`ls -dr ../tcl[[8-9]].[[0-9]]* 2>/dev/null` \
-			../../tcl \
-			`ls -dr ../../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
-			`ls -dr ../../tcl[[8-9]].[[0-9]] 2>/dev/null` \
-			`ls -dr ../../tcl[[8-9]].[[0-9]]* 2>/dev/null` \
-			../../../tcl \
-			`ls -dr ../../../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
-			`ls -dr ../../../tcl[[8-9]].[[0-9]] 2>/dev/null` \
-			`ls -dr ../../../tcl[[8-9]].[[0-9]]* 2>/dev/null` ; do
-		    if test "${TEA_PLATFORM}" = "windows" \
-			    -a -f "$i/win/tclConfig.sh" ; then
-			ac_cv_c_tclconfig="`(cd $i/win; pwd)`"
-			break
-		    fi
-		    if test -f "$i/unix/tclConfig.sh" ; then
-			ac_cv_c_tclconfig="`(cd $i/unix; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # on Darwin, check in Framework installation locations
-	    if test "`uname -s`" = "Darwin" -a x"${ac_cv_c_tclconfig}" = x ; then
-		for i in `ls -d ~/Library/Frameworks 2>/dev/null` \
-			`ls -d /Library/Frameworks 2>/dev/null` \
-			`ls -d /Network/Library/Frameworks 2>/dev/null` \
-			`ls -d /System/Library/Frameworks 2>/dev/null` \
-			`ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Library/Frameworks/Tcl.framework 2>/dev/null` \
-			`ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Network/Library/Frameworks/Tcl.framework 2>/dev/null` \
-			`ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/System/Library/Frameworks/Tcl.framework 2>/dev/null` \
-			; do
-		    if test -f "$i/Tcl.framework/tclConfig.sh" ; then
-			ac_cv_c_tclconfig="`(cd $i/Tcl.framework; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # TEA specific: on Windows, check in common installation locations
-	    if test "${TEA_PLATFORM}" = "windows" \
-		-a x"${ac_cv_c_tclconfig}" = x ; then
-		for i in `ls -d C:/Tcl/lib 2>/dev/null` \
-			`ls -d C:/Progra~1/Tcl/lib 2>/dev/null` \
-			; do
-		    if test -f "$i/tclConfig.sh" ; then
-			ac_cv_c_tclconfig="`(cd $i; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # check in a few common install locations
-	    if test x"${ac_cv_c_tclconfig}" = x ; then
-		for i in `ls -d ${libdir} 2>/dev/null` \
-			`ls -d ${exec_prefix}/lib 2>/dev/null` \
-			`ls -d ${prefix}/lib 2>/dev/null` \
-			`ls -d /usr/local/lib 2>/dev/null` \
-			`ls -d /usr/contrib/lib 2>/dev/null` \
-			`ls -d /usr/pkg/lib 2>/dev/null` \
-			`ls -d /usr/lib 2>/dev/null` \
-			`ls -d /usr/lib64 2>/dev/null` \
-			`ls -d /usr/lib/tcl8.6 2>/dev/null` \
-			`ls -d /usr/lib/tcl8.5 2>/dev/null` \
-			`ls -d /usr/local/lib/tcl8.6 2>/dev/null` \
-			`ls -d /usr/local/lib/tcl8.5 2>/dev/null` \
-			`ls -d /usr/local/lib/tcl/tcl8.6 2>/dev/null` \
-			`ls -d /usr/local/lib/tcl/tcl8.5 2>/dev/null` \
-			; do
-		    if test -f "$i/tclConfig.sh" ; then
-			ac_cv_c_tclconfig="`(cd $i; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # check in a few other private locations
-	    if test x"${ac_cv_c_tclconfig}" = x ; then
-		for i in \
-			${srcdir}/../tcl \
-			`ls -dr ${srcdir}/../tcl[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
-			`ls -dr ${srcdir}/../tcl[[8-9]].[[0-9]] 2>/dev/null` \
-			`ls -dr ${srcdir}/../tcl[[8-9]].[[0-9]]* 2>/dev/null` ; do
-		    if test "${TEA_PLATFORM}" = "windows" \
-			    -a -f "$i/win/tclConfig.sh" ; then
-			ac_cv_c_tclconfig="`(cd $i/win; pwd)`"
-			break
-		    fi
-		    if test -f "$i/unix/tclConfig.sh" ; then
-			ac_cv_c_tclconfig="`(cd $i/unix; pwd)`"
-			break
-		    fi
-		done
-	    fi
-	])
-
-	if test x"${ac_cv_c_tclconfig}" = x ; then
-	    TCL_BIN_DIR="# no Tcl configs found"
-	    AC_MSG_ERROR([Can't find Tcl configuration definitions. Use --with-tcl to specify a directory containing tclConfig.sh])
-	else
-	    no_tcl=
-	    TCL_BIN_DIR="${ac_cv_c_tclconfig}"
-	    AC_MSG_RESULT([found ${TCL_BIN_DIR}/tclConfig.sh])
-	fi
-    fi
-])
-
-#------------------------------------------------------------------------
-# TEA_PATH_TKCONFIG --
-#
-#	Locate the tkConfig.sh file
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Adds the following arguments to configure:
-#		--with-tk=...
-#
-#	Defines the following vars:
-#		TK_BIN_DIR	Full path to the directory containing
-#				the tkConfig.sh file
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PATH_TKCONFIG], [
-    #
-    # Ok, lets find the tk configuration
-    # First, look for one uninstalled.
-    # the alternative search directory is invoked by --with-tk
-    #
-
-    if test x"${no_tk}" = x ; then
-	# we reset no_tk in case something fails here
-	no_tk=true
-	AC_ARG_WITH(tk,
-	    AC_HELP_STRING([--with-tk],
-		[directory containing tk configuration (tkConfig.sh)]),
-	    with_tkconfig="${withval}")
-	AC_MSG_CHECKING([for Tk configuration])
-	AC_CACHE_VAL(ac_cv_c_tkconfig,[
-
-	    # First check to see if --with-tkconfig was specified.
-	    if test x"${with_tkconfig}" != x ; then
-		case "${with_tkconfig}" in
-		    */tkConfig.sh )
-			if test -f "${with_tkconfig}"; then
-			    AC_MSG_WARN([--with-tk argument should refer to directory containing tkConfig.sh, not to tkConfig.sh itself])
-			    with_tkconfig="`echo "${with_tkconfig}" | sed 's!/tkConfig\.sh$!!'`"
-			fi ;;
-		esac
-		if test -f "${with_tkconfig}/tkConfig.sh" ; then
-		    ac_cv_c_tkconfig="`(cd "${with_tkconfig}"; pwd)`"
-		else
-		    AC_MSG_ERROR([${with_tkconfig} directory doesn't contain tkConfig.sh])
-		fi
-	    fi
-
-	    # then check for a private Tk library
-	    if test x"${ac_cv_c_tkconfig}" = x ; then
-		for i in \
-			../tk \
-			`ls -dr ../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
-			`ls -dr ../tk[[8-9]].[[0-9]] 2>/dev/null` \
-			`ls -dr ../tk[[8-9]].[[0-9]]* 2>/dev/null` \
-			../../tk \
-			`ls -dr ../../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
-			`ls -dr ../../tk[[8-9]].[[0-9]] 2>/dev/null` \
-			`ls -dr ../../tk[[8-9]].[[0-9]]* 2>/dev/null` \
-			../../../tk \
-			`ls -dr ../../../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
-			`ls -dr ../../../tk[[8-9]].[[0-9]] 2>/dev/null` \
-			`ls -dr ../../../tk[[8-9]].[[0-9]]* 2>/dev/null` ; do
-		    if test "${TEA_PLATFORM}" = "windows" \
-			    -a -f "$i/win/tkConfig.sh" ; then
-			ac_cv_c_tkconfig="`(cd $i/win; pwd)`"
-			break
-		    fi
-		    if test -f "$i/unix/tkConfig.sh" ; then
-			ac_cv_c_tkconfig="`(cd $i/unix; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # on Darwin, check in Framework installation locations
-	    if test "`uname -s`" = "Darwin" -a x"${ac_cv_c_tkconfig}" = x ; then
-		for i in `ls -d ~/Library/Frameworks 2>/dev/null` \
-			`ls -d /Library/Frameworks 2>/dev/null` \
-			`ls -d /Network/Library/Frameworks 2>/dev/null` \
-			`ls -d /System/Library/Frameworks 2>/dev/null` \
-			`ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Library/Frameworks/Tcl.framework 2>/dev/null` \
-			`ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/Network/Library/Frameworks/Tcl.framework 2>/dev/null` \
-			`ls -d /Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk/System/Library/Frameworks/Tcl.framework 2>/dev/null` \
-			; do
-		    if test -f "$i/Tk.framework/tkConfig.sh" ; then
-			ac_cv_c_tkconfig="`(cd $i/Tk.framework; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # check in a few common install locations
-	    if test x"${ac_cv_c_tkconfig}" = x ; then
-		for i in `ls -d ${libdir} 2>/dev/null` \
-			`ls -d ${exec_prefix}/lib 2>/dev/null` \
-			`ls -d ${prefix}/lib 2>/dev/null` \
-			`ls -d /usr/local/lib 2>/dev/null` \
-			`ls -d /usr/contrib/lib 2>/dev/null` \
-			`ls -d /usr/pkg/lib 2>/dev/null` \
-			`ls -d /usr/lib 2>/dev/null` \
-			`ls -d /usr/lib64 2>/dev/null` \
-			`ls -d /usr/lib/tk8.6 2>/dev/null` \
-			`ls -d /usr/lib/tk8.5 2>/dev/null` \
-			`ls -d /usr/local/lib/tk8.6 2>/dev/null` \
-			`ls -d /usr/local/lib/tk8.5 2>/dev/null` \
-			`ls -d /usr/local/lib/tcl/tk8.6 2>/dev/null` \
-			`ls -d /usr/local/lib/tcl/tk8.5 2>/dev/null` \
-			; do
-		    if test -f "$i/tkConfig.sh" ; then
-			ac_cv_c_tkconfig="`(cd $i; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # TEA specific: on Windows, check in common installation locations
-	    if test "${TEA_PLATFORM}" = "windows" \
-		-a x"${ac_cv_c_tkconfig}" = x ; then
-		for i in `ls -d C:/Tcl/lib 2>/dev/null` \
-			`ls -d C:/Progra~1/Tcl/lib 2>/dev/null` \
-			; do
-		    if test -f "$i/tkConfig.sh" ; then
-			ac_cv_c_tkconfig="`(cd $i; pwd)`"
-			break
-		    fi
-		done
-	    fi
-
-	    # check in a few other private locations
-	    if test x"${ac_cv_c_tkconfig}" = x ; then
-		for i in \
-			${srcdir}/../tk \
-			`ls -dr ${srcdir}/../tk[[8-9]].[[0-9]].[[0-9]]* 2>/dev/null` \
-			`ls -dr ${srcdir}/../tk[[8-9]].[[0-9]] 2>/dev/null` \
-			`ls -dr ${srcdir}/../tk[[8-9]].[[0-9]]* 2>/dev/null` ; do
-		    if test "${TEA_PLATFORM}" = "windows" \
-			    -a -f "$i/win/tkConfig.sh" ; then
-			ac_cv_c_tkconfig="`(cd $i/win; pwd)`"
-			break
-		    fi
-		    if test -f "$i/unix/tkConfig.sh" ; then
-			ac_cv_c_tkconfig="`(cd $i/unix; pwd)`"
-			break
-		    fi
-		done
-	    fi
-	])
-
-	if test x"${ac_cv_c_tkconfig}" = x ; then
-	    TK_BIN_DIR="# no Tk configs found"
-	    AC_MSG_ERROR([Can't find Tk configuration definitions. Use --with-tk to specify a directory containing tkConfig.sh])
-	else
-	    no_tk=
-	    TK_BIN_DIR="${ac_cv_c_tkconfig}"
-	    AC_MSG_RESULT([found ${TK_BIN_DIR}/tkConfig.sh])
-	fi
-    fi
-])
-
-#------------------------------------------------------------------------
-# TEA_LOAD_TCLCONFIG --
-#
-#	Load the tclConfig.sh file
-#
-# Arguments:
-#
-#	Requires the following vars to be set:
-#		TCL_BIN_DIR
-#
-# Results:
-#
-#	Substitutes the following vars:
-#		TCL_BIN_DIR
-#		TCL_SRC_DIR
-#		TCL_LIB_FILE
-#		TCL_ZIP_FILE
-#		TCL_ZIPFS_SUPPORT
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_LOAD_TCLCONFIG], [
-    AC_MSG_CHECKING([for existence of ${TCL_BIN_DIR}/tclConfig.sh])
-
-    if test -f "${TCL_BIN_DIR}/tclConfig.sh" ; then
-        AC_MSG_RESULT([loading])
-	. "${TCL_BIN_DIR}/tclConfig.sh"
-    else
-        AC_MSG_RESULT([could not find ${TCL_BIN_DIR}/tclConfig.sh])
-    fi
-
-    # eval is required to do the TCL_DBGX substitution
-    eval "TCL_LIB_FILE=\"${TCL_LIB_FILE}\""
-    eval "TCL_STUB_LIB_FILE=\"${TCL_STUB_LIB_FILE}\""
-
-    # If the TCL_BIN_DIR is the build directory (not the install directory),
-    # then set the common variable name to the value of the build variables.
-    # For example, the variable TCL_LIB_SPEC will be set to the value
-    # of TCL_BUILD_LIB_SPEC. An extension should make use of TCL_LIB_SPEC
-    # instead of TCL_BUILD_LIB_SPEC since it will work with both an
-    # installed and uninstalled version of Tcl.
-    if test -f "${TCL_BIN_DIR}/Makefile" ; then
-        TCL_LIB_SPEC="${TCL_BUILD_LIB_SPEC}"
-        TCL_STUB_LIB_SPEC="${TCL_BUILD_STUB_LIB_SPEC}"
-        TCL_STUB_LIB_PATH="${TCL_BUILD_STUB_LIB_PATH}"
-    elif test "`uname -s`" = "Darwin"; then
-	# If Tcl was built as a framework, attempt to use the libraries
-	# from the framework at the given location so that linking works
-	# against Tcl.framework installed in an arbitrary location.
-	case ${TCL_DEFS} in
-	    *TCL_FRAMEWORK*)
-		if test -f "${TCL_BIN_DIR}/${TCL_LIB_FILE}"; then
-		    for i in "`cd "${TCL_BIN_DIR}"; pwd`" \
-			     "`cd "${TCL_BIN_DIR}"/../..; pwd`"; do
-			if test "`basename "$i"`" = "${TCL_LIB_FILE}.framework"; then
-			    TCL_LIB_SPEC="-F`dirname "$i" | sed -e 's/ /\\\\ /g'` -framework ${TCL_LIB_FILE}"
-			    break
-			fi
-		    done
-		fi
-		if test -f "${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}"; then
-		    TCL_STUB_LIB_SPEC="-L`echo "${TCL_BIN_DIR}"  | sed -e 's/ /\\\\ /g'` ${TCL_STUB_LIB_FLAG}"
-		    TCL_STUB_LIB_PATH="${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}"
-		fi
-		;;
-	esac
-    fi
-
-    # eval is required to do the TCL_DBGX substitution
-    eval "TCL_LIB_FLAG=\"${TCL_LIB_FLAG}\""
-    eval "TCL_LIB_SPEC=\"${TCL_LIB_SPEC}\""
-    eval "TCL_STUB_LIB_FLAG=\"${TCL_STUB_LIB_FLAG}\""
-    eval "TCL_STUB_LIB_SPEC=\"${TCL_STUB_LIB_SPEC}\""
-
-    AC_SUBST(TCL_VERSION)
-    AC_SUBST(TCL_PATCH_LEVEL)
-    AC_SUBST(TCL_BIN_DIR)
-    AC_SUBST(TCL_SRC_DIR)
-
-    AC_SUBST(TCL_LIB_FILE)
-    AC_SUBST(TCL_LIB_FLAG)
-    AC_SUBST(TCL_LIB_SPEC)
-
-    AC_SUBST(TCL_STUB_LIB_FILE)
-    AC_SUBST(TCL_STUB_LIB_FLAG)
-    AC_SUBST(TCL_STUB_LIB_SPEC)
-
-    AC_MSG_CHECKING([platform])
-    hold_cc=$CC; CC="$TCL_CC"
-    AC_TRY_COMPILE(,[
-	    #ifdef _WIN32
-		#error win32
-	    #endif
-	], [
-	    TEA_PLATFORM="unix"
-	    CYGPATH=echo
-	], [
-	    TEA_PLATFORM="windows"
-	    AC_CHECK_PROG(CYGPATH, cygpath, cygpath -m, echo)	]
-    )
-    CC=$hold_cc
-    AC_MSG_RESULT($TEA_PLATFORM)
-
-    # The BUILD_$pkg is to define the correct extern storage class
-    # handling when making this package
-    AC_DEFINE_UNQUOTED(BUILD_${PACKAGE_NAME}, [],
-	    [Building extension source?])
-    # Do this here as we have fully defined TEA_PLATFORM now
-    if test "${TEA_PLATFORM}" = "windows" ; then
-	EXEEXT=".exe"
-	CLEANFILES="$CLEANFILES *.lib *.dll *.pdb *.exp"
-    fi
-
-    # TEA specific:
-    AC_SUBST(CLEANFILES)
-    AC_SUBST(TCL_LIBS)
-    AC_SUBST(TCL_DEFS)
-    AC_SUBST(TCL_EXTRA_CFLAGS)
-    AC_SUBST(TCL_LD_FLAGS)
-    AC_SUBST(TCL_SHLIB_LD_LIBS)
-])
-
-#------------------------------------------------------------------------
-# TEA_LOAD_TKCONFIG --
-#
-#	Load the tkConfig.sh file
-#
-# Arguments:
-#
-#	Requires the following vars to be set:
-#		TK_BIN_DIR
-#
-# Results:
-#
-#	Sets the following vars that should be in tkConfig.sh:
-#		TK_BIN_DIR
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_LOAD_TKCONFIG], [
-    AC_MSG_CHECKING([for existence of ${TK_BIN_DIR}/tkConfig.sh])
-
-    if test -f "${TK_BIN_DIR}/tkConfig.sh" ; then
-        AC_MSG_RESULT([loading])
-	. "${TK_BIN_DIR}/tkConfig.sh"
-    else
-        AC_MSG_RESULT([could not find ${TK_BIN_DIR}/tkConfig.sh])
-    fi
-
-    # eval is required to do the TK_DBGX substitution
-    eval "TK_LIB_FILE=\"${TK_LIB_FILE}\""
-    eval "TK_STUB_LIB_FILE=\"${TK_STUB_LIB_FILE}\""
-
-    # If the TK_BIN_DIR is the build directory (not the install directory),
-    # then set the common variable name to the value of the build variables.
-    # For example, the variable TK_LIB_SPEC will be set to the value
-    # of TK_BUILD_LIB_SPEC. An extension should make use of TK_LIB_SPEC
-    # instead of TK_BUILD_LIB_SPEC since it will work with both an
-    # installed and uninstalled version of Tcl.
-    if test -f "${TK_BIN_DIR}/Makefile" ; then
-        TK_LIB_SPEC="${TK_BUILD_LIB_SPEC}"
-        TK_STUB_LIB_SPEC="${TK_BUILD_STUB_LIB_SPEC}"
-        TK_STUB_LIB_PATH="${TK_BUILD_STUB_LIB_PATH}"
-    elif test "`uname -s`" = "Darwin"; then
-	# If Tk was built as a framework, attempt to use the libraries
-	# from the framework at the given location so that linking works
-	# against Tk.framework installed in an arbitrary location.
-	case ${TK_DEFS} in
-	    *TK_FRAMEWORK*)
-		if test -f "${TK_BIN_DIR}/${TK_LIB_FILE}"; then
-		    for i in "`cd "${TK_BIN_DIR}"; pwd`" \
-			     "`cd "${TK_BIN_DIR}"/../..; pwd`"; do
-			if test "`basename "$i"`" = "${TK_LIB_FILE}.framework"; then
-			    TK_LIB_SPEC="-F`dirname "$i" | sed -e 's/ /\\\\ /g'` -framework ${TK_LIB_FILE}"
-			    break
-			fi
-		    done
-		fi
-		if test -f "${TK_BIN_DIR}/${TK_STUB_LIB_FILE}"; then
-		    TK_STUB_LIB_SPEC="-L` echo "${TK_BIN_DIR}"  | sed -e 's/ /\\\\ /g'` ${TK_STUB_LIB_FLAG}"
-		    TK_STUB_LIB_PATH="${TK_BIN_DIR}/${TK_STUB_LIB_FILE}"
-		fi
-		;;
-	esac
-    fi
-
-    # eval is required to do the TK_DBGX substitution
-    eval "TK_LIB_FLAG=\"${TK_LIB_FLAG}\""
-    eval "TK_LIB_SPEC=\"${TK_LIB_SPEC}\""
-    eval "TK_STUB_LIB_FLAG=\"${TK_STUB_LIB_FLAG}\""
-    eval "TK_STUB_LIB_SPEC=\"${TK_STUB_LIB_SPEC}\""
-
-    # TEA specific: Ensure windowingsystem is defined
-    if test "${TEA_PLATFORM}" = "unix" ; then
-	case ${TK_DEFS} in
-	    *MAC_OSX_TK*)
-		AC_DEFINE(MAC_OSX_TK, 1, [Are we building against Mac OS X TkAqua?])
-		TEA_WINDOWINGSYSTEM="aqua"
-		;;
-	    *)
-		TEA_WINDOWINGSYSTEM="x11"
-		;;
-	esac
-    elif test "${TEA_PLATFORM}" = "windows" ; then
-	TEA_WINDOWINGSYSTEM="win32"
-    fi
-
-    AC_SUBST(TK_VERSION)
-    AC_SUBST(TK_BIN_DIR)
-    AC_SUBST(TK_SRC_DIR)
-
-    AC_SUBST(TK_LIB_FILE)
-    AC_SUBST(TK_LIB_FLAG)
-    AC_SUBST(TK_LIB_SPEC)
-
-    AC_SUBST(TK_STUB_LIB_FILE)
-    AC_SUBST(TK_STUB_LIB_FLAG)
-    AC_SUBST(TK_STUB_LIB_SPEC)
-
-    # TEA specific:
-    AC_SUBST(TK_LIBS)
-    AC_SUBST(TK_XINCLUDES)
-])
-
-#------------------------------------------------------------------------
-# TEA_PROG_TCLSH
-#	Determine the fully qualified path name of the tclsh executable
-#	in the Tcl build directory or the tclsh installed in a bin
-#	directory. This macro will correctly determine the name
-#	of the tclsh executable even if tclsh has not yet been
-#	built in the build directory. The tclsh found is always
-#	associated with a tclConfig.sh file. This tclsh should be used
-#	only for running extension test cases. It should never be
-#	or generation of files (like pkgIndex.tcl) at build time.
-#
-# Arguments:
-#	none
-#
-# Results:
-#	Substitutes the following vars:
-#		TCLSH_PROG
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PROG_TCLSH], [
-    AC_MSG_CHECKING([for tclsh])
-    if test -f "${TCL_BIN_DIR}/Makefile" ; then
-        # tclConfig.sh is in Tcl build directory
-        if test "${TEA_PLATFORM}" = "windows"; then
-          if test -f "${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}${EXEEXT}" ; then
-            TCLSH_PROG="${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}${EXEEXT}"
-          elif test -f "${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}s${EXEEXT}" ; then
-            TCLSH_PROG="${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}s${EXEEXT}"
-          elif test -f "${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}t${EXEEXT}" ; then
-            TCLSH_PROG="${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}t${EXEEXT}"
-          elif test -f "${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}st${EXEEXT}" ; then
-            TCLSH_PROG="${TCL_BIN_DIR}/tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}st${EXEEXT}"
-          fi
-        else
-            TCLSH_PROG="${TCL_BIN_DIR}/tclsh"
-        fi
-    else
-        # tclConfig.sh is in install location
-        if test "${TEA_PLATFORM}" = "windows"; then
-            TCLSH_PROG="tclsh${TCL_MAJOR_VERSION}${TCL_MINOR_VERSION}${TCL_DBGX}${EXEEXT}"
-        else
-            TCLSH_PROG="tclsh${TCL_MAJOR_VERSION}.${TCL_MINOR_VERSION}${TCL_DBGX}"
-        fi
-        list="`ls -d ${TCL_BIN_DIR}/../bin 2>/dev/null` \
-              `ls -d ${TCL_BIN_DIR}/..     2>/dev/null` \
-              `ls -d ${TCL_PREFIX}/bin     2>/dev/null`"
-        for i in $list ; do
-            if test -f "$i/${TCLSH_PROG}" ; then
-                REAL_TCL_BIN_DIR="`cd "$i"; pwd`/"
-                break
-            fi
-        done
-        TCLSH_PROG="${REAL_TCL_BIN_DIR}${TCLSH_PROG}"
-    fi
-    AC_MSG_RESULT([${TCLSH_PROG}])
-    AC_SUBST(TCLSH_PROG)
-])
-
-#------------------------------------------------------------------------
-# TEA_PROG_WISH
-#	Determine the fully qualified path name of the wish executable
-#	in the Tk build directory or the wish installed in a bin
-#	directory. This macro will correctly determine the name
-#	of the wish executable even if wish has not yet been
-#	built in the build directory. The wish found is always
-#	associated with a tkConfig.sh file. This wish should be used
-#	only for running extension test cases. It should never be
-#	or generation of files (like pkgIndex.tcl) at build time.
-#
-# Arguments:
-#	none
-#
-# Results:
-#	Substitutes the following vars:
-#		WISH_PROG
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PROG_WISH], [
-    AC_MSG_CHECKING([for wish])
-    if test -f "${TK_BIN_DIR}/Makefile" ; then
-        # tkConfig.sh is in Tk build directory
-        if test "${TEA_PLATFORM}" = "windows"; then
-          if test -f "${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}${EXEEXT}" ; then
-            WISH_PROG="${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}${EXEEXT}"
-          elif test -f "${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}s${EXEEXT}" ; then
-            WISH_PROG="${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}$s{EXEEXT}"
-          elif test -f "${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}t${EXEEXT}" ; then
-            WISH_PROG="${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}t${EXEEXT}"
-          elif test -f "${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}st${EXEEXT}" ; then
-            WISH_PROG="${TK_BIN_DIR}/wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}st${EXEEXT}"
-          fi
-        else
-            WISH_PROG="${TK_BIN_DIR}/wish"
-        fi
-    else
-        # tkConfig.sh is in install location
-        if test "${TEA_PLATFORM}" = "windows"; then
-            WISH_PROG="wish${TK_MAJOR_VERSION}${TK_MINOR_VERSION}${TK_DBGX}${EXEEXT}"
-        else
-            WISH_PROG="wish${TK_MAJOR_VERSION}.${TK_MINOR_VERSION}${TK_DBGX}"
-        fi
-        list="`ls -d ${TK_BIN_DIR}/../bin 2>/dev/null` \
-              `ls -d ${TK_BIN_DIR}/..     2>/dev/null` \
-              `ls -d ${TK_PREFIX}/bin     2>/dev/null`"
-        for i in $list ; do
-            if test -f "$i/${WISH_PROG}" ; then
-                REAL_TK_BIN_DIR="`cd "$i"; pwd`/"
-                break
-            fi
-        done
-        WISH_PROG="${REAL_TK_BIN_DIR}${WISH_PROG}"
-    fi
-    AC_MSG_RESULT([${WISH_PROG}])
-    AC_SUBST(WISH_PROG)
-])
-
-#------------------------------------------------------------------------
-# TEA_ENABLE_SHARED --
-#
-#	Allows the building of shared libraries
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Adds the following arguments to configure:
-#		--enable-shared=yes|no
-#		--enable-stubs=yes|no
-#
-#	Defines the following vars:
-#		STATIC_BUILD	Used for building import/export libraries
-#				on Windows.
-#
-#	Sets the following vars:
-#		SHARED_BUILD	Value of 1 or 0
-#               STUBS_BUILD     Value if 1 or 0
-#               USE_TCL_STUBS   Value true: if SHARED_BUILD or --enable-stubs
-#               USE_TCLOO_STUBS Value true: if SHARED_BUILD or --enable-stubs
-#               USE_TK_STUBS    Value true: if SHARED_BUILD or --enable-stubs
-#                                AND TEA_WINDOWING_SYSTEM != ""
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ENABLE_SHARED], [
-    AC_MSG_CHECKING([how to build libraries])
-    AC_ARG_ENABLE(shared,
-	AC_HELP_STRING([--enable-shared],
-	    [build and link with shared libraries (default: on)]),
-	[shared_ok=$enableval], [shared_ok=yes])
-
-    if test "${enable_shared+set}" = set; then
-	enableval="$enable_shared"
-	shared_ok=$enableval
-    else
-	shared_ok=yes
-    fi
-
-    AC_ARG_ENABLE(stubs,
-	AC_HELP_STRING([--enable-stubs],
-	    [build and link with stub libraries. Always true for shared builds (default: on)]),
-	[stubs_ok=$enableval], [stubs_ok=yes])
-
-    if test "${enable_stubs+set}" = set; then
-	enableval="$enable_stubs"
-	stubs_ok=$enableval
-    else
-	stubs_ok=yes
-    fi
-
-    # Stubs are always enabled for shared builds
-    if test "$shared_ok" = "yes" ; then
-	AC_MSG_RESULT([shared])
-	SHARED_BUILD=1
-        STUBS_BUILD=1
-    else
-	AC_MSG_RESULT([static])
-	SHARED_BUILD=0
-	AC_DEFINE(STATIC_BUILD, 1, [This a static build])
-        if test "$stubs_ok" = "yes" ; then
-          STUBS_BUILD=1
-        else
-          STUBS_BUILD=0
-        fi
-    fi
-    if test "${STUBS_BUILD}" = "1" ; then
-      AC_DEFINE(USE_TCL_STUBS, 1, [Use Tcl stubs])
-      AC_DEFINE(USE_TCLOO_STUBS, 1, [Use TclOO stubs])
-      if test "${TEA_WINDOWINGSYSTEM}" != ""; then
-        AC_DEFINE(USE_TK_STUBS, 1, [Use Tk stubs])
-      fi
-    fi
-
-    AC_SUBST(SHARED_BUILD)
-    AC_SUBST(STUBS_BUILD)
-])
-
-#------------------------------------------------------------------------
-# TEA_ENABLE_THREADS --
-#
-#	Specify if thread support should be enabled.  If "yes" is specified
-#	as an arg (optional), threads are enabled by default, "no" means
-#	threads are disabled.  "yes" is the default.
-#
-#	TCL_THREADS is checked so that if you are compiling an extension
-#	against a threaded core, your extension must be compiled threaded
-#	as well.
-#
-#	Note that it is legal to have a thread enabled extension run in a
-#	threaded or non-threaded Tcl core, but a non-threaded extension may
-#	only run in a non-threaded Tcl core.
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Adds the following arguments to configure:
-#		--enable-threads
-#
-#	Sets the following vars:
-#		THREADS_LIBS	Thread library(s)
-#
-#	Defines the following vars:
-#		TCL_THREADS
-#		_REENTRANT
-#		_THREAD_SAFE
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_ENABLE_THREADS], [
-    AC_ARG_ENABLE(threads,
-	AC_HELP_STRING([--enable-threads],
-	    [build with threads (default: on)]),
-	[tcl_ok=$enableval], [tcl_ok=yes])
-
-    if test "${enable_threads+set}" = set; then
-	enableval="$enable_threads"
-	tcl_ok=$enableval
-    else
-	tcl_ok=yes
-    fi
-
-    if test "$tcl_ok" = "yes" -o "${TCL_THREADS}" = 1; then
-	TCL_THREADS=1
-
-	if test "${TEA_PLATFORM}" != "windows" ; then
-	    # We are always OK on Windows, so check what this platform wants:
-
-	    # USE_THREAD_ALLOC tells us to try the special thread-based
-	    # allocator that significantly reduces lock contention
-	    AC_DEFINE(USE_THREAD_ALLOC, 1,
-		[Do we want to use the threaded memory allocator?])
-	    AC_DEFINE(_REENTRANT, 1, [Do we want the reentrant OS API?])
-	    if test "`uname -s`" = "SunOS" ; then
-		AC_DEFINE(_POSIX_PTHREAD_SEMANTICS, 1,
-			[Do we really want to follow the standard? Yes we do!])
-	    fi
-	    AC_DEFINE(_THREAD_SAFE, 1, [Do we want the thread-safe OS API?])
-	    AC_CHECK_LIB(pthread,pthread_mutex_init,tcl_ok=yes,tcl_ok=no)
-	    if test "$tcl_ok" = "no"; then
-		# Check a little harder for __pthread_mutex_init in the same
-		# library, as some systems hide it there until pthread.h is
-		# defined.  We could alternatively do an AC_TRY_COMPILE with
-		# pthread.h, but that will work with libpthread really doesn't
-		# exist, like AIX 4.2.  [Bug: 4359]
-		AC_CHECK_LIB(pthread, __pthread_mutex_init,
-		    tcl_ok=yes, tcl_ok=no)
-	    fi
-
-	    if test "$tcl_ok" = "yes"; then
-		# The space is needed
-		THREADS_LIBS=" -lpthread"
-	    else
-		AC_CHECK_LIB(pthreads, pthread_mutex_init,
-		    tcl_ok=yes, tcl_ok=no)
-		if test "$tcl_ok" = "yes"; then
-		    # The space is needed
-		    THREADS_LIBS=" -lpthreads"
-		else
-		    AC_CHECK_LIB(c, pthread_mutex_init,
-			tcl_ok=yes, tcl_ok=no)
-		    if test "$tcl_ok" = "no"; then
-			AC_CHECK_LIB(c_r, pthread_mutex_init,
-			    tcl_ok=yes, tcl_ok=no)
-			if test "$tcl_ok" = "yes"; then
-			    # The space is needed
-			    THREADS_LIBS=" -pthread"
-			else
-			    TCL_THREADS=0
-			    AC_MSG_WARN([Do not know how to find pthread lib on your system - thread support disabled])
-			fi
-		    fi
-		fi
-	    fi
-	fi
-    else
-	TCL_THREADS=0
-    fi
-    # Do checking message here to not mess up interleaved configure output
-    AC_MSG_CHECKING([for building with threads])
-    if test "${TCL_THREADS}" = 1; then
-	AC_DEFINE(TCL_THREADS, 1, [Are we building with threads enabled?])
-	AC_MSG_RESULT([yes (default)])
-    else
-	AC_MSG_RESULT([no])
-    fi
-    # TCL_THREADS sanity checking.  See if our request for building with
-    # threads is the same as the way Tcl was built.  If not, warn the user.
-    case ${TCL_DEFS} in
-	*THREADS=1*)
-	    if test "${TCL_THREADS}" = "0"; then
-		AC_MSG_WARN([
-    Building ${PACKAGE_NAME} without threads enabled, but building against Tcl
-    that IS thread-enabled.  It is recommended to use --enable-threads.])
-	    fi
-	    ;;
-    esac
-    AC_SUBST(TCL_THREADS)
-])
-
-#------------------------------------------------------------------------
-# TEA_ENABLE_SYMBOLS --
-#
-#	Specify if debugging symbols should be used.
-#	Memory (TCL_MEM_DEBUG) debugging can also be enabled.
-#
-# Arguments:
-#	none
-#
-#	TEA varies from core Tcl in that C|LDFLAGS_DEFAULT receives
-#	the value of C|LDFLAGS_OPTIMIZE|DEBUG already substituted.
-#	Requires the following vars to be set in the Makefile:
-#		CFLAGS_DEFAULT
-#		LDFLAGS_DEFAULT
-#
-# Results:
-#
-#	Adds the following arguments to configure:
-#		--enable-symbols
-#
-#	Defines the following vars:
-#		CFLAGS_DEFAULT	Sets to $(CFLAGS_DEBUG) if true
-#				Sets to "$(CFLAGS_OPTIMIZE) -DNDEBUG" if false
-#		LDFLAGS_DEFAULT	Sets to $(LDFLAGS_DEBUG) if true
-#				Sets to $(LDFLAGS_OPTIMIZE) if false
-#		DBGX		Formerly used as debug library extension;
-#				always blank now.
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_ENABLE_SYMBOLS], [
-    dnl TEA specific: Make sure we are initialized
-    AC_REQUIRE([TEA_CONFIG_CFLAGS])
-    AC_MSG_CHECKING([for build with symbols])
-    AC_ARG_ENABLE(symbols,
-	AC_HELP_STRING([--enable-symbols],
-	    [build with debugging symbols (default: off)]),
-	[tcl_ok=$enableval], [tcl_ok=no])
-    DBGX=""
-    if test "$tcl_ok" = "no"; then
-	CFLAGS_DEFAULT="${CFLAGS_OPTIMIZE} -DNDEBUG"
-	LDFLAGS_DEFAULT="${LDFLAGS_OPTIMIZE}"
-	AC_MSG_RESULT([no])
-    else
-	CFLAGS_DEFAULT="${CFLAGS_DEBUG}"
-	LDFLAGS_DEFAULT="${LDFLAGS_DEBUG}"
-	if test "$tcl_ok" = "yes"; then
-	    AC_MSG_RESULT([yes (standard debugging)])
-	fi
-    fi
-    # TEA specific:
-    if test "${TEA_PLATFORM}" != "windows" ; then
-	LDFLAGS_DEFAULT="${LDFLAGS}"
-    fi
-    AC_SUBST(CFLAGS_DEFAULT)
-    AC_SUBST(LDFLAGS_DEFAULT)
-    AC_SUBST(TCL_DBGX)
-
-    if test "$tcl_ok" = "mem" -o "$tcl_ok" = "all"; then
-	AC_DEFINE(TCL_MEM_DEBUG, 1, [Is memory debugging enabled?])
-    fi
-
-    if test "$tcl_ok" != "yes" -a "$tcl_ok" != "no"; then
-	if test "$tcl_ok" = "all"; then
-	    AC_MSG_RESULT([enabled symbols mem debugging])
-	else
-	    AC_MSG_RESULT([enabled $tcl_ok debugging])
-	fi
-    fi
-])
-
-#------------------------------------------------------------------------
-# TEA_ENABLE_LANGINFO --
-#
-#	Allows use of modern nl_langinfo check for better l10n.
-#	This is only relevant for Unix.
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Adds the following arguments to configure:
-#		--enable-langinfo=yes|no (default is yes)
-#
-#	Defines the following vars:
-#		HAVE_LANGINFO	Triggers use of nl_langinfo if defined.
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_ENABLE_LANGINFO], [
-    AC_ARG_ENABLE(langinfo,
-	AC_HELP_STRING([--enable-langinfo],
-	    [use nl_langinfo if possible to determine encoding at startup, otherwise use old heuristic (default: on)]),
-	[langinfo_ok=$enableval], [langinfo_ok=yes])
-
-    HAVE_LANGINFO=0
-    if test "$langinfo_ok" = "yes"; then
-	AC_CHECK_HEADER(langinfo.h,[langinfo_ok=yes],[langinfo_ok=no])
-    fi
-    AC_MSG_CHECKING([whether to use nl_langinfo])
-    if test "$langinfo_ok" = "yes"; then
-	AC_CACHE_VAL(tcl_cv_langinfo_h, [
-	    AC_TRY_COMPILE([#include <langinfo.h>], [nl_langinfo(CODESET);],
-		    [tcl_cv_langinfo_h=yes],[tcl_cv_langinfo_h=no])])
-	AC_MSG_RESULT([$tcl_cv_langinfo_h])
-	if test $tcl_cv_langinfo_h = yes; then
-	    AC_DEFINE(HAVE_LANGINFO, 1, [Do we have nl_langinfo()?])
-	fi
-    else
-	AC_MSG_RESULT([$langinfo_ok])
-    fi
-])
-
-#--------------------------------------------------------------------
-# TEA_CONFIG_SYSTEM
-#
-#	Determine what the system is (some things cannot be easily checked
-#	on a feature-driven basis, alas). This can usually be done via the
-#	"uname" command.
-#
-# Arguments:
-#	none
-#
-# Results:
-#	Defines the following var:
-#
-#	system -	System/platform/version identification code.
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_CONFIG_SYSTEM], [
-    AC_CACHE_CHECK([system version], tcl_cv_sys_version, [
-	# TEA specific:
-	if test "${TEA_PLATFORM}" = "windows" ; then
-	    tcl_cv_sys_version=windows
-	else
-	    tcl_cv_sys_version=`uname -s`-`uname -r`
-	    if test "$?" -ne 0 ; then
-		AC_MSG_WARN([can't find uname command])
-		tcl_cv_sys_version=unknown
-	    else
-		if test "`uname -s`" = "AIX" ; then
-		    tcl_cv_sys_version=AIX-`uname -v`.`uname -r`
-		fi
-	    fi
-	fi
-    ])
-    system=$tcl_cv_sys_version
-])
-
-#--------------------------------------------------------------------
-# TEA_CONFIG_CFLAGS
-#
-#	Try to determine the proper flags to pass to the compiler
-#	for building shared libraries and other such nonsense.
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Defines and substitutes the following vars:
-#
-#	DL_OBJS, DL_LIBS - removed for TEA, only needed by core.
-#       LDFLAGS -      Flags to pass to the compiler when linking object
-#                       files into an executable application binary such
-#                       as tclsh.
-#       LD_SEARCH_FLAGS-Flags to pass to ld, such as "-R /usr/local/tcl/lib",
-#                       that tell the run-time dynamic linker where to look
-#                       for shared libraries such as libtcl.so.  Depends on
-#                       the variable LIB_RUNTIME_DIR in the Makefile. Could
-#                       be the same as CC_SEARCH_FLAGS if ${CC} is used to link.
-#       CC_SEARCH_FLAGS-Flags to pass to ${CC}, such as "-Wl,-rpath,/usr/local/tcl/lib",
-#                       that tell the run-time dynamic linker where to look
-#                       for shared libraries such as libtcl.so.  Depends on
-#                       the variable LIB_RUNTIME_DIR in the Makefile.
-#       SHLIB_CFLAGS -  Flags to pass to cc when compiling the components
-#                       of a shared library (may request position-independent
-#                       code, among other things).
-#       SHLIB_LD -      Base command to use for combining object files
-#                       into a shared library.
-#       SHLIB_LD_LIBS - Dependent libraries for the linker to scan when
-#                       creating shared libraries.  This symbol typically
-#                       goes at the end of the "ld" commands that build
-#                       shared libraries. The value of the symbol defaults to
-#                       "${LIBS}" if all of the dependent libraries should
-#                       be specified when creating a shared library.  If
-#                       dependent libraries should not be specified (as on
-#                       SunOS 4.x, where they cause the link to fail, or in
-#                       general if Tcl and Tk aren't themselves shared
-#                       libraries), then this symbol has an empty string
-#                       as its value.
-#       SHLIB_SUFFIX -  Suffix to use for the names of dynamically loadable
-#                       extensions.  An empty string means we don't know how
-#                       to use shared libraries on this platform.
-#       LIB_SUFFIX -    Specifies everything that comes after the "libfoo"
-#                       in a static or shared library name, using the $PACKAGE_VERSION variable
-#                       to put the version in the right place.  This is used
-#                       by platforms that need non-standard library names.
-#                       Examples:  ${PACKAGE_VERSION}.so.1.1 on NetBSD, since it needs
-#                       to have a version after the .so, and ${PACKAGE_VERSION}.a
-#                       on AIX, since a shared library needs to have
-#                       a .a extension whereas shared objects for loadable
-#                       extensions have a .so extension.  Defaults to
-#                       ${PACKAGE_VERSION}${SHLIB_SUFFIX}.
-#	CFLAGS_DEBUG -
-#			Flags used when running the compiler in debug mode
-#	CFLAGS_OPTIMIZE -
-#			Flags used when running the compiler in optimize mode
-#	CFLAGS -	Additional CFLAGS added as necessary (usually 64-bit)
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_CONFIG_CFLAGS], [
-    dnl TEA specific: Make sure we are initialized
-    AC_REQUIRE([TEA_INIT])
-
-    # Step 0.a: Enable 64 bit support?
-
-    AC_MSG_CHECKING([if 64bit support is requested])
-    AC_ARG_ENABLE(64bit,
-	AC_HELP_STRING([--enable-64bit],
-	    [enable 64bit support (default: off)]),
-	[do64bit=$enableval], [do64bit=no])
-    AC_MSG_RESULT([$do64bit])
-
-    # Step 0.b: Enable Solaris 64 bit VIS support?
-
-    AC_MSG_CHECKING([if 64bit Sparc VIS support is requested])
-    AC_ARG_ENABLE(64bit-vis,
-	AC_HELP_STRING([--enable-64bit-vis],
-	    [enable 64bit Sparc VIS support (default: off)]),
-	[do64bitVIS=$enableval], [do64bitVIS=no])
-    AC_MSG_RESULT([$do64bitVIS])
-    # Force 64bit on with VIS
-    AS_IF([test "$do64bitVIS" = "yes"], [do64bit=yes])
-
-    # Step 0.c: Check if visibility support is available. Do this here so
-    # that platform specific alternatives can be used below if this fails.
-
-    AC_CACHE_CHECK([if compiler supports visibility "hidden"],
-	tcl_cv_cc_visibility_hidden, [
-	hold_cflags=$CFLAGS; CFLAGS="$CFLAGS -Werror"
-	AC_TRY_LINK([
-	    extern __attribute__((__visibility__("hidden"))) void f(void);
-	    void f(void) {}], [f();], tcl_cv_cc_visibility_hidden=yes,
-	    tcl_cv_cc_visibility_hidden=no)
-	CFLAGS=$hold_cflags])
-    AS_IF([test $tcl_cv_cc_visibility_hidden = yes], [
-	AC_DEFINE(MODULE_SCOPE,
-	    [extern __attribute__((__visibility__("hidden")))],
-	    [Compiler support for module scope symbols])
-	AC_DEFINE(HAVE_HIDDEN, [1], [Compiler support for module scope symbols])
-    ])
-
-    # Step 0.d: Disable -rpath support?
-
-    AC_MSG_CHECKING([if rpath support is requested])
-    AC_ARG_ENABLE(rpath,
-	AC_HELP_STRING([--disable-rpath],
-	    [disable rpath support (default: on)]),
-	[doRpath=$enableval], [doRpath=yes])
-    AC_MSG_RESULT([$doRpath])
-
-    # TEA specific: Cross-compiling options for Windows/CE builds?
-
-    AS_IF([test "${TEA_PLATFORM}" = windows], [
-	AC_MSG_CHECKING([if Windows/CE build is requested])
-	AC_ARG_ENABLE(wince,
-	    AC_HELP_STRING([--enable-wince],
-		[enable Win/CE support (where applicable)]),
-	    [doWince=$enableval], [doWince=no])
-	AC_MSG_RESULT([$doWince])
-    ])
-
-    # Set the variable "system" to hold the name and version number
-    # for the system.
-
-    TEA_CONFIG_SYSTEM
-
-    # Require ranlib early so we can override it in special cases below.
-
-    AC_REQUIRE([AC_PROG_RANLIB])
-
-    # Set configuration options based on system name and version.
-    # This is similar to Tcl's unix/tcl.m4 except that we've added a
-    # "windows" case and removed some core-only vars.
-
-    do64bit_ok=no
-    # default to '{$LIBS}' and set to "" on per-platform necessary basis
-    SHLIB_LD_LIBS='${LIBS}'
-    # When ld needs options to work in 64-bit mode, put them in
-    # LDFLAGS_ARCH so they eventually end up in LDFLAGS even if [load]
-    # is disabled by the user. [Bug 1016796]
-    LDFLAGS_ARCH=""
-    UNSHARED_LIB_SUFFIX=""
-    # TEA specific: use PACKAGE_VERSION instead of VERSION
-    TCL_TRIM_DOTS='`echo ${PACKAGE_VERSION} | tr -d .`'
-    ECHO_VERSION='`echo ${PACKAGE_VERSION}`'
-    TCL_LIB_VERSIONS_OK=ok
-    CFLAGS_DEBUG=-g
-    AS_IF([test "$GCC" = yes], [
-	CFLAGS_OPTIMIZE=-O2
-	CFLAGS_WARNING="-Wall"
-    ], [
-	CFLAGS_OPTIMIZE=-O
-	CFLAGS_WARNING=""
-    ])
-    AC_CHECK_TOOL(AR, ar)
-    STLIB_LD='${AR} cr'
-    LD_LIBRARY_PATH_VAR="LD_LIBRARY_PATH"
-    AS_IF([test "x$SHLIB_VERSION" = x],[SHLIB_VERSION=""],[SHLIB_VERSION=".$SHLIB_VERSION"])
-    case $system in
-	# TEA specific:
-	windows)
-	    # This is a 2-stage check to make sure we have the 64-bit SDK
-	    # We have to know where the SDK is installed.
-	    # This magic is based on MS Platform SDK for Win2003 SP1 - hobbs
-	    # MACHINE is IX86 for LINK, but this is used by the manifest,
-	    # which requires x86|amd64|ia64.
-	    MACHINE="X86"
-	    if test "$do64bit" != "no" ; then
-		if test "x${MSSDK}x" = "xx" ; then
-		    MSSDK="C:/Progra~1/Microsoft Platform SDK"
-		fi
-		MSSDK=`echo "$MSSDK" | sed -e  's!\\\!/!g'`
-		PATH64=""
-		case "$do64bit" in
-		    amd64|x64|yes)
-			MACHINE="AMD64" ; # default to AMD64 64-bit build
-			PATH64="${MSSDK}/Bin/Win64/x86/AMD64"
-			;;
-		    ia64)
-			MACHINE="IA64"
-			PATH64="${MSSDK}/Bin/Win64"
-			;;
-		esac
-		if test "$GCC" != "yes" -a ! -d "${PATH64}" ; then
-		    AC_MSG_WARN([Could not find 64-bit $MACHINE SDK to enable 64bit mode])
-		    AC_MSG_WARN([Ensure latest Platform SDK is installed])
-		    do64bit="no"
-		else
-		    AC_MSG_RESULT([   Using 64-bit $MACHINE mode])
-		    do64bit_ok="yes"
-		fi
-	    fi
-
-	    if test "$doWince" != "no" ; then
-		if test "$do64bit" != "no" ; then
-		    AC_MSG_ERROR([Windows/CE and 64-bit builds incompatible])
-		fi
-		if test "$GCC" = "yes" ; then
-		    AC_MSG_ERROR([Windows/CE and GCC builds incompatible])
-		fi
-		TEA_PATH_CELIB
-		# Set defaults for common evc4/PPC2003 setup
-		# Currently Tcl requires 300+, possibly 420+ for sockets
-		CEVERSION=420; 		# could be 211 300 301 400 420 ...
-		TARGETCPU=ARMV4;	# could be ARMV4 ARM MIPS SH3 X86 ...
-		ARCH=ARM;		# could be ARM MIPS X86EM ...
-		PLATFORM="Pocket PC 2003"; # or "Pocket PC 2002"
-		if test "$doWince" != "yes"; then
-		    # If !yes then the user specified something
-		    # Reset ARCH to allow user to skip specifying it
-		    ARCH=
-		    eval `echo $doWince | awk -F, '{ \
-	    if (length([$]1)) { printf "CEVERSION=\"%s\"\n", [$]1; \
-	    if ([$]1 < 400)   { printf "PLATFORM=\"Pocket PC 2002\"\n" } }; \
-	    if (length([$]2)) { printf "TARGETCPU=\"%s\"\n", toupper([$]2) }; \
-	    if (length([$]3)) { printf "ARCH=\"%s\"\n", toupper([$]3) }; \
-	    if (length([$]4)) { printf "PLATFORM=\"%s\"\n", [$]4 }; \
-		    }'`
-		    if test "x${ARCH}" = "x" ; then
-			ARCH=$TARGETCPU;
-		    fi
-		fi
-		OSVERSION=WCE$CEVERSION;
-	    	if test "x${WCEROOT}" = "x" ; then
-			WCEROOT="C:/Program Files/Microsoft eMbedded C++ 4.0"
-		    if test ! -d "${WCEROOT}" ; then
-			WCEROOT="C:/Program Files/Microsoft eMbedded Tools"
-		    fi
-		fi
-		if test "x${SDKROOT}" = "x" ; then
-		    SDKROOT="C:/Program Files/Windows CE Tools"
-		    if test ! -d "${SDKROOT}" ; then
-			SDKROOT="C:/Windows CE Tools"
-		    fi
-		fi
-		WCEROOT=`echo "$WCEROOT" | sed -e 's!\\\!/!g'`
-		SDKROOT=`echo "$SDKROOT" | sed -e 's!\\\!/!g'`
-		if test ! -d "${SDKROOT}/${OSVERSION}/${PLATFORM}/Lib/${TARGETCPU}" \
-		    -o ! -d "${WCEROOT}/EVC/${OSVERSION}/bin"; then
-		    AC_MSG_ERROR([could not find PocketPC SDK or target compiler to enable WinCE mode [$CEVERSION,$TARGETCPU,$ARCH,$PLATFORM]])
-		    doWince="no"
-		else
-		    # We could PATH_NOSPACE these, but that's not important,
-		    # as long as we quote them when used.
-		    CEINCLUDE="${SDKROOT}/${OSVERSION}/${PLATFORM}/include"
-		    if test -d "${CEINCLUDE}/${TARGETCPU}" ; then
-			CEINCLUDE="${CEINCLUDE}/${TARGETCPU}"
-		    fi
-		    CELIBPATH="${SDKROOT}/${OSVERSION}/${PLATFORM}/Lib/${TARGETCPU}"
-    		fi
-	    fi
-
-	    if test "$GCC" != "yes" ; then
-	        if test "${SHARED_BUILD}" = "0" ; then
-		    runtime=-MT
-	        else
-		    runtime=-MD
-	        fi
-	        case "x`echo \${VisualStudioVersion}`" in
-	            x1[[4-9]]*)
-		        lflags="${lflags} -nodefaultlib:libucrt.lib"
-		        TEA_ADD_LIBS([ucrt.lib])
-	            ;;
-	            *)
-	            ;;
-	        esac
-
-                if test "$do64bit" != "no" ; then
-		    # All this magic is necessary for the Win64 SDK RC1 - hobbs
-		    CC="\"${PATH64}/cl.exe\""
-		    CFLAGS="${CFLAGS} -I\"${MSSDK}/Include\" -I\"${MSSDK}/Include/crt\" -I\"${MSSDK}/Include/crt/sys\""
-		    RC="\"${MSSDK}/bin/rc.exe\""
-		    lflags="${lflags} -nologo -MACHINE:${MACHINE} -LIBPATH:\"${MSSDK}/Lib/${MACHINE}\""
-		    LINKBIN="\"${PATH64}/link.exe\""
-		    CFLAGS_DEBUG="-nologo -Zi -Od -W3 ${runtime}d"
-		    CFLAGS_OPTIMIZE="-nologo -O2 -W2 ${runtime}"
-		    # Avoid 'unresolved external symbol __security_cookie'
-		    # errors, c.f. http://support.microsoft.com/?id=894573
-		    TEA_ADD_LIBS([bufferoverflowU.lib])
-		elif test "$doWince" != "no" ; then
-		    CEBINROOT="${WCEROOT}/EVC/${OSVERSION}/bin"
-		    if test "${TARGETCPU}" = "X86"; then
-			CC="\"${CEBINROOT}/cl.exe\""
-		    else
-			CC="\"${CEBINROOT}/cl${ARCH}.exe\""
-		    fi
-		    CFLAGS="$CFLAGS -I\"${CELIB_DIR}/inc\" -I\"${CEINCLUDE}\""
-		    RC="\"${WCEROOT}/Common/EVC/bin/rc.exe\""
-		    arch=`echo ${ARCH} | awk '{print tolower([$]0)}'`
-		    defs="${ARCH} _${ARCH}_ ${arch} PALM_SIZE _MT _WINDOWS"
-		    if test "${SHARED_BUILD}" = "1" ; then
-			# Static CE builds require static celib as well
-		    	defs="${defs} _DLL"
-		    fi
-		    for i in $defs ; do
-			AC_DEFINE_UNQUOTED($i, 1, [WinCE def ]$i)
-		    done
-		    AC_DEFINE_UNQUOTED(_WIN32_WCE, $CEVERSION, [_WIN32_WCE version])
-		    AC_DEFINE_UNQUOTED(UNDER_CE, $CEVERSION, [UNDER_CE version])
-		    CFLAGS_DEBUG="-nologo -Zi -Od"
-		    CFLAGS_OPTIMIZE="-nologo -Ox"
-		    lversion=`echo ${CEVERSION} | sed -e 's/\(.\)\(..\)/\1\.\2/'`
-		    lflags="${lflags} -MACHINE:${ARCH} -LIBPATH:\"${CELIBPATH}\" -subsystem:windowsce,${lversion} -nologo"
-		    LINKBIN="\"${CEBINROOT}/link.exe\""
-		    AC_SUBST(CELIB_DIR)
-		else
-		    RC="rc"
-		    lflags="${lflags} -nologo"
-		    LINKBIN="link"
-		    CFLAGS_DEBUG="-nologo -Z7 -Od -W3 -WX ${runtime}d"
-		    CFLAGS_OPTIMIZE="-nologo -O2 -W2 ${runtime}"
-		fi
-	    fi
-
-	    if test "$GCC" = "yes"; then
-		# mingw gcc mode
-		AC_CHECK_TOOL(RC, windres)
-		CFLAGS_DEBUG="-g"
-		CFLAGS_OPTIMIZE="-O2 -fomit-frame-pointer"
-		SHLIB_LD='${CC} -shared'
-		UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a'
-		LDFLAGS_CONSOLE="-wl,--subsystem,console ${lflags}"
-		LDFLAGS_WINDOW="-wl,--subsystem,windows ${lflags}"
-
-		AC_CACHE_CHECK(for cross-compile version of gcc,
-			ac_cv_cross,
-			AC_TRY_COMPILE([
-			    #ifdef _WIN32
-				#error cross-compiler
-			    #endif
-			], [],
-			ac_cv_cross=yes,
-			ac_cv_cross=no)
-		      )
-		      if test "$ac_cv_cross" = "yes"; then
-			case "$do64bit" in
-			    amd64|x64|yes)
-				CC="x86_64-w64-mingw32-gcc"
-				LD="x86_64-w64-mingw32-ld"
-				AR="x86_64-w64-mingw32-ar"
-				RANLIB="x86_64-w64-mingw32-ranlib"
-				RC="x86_64-w64-mingw32-windres"
-			    ;;
-			    *)
-				CC="i686-w64-mingw32-gcc"
-				LD="i686-w64-mingw32-ld"
-				AR="i686-w64-mingw32-ar"
-				RANLIB="i686-w64-mingw32-ranlib"
-				RC="i686-w64-mingw32-windres"
-			    ;;
-			esac
-		fi
-
-	    else
-		SHLIB_LD="${LINKBIN} -dll ${lflags}"
-		# link -lib only works when -lib is the first arg
-		STLIB_LD="${LINKBIN} -lib ${lflags}"
-		UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.lib'
-		PATHTYPE=-w
-		# For information on what debugtype is most useful, see:
-		# http://msdn.microsoft.com/library/en-us/dnvc60/html/gendepdebug.asp
-		# and also
-		# http://msdn2.microsoft.com/en-us/library/y0zzbyt4%28VS.80%29.aspx
-		# This essentially turns it all on.
-		LDFLAGS_DEBUG="-debug -debugtype:cv"
-		LDFLAGS_OPTIMIZE="-release"
-		if test "$doWince" != "no" ; then
-		    LDFLAGS_CONSOLE="-link ${lflags}"
-		    LDFLAGS_WINDOW=${LDFLAGS_CONSOLE}
-		else
-		    LDFLAGS_CONSOLE="-link -subsystem:console ${lflags}"
-		    LDFLAGS_WINDOW="-link -subsystem:windows ${lflags}"
-		fi
-	    fi
-
-	    SHLIB_SUFFIX=".dll"
-	    SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.dll'
-
-	    TCL_LIB_VERSIONS_OK=nodots
-    	    ;;
-	AIX-*)
-	    AS_IF([test "${TCL_THREADS}" = "1" -a "$GCC" != "yes"], [
-		# AIX requires the _r compiler when gcc isn't being used
-		case "${CC}" in
-		    *_r|*_r\ *)
-			# ok ...
-			;;
-		    *)
-			# Make sure only first arg gets _r
-		    	CC=`echo "$CC" | sed -e 's/^\([[^ ]]*\)/\1_r/'`
-			;;
-		esac
-		AC_MSG_RESULT([Using $CC for compiling with threads])
-	    ])
-	    LIBS="$LIBS -lc"
-	    SHLIB_CFLAGS=""
-	    SHLIB_SUFFIX=".so"
-
-	    LD_LIBRARY_PATH_VAR="LIBPATH"
-
-	    # Check to enable 64-bit flags for compiler/linker
-	    AS_IF([test "$do64bit" = yes], [
-		AS_IF([test "$GCC" = yes], [
-		    AC_MSG_WARN([64bit mode not supported with GCC on $system])
-		], [
-		    do64bit_ok=yes
-		    CFLAGS="$CFLAGS -q64"
-		    LDFLAGS_ARCH="-q64"
-		    RANLIB="${RANLIB} -X64"
-		    AR="${AR} -X64"
-		    SHLIB_LD_FLAGS="-b64"
-		])
-	    ])
-
-	    AS_IF([test "`uname -m`" = ia64], [
-		# AIX-5 uses ELF style dynamic libraries on IA-64, but not PPC
-		SHLIB_LD="/usr/ccs/bin/ld -G -z text"
-		AS_IF([test "$GCC" = yes], [
-		    CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}'
-		], [
-		    CC_SEARCH_FLAGS='-R${LIB_RUNTIME_DIR}'
-		])
-		LD_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}'
-	    ], [
-		AS_IF([test "$GCC" = yes], [
-		    SHLIB_LD='${CC} -shared -Wl,-bexpall'
-		], [
-		    SHLIB_LD="/bin/ld -bhalt:4 -bM:SRE -bexpall -H512 -T512 -bnoentry"
-		    LDFLAGS="$LDFLAGS -brtl"
-		])
-		SHLIB_LD="${SHLIB_LD} ${SHLIB_LD_FLAGS}"
-		CC_SEARCH_FLAGS='-L${LIB_RUNTIME_DIR}'
-		LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
-	    ])
-	    ;;
-	BeOS*)
-	    SHLIB_CFLAGS="-fPIC"
-	    SHLIB_LD='${CC} -nostart'
-	    SHLIB_SUFFIX=".so"
-
-	    #-----------------------------------------------------------
-	    # Check for inet_ntoa in -lbind, for BeOS (which also needs
-	    # -lsocket, even if the network functions are in -lnet which
-	    # is always linked to, for compatibility.
-	    #-----------------------------------------------------------
-	    AC_CHECK_LIB(bind, inet_ntoa, [LIBS="$LIBS -lbind -lsocket"])
-	    ;;
-	BSD/OS-4.*)
-	    SHLIB_CFLAGS="-export-dynamic -fPIC"
-	    SHLIB_LD='${CC} -shared'
-	    SHLIB_SUFFIX=".so"
-	    LDFLAGS="$LDFLAGS -export-dynamic"
-	    CC_SEARCH_FLAGS=""
-	    LD_SEARCH_FLAGS=""
-	    ;;
-	CYGWIN_*)
-	    SHLIB_CFLAGS=""
-	    SHLIB_LD='${CC} -shared'
-	    SHLIB_LD_LIBS="${SHLIB_LD_LIBS} -Wl,--out-implib,\$[@].a"
-	    SHLIB_SUFFIX=".dll"
-	    EXEEXT=".exe"
-	    do64bit_ok=yes
-	    CC_SEARCH_FLAGS=""
-	    LD_SEARCH_FLAGS=""
-	    ;;
-	Haiku*)
-	    LDFLAGS="$LDFLAGS -Wl,--export-dynamic"
-	    SHLIB_CFLAGS="-fPIC"
-	    SHLIB_SUFFIX=".so"
-	    SHLIB_LD='${CC} ${CFLAGS} ${LDFLAGS} -shared'
-	    AC_CHECK_LIB(network, inet_ntoa, [LIBS="$LIBS -lnetwork"])
-	    ;;
-	HP-UX-*.11.*)
-	    # Use updated header definitions where possible
-	    AC_DEFINE(_XOPEN_SOURCE_EXTENDED, 1, [Do we want to use the XOPEN network library?])
-	    # TEA specific: Needed by Tcl, but not most extensions
-	    #AC_DEFINE(_XOPEN_SOURCE, 1, [Do we want to use the XOPEN network library?])
-	    #LIBS="$LIBS -lxnet"               # Use the XOPEN network library
-
-	    AS_IF([test "`uname -m`" = ia64], [
-		SHLIB_SUFFIX=".so"
-		# Use newer C++ library for C++ extensions
-		#if test "$GCC" != "yes" ; then
-		#   CPPFLAGS="-AA"
-		#fi
-	    ], [
-		SHLIB_SUFFIX=".sl"
-	    ])
-	    AC_CHECK_LIB(dld, shl_load, tcl_ok=yes, tcl_ok=no)
-	    AS_IF([test "$tcl_ok" = yes], [
-		LDFLAGS="$LDFLAGS -Wl,-E"
-		CC_SEARCH_FLAGS='-Wl,+s,+b,${LIB_RUNTIME_DIR}:.'
-		LD_SEARCH_FLAGS='+s +b ${LIB_RUNTIME_DIR}:.'
-		LD_LIBRARY_PATH_VAR="SHLIB_PATH"
-	    ])
-	    AS_IF([test "$GCC" = yes], [
-		SHLIB_LD='${CC} -shared'
-		LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
-	    ], [
-		CFLAGS="$CFLAGS -z"
-		# Users may want PA-RISC 1.1/2.0 portable code - needs HP cc
-		#CFLAGS="$CFLAGS +DAportable"
-		SHLIB_CFLAGS="+z"
-		SHLIB_LD="ld -b"
-	    ])
-
-	    # Check to enable 64-bit flags for compiler/linker
-	    AS_IF([test "$do64bit" = "yes"], [
-		AS_IF([test "$GCC" = yes], [
-		    case `${CC} -dumpmachine` in
-			hppa64*)
-			    # 64-bit gcc in use.  Fix flags for GNU ld.
-			    do64bit_ok=yes
-			    SHLIB_LD='${CC} -shared'
-			    AS_IF([test $doRpath = yes], [
-				CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'])
-			    LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
-			    ;;
-			*)
-			    AC_MSG_WARN([64bit mode not supported with GCC on $system])
-			    ;;
-		    esac
-		], [
-		    do64bit_ok=yes
-		    CFLAGS="$CFLAGS +DD64"
-		    LDFLAGS_ARCH="+DD64"
-		])
-	    ]) ;;
-	IRIX-6.*)
-	    SHLIB_CFLAGS=""
-	    SHLIB_LD="ld -n32 -shared -rdata_shared"
-	    SHLIB_SUFFIX=".so"
-	    AS_IF([test $doRpath = yes], [
-		CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'
-		LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}'])
-	    AS_IF([test "$GCC" = yes], [
-		CFLAGS="$CFLAGS -mabi=n32"
-		LDFLAGS="$LDFLAGS -mabi=n32"
-	    ], [
-		case $system in
-		    IRIX-6.3)
-			# Use to build 6.2 compatible binaries on 6.3.
-			CFLAGS="$CFLAGS -n32 -D_OLD_TERMIOS"
-			;;
-		    *)
-			CFLAGS="$CFLAGS -n32"
-			;;
-		esac
-		LDFLAGS="$LDFLAGS -n32"
-	    ])
-	    ;;
-	IRIX64-6.*)
-	    SHLIB_CFLAGS=""
-	    SHLIB_LD="ld -n32 -shared -rdata_shared"
-	    SHLIB_SUFFIX=".so"
-	    AS_IF([test $doRpath = yes], [
-		CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'
-		LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}'])
-
-	    # Check to enable 64-bit flags for compiler/linker
-
-	    AS_IF([test "$do64bit" = yes], [
-	        AS_IF([test "$GCC" = yes], [
-	            AC_MSG_WARN([64bit mode not supported by gcc])
-	        ], [
-	            do64bit_ok=yes
-	            SHLIB_LD="ld -64 -shared -rdata_shared"
-	            CFLAGS="$CFLAGS -64"
-	            LDFLAGS_ARCH="-64"
-	        ])
-	    ])
-	    ;;
-	Linux*|GNU*|NetBSD-Debian)
-	    SHLIB_CFLAGS="-fPIC"
-	    SHLIB_SUFFIX=".so"
-
-	    # TEA specific:
-	    CFLAGS_OPTIMIZE="-O2 -fomit-frame-pointer"
-
-	    # TEA specific: use LDFLAGS_DEFAULT instead of LDFLAGS
-	    SHLIB_LD='${CC} ${CFLAGS} ${LDFLAGS_DEFAULT} -shared'
-	    LDFLAGS="$LDFLAGS -Wl,--export-dynamic"
-	    AS_IF([test $doRpath = yes], [
-		CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'])
-	    LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
-	    AS_IF([test "`uname -m`" = "alpha"], [CFLAGS="$CFLAGS -mieee"])
-	    AS_IF([test $do64bit = yes], [
-		AC_CACHE_CHECK([if compiler accepts -m64 flag], tcl_cv_cc_m64, [
-		    hold_cflags=$CFLAGS
-		    CFLAGS="$CFLAGS -m64"
-		    AC_TRY_LINK(,, tcl_cv_cc_m64=yes, tcl_cv_cc_m64=no)
-		    CFLAGS=$hold_cflags])
-		AS_IF([test $tcl_cv_cc_m64 = yes], [
-		    CFLAGS="$CFLAGS -m64"
-		    do64bit_ok=yes
-		])
-	   ])
-
-	    # The combo of gcc + glibc has a bug related to inlining of
-	    # functions like strtod(). The -fno-builtin flag should address
-	    # this problem but it does not work. The -fno-inline flag is kind
-	    # of overkill but it works. Disable inlining only when one of the
-	    # files in compat/*.c is being linked in.
-
-	    AS_IF([test x"${USE_COMPAT}" != x],[CFLAGS="$CFLAGS -fno-inline"])
-	    ;;
-	Lynx*)
-	    SHLIB_CFLAGS="-fPIC"
-	    SHLIB_SUFFIX=".so"
-	    CFLAGS_OPTIMIZE=-02
-	    SHLIB_LD='${CC} -shared'
-	    LD_FLAGS="-Wl,--export-dynamic"
-	    AS_IF([test $doRpath = yes], [
-		CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'
-		LD_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'])
-	    ;;
-	OpenBSD-*)
-	    arch=`arch -s`
-	    case "$arch" in
-	    alpha|sparc64)
-		SHLIB_CFLAGS="-fPIC"
-		;;
-	    *)
-		SHLIB_CFLAGS="-fpic"
-		;;
-	    esac
-	    SHLIB_LD='${CC} ${SHLIB_CFLAGS} -shared'
-	    SHLIB_SUFFIX=".so"
-	    AS_IF([test $doRpath = yes], [
-		CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'])
-	    LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
-	    SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.so${SHLIB_VERSION}'
-	    LDFLAGS="-Wl,-export-dynamic"
-	    CFLAGS_OPTIMIZE="-O2"
-	    AS_IF([test "${TCL_THREADS}" = "1"], [
-		# On OpenBSD:	Compile with -pthread
-		#		Don't link with -lpthread
-		LIBS=`echo $LIBS | sed s/-lpthread//`
-		CFLAGS="$CFLAGS -pthread"
-	    ])
-	    # OpenBSD doesn't do version numbers with dots.
-	    UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a'
-	    TCL_LIB_VERSIONS_OK=nodots
-	    ;;
-	NetBSD-*)
-	    # NetBSD has ELF and can use 'cc -shared' to build shared libs
-	    SHLIB_CFLAGS="-fPIC"
-	    SHLIB_LD='${CC} ${SHLIB_CFLAGS} -shared'
-	    SHLIB_SUFFIX=".so"
-	    LDFLAGS="$LDFLAGS -export-dynamic"
-	    AS_IF([test $doRpath = yes], [
-		CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'])
-	    LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
-	    AS_IF([test "${TCL_THREADS}" = "1"], [
-		# The -pthread needs to go in the CFLAGS, not LIBS
-		LIBS=`echo $LIBS | sed s/-pthread//`
-		CFLAGS="$CFLAGS -pthread"
-	    	LDFLAGS="$LDFLAGS -pthread"
-	    ])
-	    ;;
-	DragonFly-*|FreeBSD-*)
-	    # This configuration from FreeBSD Ports.
-	    SHLIB_CFLAGS="-fPIC"
-	    SHLIB_LD="${CC} -shared"
-	    SHLIB_LD_LIBS="${SHLIB_LD_LIBS} -Wl,-soname,\$[@]"
-	    SHLIB_SUFFIX=".so"
-	    LDFLAGS=""
-	    AS_IF([test $doRpath = yes], [
-		CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'
-		LD_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'])
-	    AS_IF([test "${TCL_THREADS}" = "1"], [
-		# The -pthread needs to go in the LDFLAGS, not LIBS
-		LIBS=`echo $LIBS | sed s/-pthread//`
-		CFLAGS="$CFLAGS $PTHREAD_CFLAGS"
-		LDFLAGS="$LDFLAGS $PTHREAD_LIBS"])
-	    case $system in
-	    FreeBSD-3.*)
-		# Version numbers are dot-stripped by system policy.
-		TCL_TRIM_DOTS=`echo ${PACKAGE_VERSION} | tr -d .`
-		UNSHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}.a'
-		SHARED_LIB_SUFFIX='${TCL_TRIM_DOTS}\$\{DBGX\}.so.1'
-		TCL_LIB_VERSIONS_OK=nodots
-		;;
-	    esac
-	    ;;
-	Darwin-*)
-	    CFLAGS_OPTIMIZE="-Os"
-	    SHLIB_CFLAGS="-fno-common"
-	    # To avoid discrepancies between what headers configure sees during
-	    # preprocessing tests and compiling tests, move any -isysroot and
-	    # -mmacosx-version-min flags from CFLAGS to CPPFLAGS:
-	    CPPFLAGS="${CPPFLAGS} `echo " ${CFLAGS}" | \
-		awk 'BEGIN {FS=" +-";ORS=" "}; {for (i=2;i<=NF;i++) \
-		if ([$]i~/^(isysroot|mmacosx-version-min)/) print "-"[$]i}'`"
-	    CFLAGS="`echo " ${CFLAGS}" | \
-		awk 'BEGIN {FS=" +-";ORS=" "}; {for (i=2;i<=NF;i++) \
-		if (!([$]i~/^(isysroot|mmacosx-version-min)/)) print "-"[$]i}'`"
-	    AS_IF([test $do64bit = yes], [
-		case `arch` in
-		    ppc)
-			AC_CACHE_CHECK([if compiler accepts -arch ppc64 flag],
-				tcl_cv_cc_arch_ppc64, [
-			    hold_cflags=$CFLAGS
-			    CFLAGS="$CFLAGS -arch ppc64 -mpowerpc64 -mcpu=G5"
-			    AC_TRY_LINK(,, tcl_cv_cc_arch_ppc64=yes,
-				    tcl_cv_cc_arch_ppc64=no)
-			    CFLAGS=$hold_cflags])
-			AS_IF([test $tcl_cv_cc_arch_ppc64 = yes], [
-			    CFLAGS="$CFLAGS -arch ppc64 -mpowerpc64 -mcpu=G5"
-			    do64bit_ok=yes
-			]);;
-		    i386)
-			AC_CACHE_CHECK([if compiler accepts -arch x86_64 flag],
-				tcl_cv_cc_arch_x86_64, [
-			    hold_cflags=$CFLAGS
-			    CFLAGS="$CFLAGS -arch x86_64"
-			    AC_TRY_LINK(,, tcl_cv_cc_arch_x86_64=yes,
-				    tcl_cv_cc_arch_x86_64=no)
-			    CFLAGS=$hold_cflags])
-			AS_IF([test $tcl_cv_cc_arch_x86_64 = yes], [
-			    CFLAGS="$CFLAGS -arch x86_64"
-			    do64bit_ok=yes
-			]);;
-		    *)
-			AC_MSG_WARN([Don't know how enable 64-bit on architecture `arch`]);;
-		esac
-	    ], [
-		# Check for combined 32-bit and 64-bit fat build
-		AS_IF([echo "$CFLAGS " |grep -E -q -- '-arch (ppc64|x86_64) ' \
-		    && echo "$CFLAGS " |grep -E -q -- '-arch (ppc|i386) '], [
-		    fat_32_64=yes])
-	    ])
-	    # TEA specific: use LDFLAGS_DEFAULT instead of LDFLAGS
-	    SHLIB_LD='${CC} -dynamiclib ${CFLAGS} ${LDFLAGS_DEFAULT}'
-	    AC_CACHE_CHECK([if ld accepts -single_module flag], tcl_cv_ld_single_module, [
-		hold_ldflags=$LDFLAGS
-		LDFLAGS="$LDFLAGS -dynamiclib -Wl,-single_module"
-		AC_TRY_LINK(, [int i;], tcl_cv_ld_single_module=yes, tcl_cv_ld_single_module=no)
-		LDFLAGS=$hold_ldflags])
-	    AS_IF([test $tcl_cv_ld_single_module = yes], [
-		SHLIB_LD="${SHLIB_LD} -Wl,-single_module"
-	    ])
-	    # TEA specific: link shlib with current and compatibility version flags
-	    vers=`echo ${PACKAGE_VERSION} | sed -e 's/^\([[0-9]]\{1,5\}\)\(\(\.[[0-9]]\{1,3\}\)\{0,2\}\).*$/\1\2/p' -e d`
-	    SHLIB_LD="${SHLIB_LD} -current_version ${vers:-0} -compatibility_version ${vers:-0}"
-	    SHLIB_SUFFIX=".dylib"
-	    # Don't use -prebind when building for Mac OS X 10.4 or later only:
-	    AS_IF([test "`echo "${MACOSX_DEPLOYMENT_TARGET}" | awk -F '10\\.' '{print int([$]2)}'`" -lt 4 -a \
-		"`echo "${CPPFLAGS}" | awk -F '-mmacosx-version-min=10\\.' '{print int([$]2)}'`" -lt 4], [
-		LDFLAGS="$LDFLAGS -prebind"])
-	    LDFLAGS="$LDFLAGS -headerpad_max_install_names"
-	    AC_CACHE_CHECK([if ld accepts -search_paths_first flag],
-		    tcl_cv_ld_search_paths_first, [
-		hold_ldflags=$LDFLAGS
-		LDFLAGS="$LDFLAGS -Wl,-search_paths_first"
-		AC_TRY_LINK(, [int i;], tcl_cv_ld_search_paths_first=yes,
-			tcl_cv_ld_search_paths_first=no)
-		LDFLAGS=$hold_ldflags])
-	    AS_IF([test $tcl_cv_ld_search_paths_first = yes], [
-		LDFLAGS="$LDFLAGS -Wl,-search_paths_first"
-	    ])
-	    AS_IF([test "$tcl_cv_cc_visibility_hidden" != yes], [
-		AC_DEFINE(MODULE_SCOPE, [__private_extern__],
-		    [Compiler support for module scope symbols])
-		tcl_cv_cc_visibility_hidden=yes
-	    ])
-	    CC_SEARCH_FLAGS=""
-	    LD_SEARCH_FLAGS=""
-	    LD_LIBRARY_PATH_VAR="DYLD_LIBRARY_PATH"
-	    # TEA specific: for combined 32 & 64 bit fat builds of Tk
-	    # extensions, verify that 64-bit build is possible.
-	    AS_IF([test "$fat_32_64" = yes && test -n "${TK_BIN_DIR}"], [
-		AS_IF([test "${TEA_WINDOWINGSYSTEM}" = x11], [
-		    AC_CACHE_CHECK([for 64-bit X11], tcl_cv_lib_x11_64, [
-			for v in CFLAGS CPPFLAGS LDFLAGS; do
-			    eval 'hold_'$v'="$'$v'";'$v'="`echo "$'$v' "|sed -e "s/-arch ppc / /g" -e "s/-arch i386 / /g"`"'
-			done
-			CPPFLAGS="$CPPFLAGS -I/usr/X11R6/include"
-			LDFLAGS="$LDFLAGS -L/usr/X11R6/lib -lX11"
-			AC_TRY_LINK([#include <X11/Xlib.h>], [XrmInitialize();],
-			    tcl_cv_lib_x11_64=yes, tcl_cv_lib_x11_64=no)
-			for v in CFLAGS CPPFLAGS LDFLAGS; do
-			    eval $v'="$hold_'$v'"'
-			done])
-		])
-		AS_IF([test "${TEA_WINDOWINGSYSTEM}" = aqua], [
-		    AC_CACHE_CHECK([for 64-bit Tk], tcl_cv_lib_tk_64, [
-			for v in CFLAGS CPPFLAGS LDFLAGS; do
-			    eval 'hold_'$v'="$'$v'";'$v'="`echo "$'$v' "|sed -e "s/-arch ppc / /g" -e "s/-arch i386 / /g"`"'
-			done
-			CPPFLAGS="$CPPFLAGS -DUSE_TCL_STUBS=1 -DUSE_TK_STUBS=1 ${TCL_INCLUDES} ${TK_INCLUDES}"
-			LDFLAGS="$LDFLAGS ${TCL_STUB_LIB_SPEC} ${TK_STUB_LIB_SPEC}"
-			AC_TRY_LINK([#include <tk.h>], [Tk_InitStubs(NULL, "", 0);],
-			    tcl_cv_lib_tk_64=yes, tcl_cv_lib_tk_64=no)
-			for v in CFLAGS CPPFLAGS LDFLAGS; do
-			    eval $v'="$hold_'$v'"'
-			done])
-		])
-		# remove 64-bit arch flags from CFLAGS et al. if configuration
-		# does not support 64-bit.
-		AS_IF([test "$tcl_cv_lib_tk_64" = no -o "$tcl_cv_lib_x11_64" = no], [
-		    AC_MSG_NOTICE([Removing 64-bit architectures from compiler & linker flags])
-		    for v in CFLAGS CPPFLAGS LDFLAGS; do
-			eval $v'="`echo "$'$v' "|sed -e "s/-arch ppc64 / /g" -e "s/-arch x86_64 / /g"`"'
-		    done])
-	    ])
-	    ;;
-	OS/390-*)
-	    CFLAGS_OPTIMIZE=""		# Optimizer is buggy
-	    AC_DEFINE(_OE_SOCKETS, 1,	# needed in sys/socket.h
-		[Should OS/390 do the right thing with sockets?])
-	    ;;
-	OSF1-V*)
-	    # Digital OSF/1
-	    SHLIB_CFLAGS=""
-	    AS_IF([test "$SHARED_BUILD" = 1], [
-	        SHLIB_LD='ld -shared -expect_unresolved "*"'
-	    ], [
-	        SHLIB_LD='ld -non_shared -expect_unresolved "*"'
-	    ])
-	    SHLIB_SUFFIX=".so"
-	    AS_IF([test $doRpath = yes], [
-		CC_SEARCH_FLAGS='-Wl,-rpath,${LIB_RUNTIME_DIR}'
-		LD_SEARCH_FLAGS='-rpath ${LIB_RUNTIME_DIR}'])
-	    AS_IF([test "$GCC" = yes], [CFLAGS="$CFLAGS -mieee"], [
-		CFLAGS="$CFLAGS -DHAVE_TZSET -std1 -ieee"])
-	    # see pthread_intro(3) for pthread support on osf1, k.furukawa
-	    AS_IF([test "${TCL_THREADS}" = 1], [
-		CFLAGS="$CFLAGS -DHAVE_PTHREAD_ATTR_SETSTACKSIZE"
-		CFLAGS="$CFLAGS -DTCL_THREAD_STACK_MIN=PTHREAD_STACK_MIN*64"
-		LIBS=`echo $LIBS | sed s/-lpthreads//`
-		AS_IF([test "$GCC" = yes], [
-		    LIBS="$LIBS -lpthread -lmach -lexc"
-		], [
-		    CFLAGS="$CFLAGS -pthread"
-		    LDFLAGS="$LDFLAGS -pthread"
-		])
-	    ])
-	    ;;
-	QNX-6*)
-	    # QNX RTP
-	    # This may work for all QNX, but it was only reported for v6.
-	    SHLIB_CFLAGS="-fPIC"
-	    SHLIB_LD="ld -Bshareable -x"
-	    SHLIB_LD_LIBS=""
-	    SHLIB_SUFFIX=".so"
-	    CC_SEARCH_FLAGS=""
-	    LD_SEARCH_FLAGS=""
-	    ;;
-	SCO_SV-3.2*)
-	    AS_IF([test "$GCC" = yes], [
-		SHLIB_CFLAGS="-fPIC -melf"
-		LDFLAGS="$LDFLAGS -melf -Wl,-Bexport"
-	    ], [
-		SHLIB_CFLAGS="-Kpic -belf"
-		LDFLAGS="$LDFLAGS -belf -Wl,-Bexport"
-	    ])
-	    SHLIB_LD="ld -G"
-	    SHLIB_LD_LIBS=""
-	    SHLIB_SUFFIX=".so"
-	    CC_SEARCH_FLAGS=""
-	    LD_SEARCH_FLAGS=""
-	    ;;
-	SunOS-5.[[0-6]])
-	    # Careful to not let 5.10+ fall into this case
-
-	    # Note: If _REENTRANT isn't defined, then Solaris
-	    # won't define thread-safe library routines.
-
-	    AC_DEFINE(_REENTRANT, 1, [Do we want the reentrant OS API?])
-	    AC_DEFINE(_POSIX_PTHREAD_SEMANTICS, 1,
-		[Do we really want to follow the standard? Yes we do!])
-
-	    SHLIB_CFLAGS="-KPIC"
-	    SHLIB_SUFFIX=".so"
-	    AS_IF([test "$GCC" = yes], [
-		SHLIB_LD='${CC} -shared'
-		CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}'
-		LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
-	    ], [
-		SHLIB_LD="/usr/ccs/bin/ld -G -z text"
-		CC_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}'
-		LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
-	    ])
-	    ;;
-	SunOS-5*)
-	    # Note: If _REENTRANT isn't defined, then Solaris
-	    # won't define thread-safe library routines.
-
-	    AC_DEFINE(_REENTRANT, 1, [Do we want the reentrant OS API?])
-	    AC_DEFINE(_POSIX_PTHREAD_SEMANTICS, 1,
-		[Do we really want to follow the standard? Yes we do!])
-
-	    SHLIB_CFLAGS="-KPIC"
-
-	    # Check to enable 64-bit flags for compiler/linker
-	    AS_IF([test "$do64bit" = yes], [
-		arch=`isainfo`
-		AS_IF([test "$arch" = "sparcv9 sparc"], [
-		    AS_IF([test "$GCC" = yes], [
-			AS_IF([test "`${CC} -dumpversion | awk -F. '{print [$]1}'`" -lt 3], [
-			    AC_MSG_WARN([64bit mode not supported with GCC < 3.2 on $system])
-			], [
-			    do64bit_ok=yes
-			    CFLAGS="$CFLAGS -m64 -mcpu=v9"
-			    LDFLAGS="$LDFLAGS -m64 -mcpu=v9"
-			    SHLIB_CFLAGS="-fPIC"
-			])
-		    ], [
-			do64bit_ok=yes
-			AS_IF([test "$do64bitVIS" = yes], [
-			    CFLAGS="$CFLAGS -xarch=v9a"
-			    LDFLAGS_ARCH="-xarch=v9a"
-			], [
-			    CFLAGS="$CFLAGS -xarch=v9"
-			    LDFLAGS_ARCH="-xarch=v9"
-			])
-			# Solaris 64 uses this as well
-			#LD_LIBRARY_PATH_VAR="LD_LIBRARY_PATH_64"
-		    ])
-		], [AS_IF([test "$arch" = "amd64 i386"], [
-		    AS_IF([test "$GCC" = yes], [
-			case $system in
-			    SunOS-5.1[[1-9]]*|SunOS-5.[[2-9]][[0-9]]*)
-				do64bit_ok=yes
-				CFLAGS="$CFLAGS -m64"
-				LDFLAGS="$LDFLAGS -m64";;
-			    *)
-				AC_MSG_WARN([64bit mode not supported with GCC on $system]);;
-			esac
-		    ], [
-			do64bit_ok=yes
-			case $system in
-			    SunOS-5.1[[1-9]]*|SunOS-5.[[2-9]][[0-9]]*)
-				CFLAGS="$CFLAGS -m64"
-				LDFLAGS="$LDFLAGS -m64";;
-			    *)
-				CFLAGS="$CFLAGS -xarch=amd64"
-				LDFLAGS="$LDFLAGS -xarch=amd64";;
-			esac
-		    ])
-		], [AC_MSG_WARN([64bit mode not supported for $arch])])])
-	    ])
-
-	    SHLIB_SUFFIX=".so"
-	    AS_IF([test "$GCC" = yes], [
-		SHLIB_LD='${CC} -shared'
-		CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}'
-		LD_SEARCH_FLAGS=${CC_SEARCH_FLAGS}
-		AS_IF([test "$do64bit_ok" = yes], [
-		    AS_IF([test "$arch" = "sparcv9 sparc"], [
-			# We need to specify -static-libgcc or we need to
-			# add the path to the sparv9 libgcc.
-			# JH: static-libgcc is necessary for core Tcl, but may
-			# not be necessary for extensions.
-			SHLIB_LD="$SHLIB_LD -m64 -mcpu=v9 -static-libgcc"
-			# for finding sparcv9 libgcc, get the regular libgcc
-			# path, remove so name and append 'sparcv9'
-			#v9gcclibdir="`gcc -print-file-name=libgcc_s.so` | ..."
-			#CC_SEARCH_FLAGS="${CC_SEARCH_FLAGS},-R,$v9gcclibdir"
-		    ], [AS_IF([test "$arch" = "amd64 i386"], [
-			# JH: static-libgcc is necessary for core Tcl, but may
-			# not be necessary for extensions.
-			SHLIB_LD="$SHLIB_LD -m64 -static-libgcc"
-		    ])])
-		])
-	    ], [
-		case $system in
-		    SunOS-5.[[1-9]][[0-9]]*)
-			# TEA specific: use LDFLAGS_DEFAULT instead of LDFLAGS
-			SHLIB_LD='${CC} -G -z text ${LDFLAGS_DEFAULT}';;
-		    *)
-			SHLIB_LD='/usr/ccs/bin/ld -G -z text';;
-		esac
-		CC_SEARCH_FLAGS='-Wl,-R,${LIB_RUNTIME_DIR}'
-		LD_SEARCH_FLAGS='-R ${LIB_RUNTIME_DIR}'
-	    ])
-	    ;;
-	UNIX_SV* | UnixWare-5*)
-	    SHLIB_CFLAGS="-KPIC"
-	    SHLIB_LD='${CC} -G'
-	    SHLIB_LD_LIBS=""
-	    SHLIB_SUFFIX=".so"
-	    # Some UNIX_SV* systems (unixware 1.1.2 for example) have linkers
-	    # that don't grok the -Bexport option.  Test that it does.
-	    AC_CACHE_CHECK([for ld accepts -Bexport flag], tcl_cv_ld_Bexport, [
-		hold_ldflags=$LDFLAGS
-		LDFLAGS="$LDFLAGS -Wl,-Bexport"
-		AC_TRY_LINK(, [int i;], tcl_cv_ld_Bexport=yes, tcl_cv_ld_Bexport=no)
-	        LDFLAGS=$hold_ldflags])
-	    AS_IF([test $tcl_cv_ld_Bexport = yes], [
-		LDFLAGS="$LDFLAGS -Wl,-Bexport"
-	    ])
-	    CC_SEARCH_FLAGS=""
-	    LD_SEARCH_FLAGS=""
-	    ;;
-    esac
-
-    AS_IF([test "$do64bit" = yes -a "$do64bit_ok" = no], [
-	AC_MSG_WARN([64bit support being disabled -- don't know magic for this platform])
-    ])
-
-dnl # Add any CPPFLAGS set in the environment to our CFLAGS, but delay doing so
-dnl # until the end of configure, as configure's compile and link tests use
-dnl # both CPPFLAGS and CFLAGS (unlike our compile and link) but configure's
-dnl # preprocessing tests use only CPPFLAGS.
-    AC_CONFIG_COMMANDS_PRE([CFLAGS="${CFLAGS} ${CPPFLAGS}"; CPPFLAGS=""])
-
-    # Add in the arch flags late to ensure it wasn't removed.
-    # Not necessary in TEA, but this is aligned with core
-    LDFLAGS="$LDFLAGS $LDFLAGS_ARCH"
-
-    # If we're running gcc, then change the C flags for compiling shared
-    # libraries to the right flags for gcc, instead of those for the
-    # standard manufacturer compiler.
-
-    AS_IF([test "$GCC" = yes], [
-	case $system in
-	    AIX-*) ;;
-	    BSD/OS*) ;;
-	    CYGWIN_*|MINGW32_*|MINGW64_*) ;;
-	    IRIX*) ;;
-	    NetBSD-*|DragonFly-*|FreeBSD-*|OpenBSD-*) ;;
-	    Darwin-*) ;;
-	    SCO_SV-3.2*) ;;
-	    windows) ;;
-	    *) SHLIB_CFLAGS="-fPIC" ;;
-	esac])
-
-    AS_IF([test "$tcl_cv_cc_visibility_hidden" != yes], [
-	AC_DEFINE(MODULE_SCOPE, [extern],
-	    [No Compiler support for module scope symbols])
-    ])
-
-    AS_IF([test "$SHARED_LIB_SUFFIX" = ""], [
-    # TEA specific: use PACKAGE_VERSION instead of VERSION
-    SHARED_LIB_SUFFIX='${PACKAGE_VERSION}${SHLIB_SUFFIX}'])
-    AS_IF([test "$UNSHARED_LIB_SUFFIX" = ""], [
-    # TEA specific: use PACKAGE_VERSION instead of VERSION
-    UNSHARED_LIB_SUFFIX='${PACKAGE_VERSION}.a'])
-
-    if test "${GCC}" = "yes" -a ${SHLIB_SUFFIX} = ".dll"; then
-	AC_CACHE_CHECK(for SEH support in compiler,
-	    tcl_cv_seh,
-	AC_TRY_RUN([
-#define WIN32_LEAN_AND_MEAN
-#include <windows.h>
-#undef WIN32_LEAN_AND_MEAN
-
-	    int main(int argc, char** argv) {
-		int a, b = 0;
-		__try {
-		    a = 666 / b;
-		}
-		__except (EXCEPTION_EXECUTE_HANDLER) {
-		    return 0;
-		}
-		return 1;
-	    }
-	],
-	    tcl_cv_seh=yes,
-	    tcl_cv_seh=no,
-	    tcl_cv_seh=no)
-	)
-	if test "$tcl_cv_seh" = "no" ; then
-	    AC_DEFINE(HAVE_NO_SEH, 1,
-		    [Defined when mingw does not support SEH])
-	fi
-
-	#
-	# Check to see if the excpt.h include file provided contains the
-	# definition for EXCEPTION_DISPOSITION; if not, which is the case
-	# with Cygwin's version as of 2002-04-10, define it to be int,
-	# sufficient for getting the current code to work.
-	#
-	AC_CACHE_CHECK(for EXCEPTION_DISPOSITION support in include files,
-	    tcl_cv_eh_disposition,
-	    AC_TRY_COMPILE([
-#	    define WIN32_LEAN_AND_MEAN
-#	    include <windows.h>
-#	    undef WIN32_LEAN_AND_MEAN
-	    ],[
-		EXCEPTION_DISPOSITION x;
-	    ],
-		tcl_cv_eh_disposition=yes,
-		tcl_cv_eh_disposition=no)
-	)
-	if test "$tcl_cv_eh_disposition" = "no" ; then
-	AC_DEFINE(EXCEPTION_DISPOSITION, int,
-		[Defined when cygwin/mingw does not support EXCEPTION DISPOSITION])
-	fi
-
-	# Check to see if winnt.h defines CHAR, SHORT, and LONG
-	# even if VOID has already been #defined. The win32api
-	# used by mingw and cygwin is known to do this.
-
-	AC_CACHE_CHECK(for winnt.h that ignores VOID define,
-	    tcl_cv_winnt_ignore_void,
-	    AC_TRY_COMPILE([
-#define VOID void
-#define WIN32_LEAN_AND_MEAN
-#include <windows.h>
-#undef WIN32_LEAN_AND_MEAN
-	    ], [
-		CHAR c;
-		SHORT s;
-		LONG l;
-	    ],
-        tcl_cv_winnt_ignore_void=yes,
-        tcl_cv_winnt_ignore_void=no)
-	)
-	if test "$tcl_cv_winnt_ignore_void" = "yes" ; then
-	    AC_DEFINE(HAVE_WINNT_IGNORE_VOID, 1,
-		    [Defined when cygwin/mingw ignores VOID define in winnt.h])
-	fi
-    fi
-
-	# See if the compiler supports casting to a union type.
-	# This is used to stop gcc from printing a compiler
-	# warning when initializing a union member.
-
-	AC_CACHE_CHECK(for cast to union support,
-	    tcl_cv_cast_to_union,
-	    AC_TRY_COMPILE([],
-	    [
-		  union foo { int i; double d; };
-		  union foo f = (union foo) (int) 0;
-	    ],
-	    tcl_cv_cast_to_union=yes,
-	    tcl_cv_cast_to_union=no)
-	)
-	if test "$tcl_cv_cast_to_union" = "yes"; then
-	    AC_DEFINE(HAVE_CAST_TO_UNION, 1,
-		    [Defined when compiler supports casting to union type.])
-	fi
-
-    AC_SUBST(CFLAGS_DEBUG)
-    AC_SUBST(CFLAGS_OPTIMIZE)
-    AC_SUBST(CFLAGS_WARNING)
-
-    AC_SUBST(STLIB_LD)
-    AC_SUBST(SHLIB_LD)
-
-    AC_SUBST(SHLIB_LD_LIBS)
-    AC_SUBST(SHLIB_CFLAGS)
-
-    AC_SUBST(LD_LIBRARY_PATH_VAR)
-
-    # These must be called after we do the basic CFLAGS checks and
-    # verify any possible 64-bit or similar switches are necessary
-    TEA_TCL_EARLY_FLAGS
-    TEA_TCL_64BIT_FLAGS
-])
-
-#--------------------------------------------------------------------
-# TEA_SERIAL_PORT
-#
-#	Determine which interface to use to talk to the serial port.
-#	Note that #include lines must begin in leftmost column for
-#	some compilers to recognize them as preprocessor directives,
-#	and some build environments have stdin not pointing at a
-#	pseudo-terminal (usually /dev/null instead.)
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Defines only one of the following vars:
-#		HAVE_SYS_MODEM_H
-#		USE_TERMIOS
-#		USE_TERMIO
-#		USE_SGTTY
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_SERIAL_PORT], [
-    AC_CHECK_HEADERS(sys/modem.h)
-    AC_CACHE_CHECK([termios vs. termio vs. sgtty], tcl_cv_api_serial, [
-    AC_TRY_RUN([
-#include <termios.h>
-
-int main() {
-    struct termios t;
-    if (tcgetattr(0, &t) == 0) {
-	cfsetospeed(&t, 0);
-	t.c_cflag |= PARENB | PARODD | CSIZE | CSTOPB;
-	return 0;
-    }
-    return 1;
-}], tcl_cv_api_serial=termios, tcl_cv_api_serial=no, tcl_cv_api_serial=no)
-    if test $tcl_cv_api_serial = no ; then
-	AC_TRY_RUN([
-#include <termio.h>
-
-int main() {
-    struct termio t;
-    if (ioctl(0, TCGETA, &t) == 0) {
-	t.c_cflag |= CBAUD | PARENB | PARODD | CSIZE | CSTOPB;
-	return 0;
-    }
-    return 1;
-}], tcl_cv_api_serial=termio, tcl_cv_api_serial=no, tcl_cv_api_serial=no)
-    fi
-    if test $tcl_cv_api_serial = no ; then
-	AC_TRY_RUN([
-#include <sgtty.h>
-
-int main() {
-    struct sgttyb t;
-    if (ioctl(0, TIOCGETP, &t) == 0) {
-	t.sg_ospeed = 0;
-	t.sg_flags |= ODDP | EVENP | RAW;
-	return 0;
-    }
-    return 1;
-}], tcl_cv_api_serial=sgtty, tcl_cv_api_serial=no, tcl_cv_api_serial=no)
-    fi
-    if test $tcl_cv_api_serial = no ; then
-	AC_TRY_RUN([
-#include <termios.h>
-#include <errno.h>
-
-int main() {
-    struct termios t;
-    if (tcgetattr(0, &t) == 0
-	|| errno == ENOTTY || errno == ENXIO || errno == EINVAL) {
-	cfsetospeed(&t, 0);
-	t.c_cflag |= PARENB | PARODD | CSIZE | CSTOPB;
-	return 0;
-    }
-    return 1;
-}], tcl_cv_api_serial=termios, tcl_cv_api_serial=no, tcl_cv_api_serial=no)
-    fi
-    if test $tcl_cv_api_serial = no; then
-	AC_TRY_RUN([
-#include <termio.h>
-#include <errno.h>
-
-int main() {
-    struct termio t;
-    if (ioctl(0, TCGETA, &t) == 0
-	|| errno == ENOTTY || errno == ENXIO || errno == EINVAL) {
-	t.c_cflag |= CBAUD | PARENB | PARODD | CSIZE | CSTOPB;
-	return 0;
-    }
-    return 1;
-    }], tcl_cv_api_serial=termio, tcl_cv_api_serial=no, tcl_cv_api_serial=no)
-    fi
-    if test $tcl_cv_api_serial = no; then
-	AC_TRY_RUN([
-#include <sgtty.h>
-#include <errno.h>
-
-int main() {
-    struct sgttyb t;
-    if (ioctl(0, TIOCGETP, &t) == 0
-	|| errno == ENOTTY || errno == ENXIO || errno == EINVAL) {
-	t.sg_ospeed = 0;
-	t.sg_flags |= ODDP | EVENP | RAW;
-	return 0;
-    }
-    return 1;
-}], tcl_cv_api_serial=sgtty, tcl_cv_api_serial=none, tcl_cv_api_serial=none)
-    fi])
-    case $tcl_cv_api_serial in
-	termios) AC_DEFINE(USE_TERMIOS, 1, [Use the termios API for serial lines]);;
-	termio)  AC_DEFINE(USE_TERMIO, 1, [Use the termio API for serial lines]);;
-	sgtty)   AC_DEFINE(USE_SGTTY, 1, [Use the sgtty API for serial lines]);;
-    esac
-])
-
-#--------------------------------------------------------------------
-# TEA_PATH_X
-#
-#	Locate the X11 header files and the X11 library archive.  Try
-#	the ac_path_x macro first, but if it doesn't find the X stuff
-#	(e.g. because there's no xmkmf program) then check through
-#	a list of possible directories.  Under some conditions the
-#	autoconf macro will return an include directory that contains
-#	no include files, so double-check its result just to be safe.
-#
-#	This should be called after TEA_CONFIG_CFLAGS as setting the
-#	LIBS line can confuse some configure macro magic.
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Sets the following vars:
-#		XINCLUDES
-#		XLIBSW
-#		PKG_LIBS (appends to)
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_PATH_X], [
-    if test "${TEA_WINDOWINGSYSTEM}" = "x11" ; then
-	TEA_PATH_UNIX_X
-    fi
-])
-
-AC_DEFUN([TEA_PATH_UNIX_X], [
-    AC_PATH_X
-    not_really_there=""
-    if test "$no_x" = ""; then
-	if test "$x_includes" = ""; then
-	    AC_TRY_CPP([#include <X11/Xlib.h>], , not_really_there="yes")
-	else
-	    if test ! -r $x_includes/X11/Xlib.h; then
-		not_really_there="yes"
-	    fi
-	fi
-    fi
-    if test "$no_x" = "yes" -o "$not_really_there" = "yes"; then
-	AC_MSG_CHECKING([for X11 header files])
-	found_xincludes="no"
-	AC_TRY_CPP([#include <X11/Xlib.h>], found_xincludes="yes", found_xincludes="no")
-	if test "$found_xincludes" = "no"; then
-	    dirs="/usr/unsupported/include /usr/local/include /usr/X386/include /usr/X11R6/include /usr/X11R5/include /usr/include/X11R5 /usr/include/X11R4 /usr/openwin/include /usr/X11/include /usr/sww/include"
-	    for i in $dirs ; do
-		if test -r $i/X11/Xlib.h; then
-		    AC_MSG_RESULT([$i])
-		    XINCLUDES=" -I$i"
-		    found_xincludes="yes"
-		    break
-		fi
-	    done
-	fi
-    else
-	if test "$x_includes" != ""; then
-	    XINCLUDES="-I$x_includes"
-	    found_xincludes="yes"
-	fi
-    fi
-    if test "$found_xincludes" = "no"; then
-	AC_MSG_RESULT([couldn't find any!])
-    fi
-
-    if test "$no_x" = yes; then
-	AC_MSG_CHECKING([for X11 libraries])
-	XLIBSW=nope
-	dirs="/usr/unsupported/lib /usr/local/lib /usr/X386/lib /usr/X11R6/lib /usr/X11R5/lib /usr/lib/X11R5 /usr/lib/X11R4 /usr/openwin/lib /usr/X11/lib /usr/sww/X11/lib"
-	for i in $dirs ; do
-	    if test -r $i/libX11.a -o -r $i/libX11.so -o -r $i/libX11.sl -o -r $i/libX11.dylib; then
-		AC_MSG_RESULT([$i])
-		XLIBSW="-L$i -lX11"
-		x_libraries="$i"
-		break
-	    fi
-	done
-    else
-	if test "$x_libraries" = ""; then
-	    XLIBSW=-lX11
-	else
-	    XLIBSW="-L$x_libraries -lX11"
-	fi
-    fi
-    if test "$XLIBSW" = nope ; then
-	AC_CHECK_LIB(Xwindow, XCreateWindow, XLIBSW=-lXwindow)
-    fi
-    if test "$XLIBSW" = nope ; then
-	AC_MSG_RESULT([could not find any!  Using -lX11.])
-	XLIBSW=-lX11
-    fi
-    # TEA specific:
-    if test x"${XLIBSW}" != x ; then
-	PKG_LIBS="${PKG_LIBS} ${XLIBSW}"
-    fi
-])
-
-#--------------------------------------------------------------------
-# TEA_BLOCKING_STYLE
-#
-#	The statements below check for systems where POSIX-style
-#	non-blocking I/O (O_NONBLOCK) doesn't work or is unimplemented.
-#	On these systems (mostly older ones), use the old BSD-style
-#	FIONBIO approach instead.
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Defines some of the following vars:
-#		HAVE_SYS_IOCTL_H
-#		HAVE_SYS_FILIO_H
-#		USE_FIONBIO
-#		O_NONBLOCK
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_BLOCKING_STYLE], [
-    AC_CHECK_HEADERS(sys/ioctl.h)
-    AC_CHECK_HEADERS(sys/filio.h)
-    TEA_CONFIG_SYSTEM
-    AC_MSG_CHECKING([FIONBIO vs. O_NONBLOCK for nonblocking I/O])
-    case $system in
-	OSF*)
-	    AC_DEFINE(USE_FIONBIO, 1, [Should we use FIONBIO?])
-	    AC_MSG_RESULT([FIONBIO])
-	    ;;
-	*)
-	    AC_MSG_RESULT([O_NONBLOCK])
-	    ;;
-    esac
-])
-
-#--------------------------------------------------------------------
-# TEA_TIME_HANDLER
-#
-#	Checks how the system deals with time.h, what time structures
-#	are used on the system, and what fields the structures have.
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Defines some of the following vars:
-#		USE_DELTA_FOR_TZ
-#		HAVE_TM_GMTOFF
-#		HAVE_TM_TZADJ
-#		HAVE_TIMEZONE_VAR
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_TIME_HANDLER], [
-    AC_CHECK_HEADERS(sys/time.h)
-    AC_HEADER_TIME
-    AC_STRUCT_TIMEZONE
-
-    AC_CHECK_FUNCS(gmtime_r localtime_r)
-
-    AC_CACHE_CHECK([tm_tzadj in struct tm], tcl_cv_member_tm_tzadj, [
-	AC_TRY_COMPILE([#include <time.h>], [struct tm tm; tm.tm_tzadj;],
-	    tcl_cv_member_tm_tzadj=yes, tcl_cv_member_tm_tzadj=no)])
-    if test $tcl_cv_member_tm_tzadj = yes ; then
-	AC_DEFINE(HAVE_TM_TZADJ, 1, [Should we use the tm_tzadj field of struct tm?])
-    fi
-
-    AC_CACHE_CHECK([tm_gmtoff in struct tm], tcl_cv_member_tm_gmtoff, [
-	AC_TRY_COMPILE([#include <time.h>], [struct tm tm; tm.tm_gmtoff;],
-	    tcl_cv_member_tm_gmtoff=yes, tcl_cv_member_tm_gmtoff=no)])
-    if test $tcl_cv_member_tm_gmtoff = yes ; then
-	AC_DEFINE(HAVE_TM_GMTOFF, 1, [Should we use the tm_gmtoff field of struct tm?])
-    fi
-
-    #
-    # Its important to include time.h in this check, as some systems
-    # (like convex) have timezone functions, etc.
-    #
-    AC_CACHE_CHECK([long timezone variable], tcl_cv_timezone_long, [
-	AC_TRY_COMPILE([#include <time.h>],
-	    [extern long timezone;
-	    timezone += 1;
-	    exit (0);],
-	    tcl_cv_timezone_long=yes, tcl_cv_timezone_long=no)])
-    if test $tcl_cv_timezone_long = yes ; then
-	AC_DEFINE(HAVE_TIMEZONE_VAR, 1, [Should we use the global timezone variable?])
-    else
-	#
-	# On some systems (eg IRIX 6.2), timezone is a time_t and not a long.
-	#
-	AC_CACHE_CHECK([time_t timezone variable], tcl_cv_timezone_time, [
-	    AC_TRY_COMPILE([#include <time.h>],
-		[extern time_t timezone;
-		timezone += 1;
-		exit (0);],
-		tcl_cv_timezone_time=yes, tcl_cv_timezone_time=no)])
-	if test $tcl_cv_timezone_time = yes ; then
-	    AC_DEFINE(HAVE_TIMEZONE_VAR, 1, [Should we use the global timezone variable?])
-	fi
-    fi
-])
-
-#--------------------------------------------------------------------
-# TEA_BUGGY_STRTOD
-#
-#	Under Solaris 2.4, strtod returns the wrong value for the
-#	terminating character under some conditions.  Check for this
-#	and if the problem exists use a substitute procedure
-#	"fixstrtod" (provided by Tcl) that corrects the error.
-#	Also, on Compaq's Tru64 Unix 5.0,
-#	strtod(" ") returns 0.0 instead of a failure to convert.
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Might defines some of the following vars:
-#		strtod (=fixstrtod)
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_BUGGY_STRTOD], [
-    AC_CHECK_FUNC(strtod, tcl_strtod=1, tcl_strtod=0)
-    if test "$tcl_strtod" = 1; then
-	AC_CACHE_CHECK([for Solaris2.4/Tru64 strtod bugs], tcl_cv_strtod_buggy,[
-	    AC_TRY_RUN([
-		extern double strtod();
-		int main() {
-		    char *infString="Inf", *nanString="NaN", *spaceString=" ";
-		    char *term;
-		    double value;
-		    value = strtod(infString, &term);
-		    if ((term != infString) && (term[-1] == 0)) {
-			exit(1);
-		    }
-		    value = strtod(nanString, &term);
-		    if ((term != nanString) && (term[-1] == 0)) {
-			exit(1);
-		    }
-		    value = strtod(spaceString, &term);
-		    if (term == (spaceString+1)) {
-			exit(1);
-		    }
-		    exit(0);
-		}], tcl_cv_strtod_buggy=ok, tcl_cv_strtod_buggy=buggy,
-		    tcl_cv_strtod_buggy=buggy)])
-	if test "$tcl_cv_strtod_buggy" = buggy; then
-	    AC_LIBOBJ([fixstrtod])
-	    USE_COMPAT=1
-	    AC_DEFINE(strtod, fixstrtod, [Do we want to use the strtod() in compat?])
-	fi
-    fi
-])
-
-#--------------------------------------------------------------------
-# TEA_TCL_EARLY_FLAGS
-#
-#	Check for what flags are needed to be passed so the correct OS
-#	features are available.
-#
-# Arguments:
-#	None
-#
-# Results:
-#
-#	Might define the following vars:
-#		_ISOC99_SOURCE
-#		_LARGEFILE64_SOURCE
-#		_LARGEFILE_SOURCE64
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_TCL_EARLY_FLAG],[
-    AC_CACHE_VAL([tcl_cv_flag_]translit($1,[A-Z],[a-z]),
-	AC_TRY_COMPILE([$2], $3, [tcl_cv_flag_]translit($1,[A-Z],[a-z])=no,
-	    AC_TRY_COMPILE([[#define ]$1[ 1
-]$2], $3,
-		[tcl_cv_flag_]translit($1,[A-Z],[a-z])=yes,
-		[tcl_cv_flag_]translit($1,[A-Z],[a-z])=no)))
-    if test ["x${tcl_cv_flag_]translit($1,[A-Z],[a-z])[}" = "xyes"] ; then
-	AC_DEFINE($1, 1, [Add the ]$1[ flag when building])
-	tcl_flags="$tcl_flags $1"
-    fi
-])
-
-AC_DEFUN([TEA_TCL_EARLY_FLAGS],[
-    AC_MSG_CHECKING([for required early compiler flags])
-    tcl_flags=""
-    TEA_TCL_EARLY_FLAG(_ISOC99_SOURCE,[#include <stdlib.h>],
-	[char *p = (char *)strtoll; char *q = (char *)strtoull;])
-    TEA_TCL_EARLY_FLAG(_LARGEFILE64_SOURCE,[#include <sys/stat.h>],
-	[struct stat64 buf; int i = stat64("/", &buf);])
-    TEA_TCL_EARLY_FLAG(_LARGEFILE_SOURCE64,[#include <sys/stat.h>],
-	[char *p = (char *)open64;])
-    if test "x${tcl_flags}" = "x" ; then
-	AC_MSG_RESULT([none])
-    else
-	AC_MSG_RESULT([${tcl_flags}])
-    fi
-])
-
-#--------------------------------------------------------------------
-# TEA_TCL_64BIT_FLAGS
-#
-#	Check for what is defined in the way of 64-bit features.
-#
-# Arguments:
-#	None
-#
-# Results:
-#
-#	Might define the following vars:
-#		TCL_WIDE_INT_IS_LONG
-#		TCL_WIDE_INT_TYPE
-#		HAVE_STRUCT_DIRENT64
-#		HAVE_STRUCT_STAT64
-#		HAVE_TYPE_OFF64_T
-#--------------------------------------------------------------------
-
-AC_DEFUN([TEA_TCL_64BIT_FLAGS], [
-    AC_MSG_CHECKING([for 64-bit integer type])
-    AC_CACHE_VAL(tcl_cv_type_64bit,[
-	tcl_cv_type_64bit=none
-	# See if the compiler knows natively about __int64
-	AC_TRY_COMPILE(,[__int64 value = (__int64) 0;],
-	    tcl_type_64bit=__int64, tcl_type_64bit="long long")
-	# See if we should use long anyway  Note that we substitute in the
-	# type that is our current guess for a 64-bit type inside this check
-	# program, so it should be modified only carefully...
-        AC_TRY_COMPILE(,[switch (0) {
-            case 1: case (sizeof(]${tcl_type_64bit}[)==sizeof(long)): ;
-        }],tcl_cv_type_64bit=${tcl_type_64bit})])
-    if test "${tcl_cv_type_64bit}" = none ; then
-	AC_DEFINE(TCL_WIDE_INT_IS_LONG, 1, [Are wide integers to be implemented with C 'long's?])
-	AC_MSG_RESULT([using long])
-    elif test "${tcl_cv_type_64bit}" = "__int64" \
-		-a "${TEA_PLATFORM}" = "windows" ; then
-	# TEA specific: We actually want to use the default tcl.h checks in
-	# this case to handle both TCL_WIDE_INT_TYPE and TCL_LL_MODIFIER*
-	AC_MSG_RESULT([using Tcl header defaults])
-    else
-	AC_DEFINE_UNQUOTED(TCL_WIDE_INT_TYPE,${tcl_cv_type_64bit},
-	    [What type should be used to define wide integers?])
-	AC_MSG_RESULT([${tcl_cv_type_64bit}])
-
-	# Now check for auxiliary declarations
-	AC_CACHE_CHECK([for struct dirent64], tcl_cv_struct_dirent64,[
-	    AC_TRY_COMPILE([#include <sys/types.h>
-#include <dirent.h>],[struct dirent64 p;],
-		tcl_cv_struct_dirent64=yes,tcl_cv_struct_dirent64=no)])
-	if test "x${tcl_cv_struct_dirent64}" = "xyes" ; then
-	    AC_DEFINE(HAVE_STRUCT_DIRENT64, 1, [Is 'struct dirent64' in <sys/types.h>?])
-	fi
-
-	AC_CACHE_CHECK([for struct stat64], tcl_cv_struct_stat64,[
-	    AC_TRY_COMPILE([#include <sys/stat.h>],[struct stat64 p;
-],
-		tcl_cv_struct_stat64=yes,tcl_cv_struct_stat64=no)])
-	if test "x${tcl_cv_struct_stat64}" = "xyes" ; then
-	    AC_DEFINE(HAVE_STRUCT_STAT64, 1, [Is 'struct stat64' in <sys/stat.h>?])
-	fi
-
-	AC_CHECK_FUNCS(open64 lseek64)
-	AC_MSG_CHECKING([for off64_t])
-	AC_CACHE_VAL(tcl_cv_type_off64_t,[
-	    AC_TRY_COMPILE([#include <sys/types.h>],[off64_t offset;
-],
-		tcl_cv_type_off64_t=yes,tcl_cv_type_off64_t=no)])
-	dnl Define HAVE_TYPE_OFF64_T only when the off64_t type and the
-	dnl functions lseek64 and open64 are defined.
-	if test "x${tcl_cv_type_off64_t}" = "xyes" && \
-	        test "x${ac_cv_func_lseek64}" = "xyes" && \
-	        test "x${ac_cv_func_open64}" = "xyes" ; then
-	    AC_DEFINE(HAVE_TYPE_OFF64_T, 1, [Is off64_t in <sys/types.h>?])
-	    AC_MSG_RESULT([yes])
-	else
-	    AC_MSG_RESULT([no])
-	fi
-    fi
-])
-
-##
-## Here ends the standard Tcl configuration bits and starts the
-## TEA specific functions
-##
-
-#------------------------------------------------------------------------
-# TEA_INIT --
-#
-#	Init various Tcl Extension Architecture (TEA) variables.
-#	This should be the first called TEA_* macro.
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Defines and substs the following vars:
-#		CYGPATH
-#		EXEEXT
-#	Defines only:
-#		TEA_VERSION
-#		TEA_INITED
-#		TEA_PLATFORM (windows or unix)
-#
-# "cygpath" is used on windows to generate native path names for include
-# files. These variables should only be used with the compiler and linker
-# since they generate native path names.
-#
-# EXEEXT
-#	Select the executable extension based on the host type.  This
-#	is a lightweight replacement for AC_EXEEXT that doesn't require
-#	a compiler.
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_INIT], [
-    TEA_VERSION="3.13"
-
-    AC_MSG_CHECKING([TEA configuration])
-    if test x"${PACKAGE_NAME}" = x ; then
-	AC_MSG_ERROR([
-The PACKAGE_NAME variable must be defined by your TEA configure.ac])
-    fi
-    AC_MSG_RESULT([ok (TEA ${TEA_VERSION})])
-
-    # If the user did not set CFLAGS, set it now to keep macros
-    # like AC_PROG_CC and AC_TRY_COMPILE from adding "-g -O2".
-    if test "${CFLAGS+set}" != "set" ; then
-	CFLAGS=""
-    fi
-
-    case "`uname -s`" in
-	*win32*|*WIN32*|*MINGW32_*|*MINGW64_*)
-	    AC_CHECK_PROG(CYGPATH, cygpath, cygpath -m, echo)
-	    EXEEXT=".exe"
-	    TEA_PLATFORM="windows"
-	    ;;
-	*CYGWIN_*)
-	    EXEEXT=".exe"
-	    # CYGPATH and TEA_PLATFORM are determined later in LOAD_TCLCONFIG
-	    ;;
-	*)
-	    CYGPATH=echo
-	    # Maybe we are cross-compiling....
-	    case ${host_alias} in
-		*mingw32*)
-		EXEEXT=".exe"
-		TEA_PLATFORM="windows"
-		;;
-	    *)
-		EXEEXT=""
-		TEA_PLATFORM="unix"
-		;;
-	    esac
-	    ;;
-    esac
-
-    # Check if exec_prefix is set. If not use fall back to prefix.
-    # Note when adjusted, so that TEA_PREFIX can correct for this.
-    # This is needed for recursive configures, since autoconf propagates
-    # $prefix, but not $exec_prefix (doh!).
-    if test x$exec_prefix = xNONE ; then
-	exec_prefix_default=yes
-	exec_prefix=$prefix
-    fi
-
-    AC_MSG_NOTICE([configuring ${PACKAGE_NAME} ${PACKAGE_VERSION}])
-
-    AC_SUBST(EXEEXT)
-    AC_SUBST(CYGPATH)
-
-    # This package name must be replaced statically for AC_SUBST to work
-    AC_SUBST(PKG_LIB_FILE)
-    # Substitute STUB_LIB_FILE in case package creates a stub library too.
-    AC_SUBST(PKG_STUB_LIB_FILE)
-
-    # We AC_SUBST these here to ensure they are subst'ed,
-    # in case the user doesn't call TEA_ADD_...
-    AC_SUBST(PKG_STUB_SOURCES)
-    AC_SUBST(PKG_STUB_OBJECTS)
-    AC_SUBST(PKG_TCL_SOURCES)
-    AC_SUBST(PKG_HEADERS)
-    AC_SUBST(PKG_INCLUDES)
-    AC_SUBST(PKG_LIBS)
-    AC_SUBST(PKG_CFLAGS)
-
-    # Configure the installer.
-    TEA_INSTALLER
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_SOURCES --
-#
-#	Specify one or more source files.  Users should check for
-#	the right platform before adding to their list.
-#	It is not important to specify the directory, as long as it is
-#	in the generic, win or unix subdirectory of $(srcdir).
-#
-# Arguments:
-#	one or more file names
-#
-# Results:
-#
-#	Defines and substs the following vars:
-#		PKG_SOURCES
-#		PKG_OBJECTS
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_SOURCES], [
-    vars="$@"
-    for i in $vars; do
-	case $i in
-	    [\$]*)
-		# allow $-var names
-		PKG_SOURCES="$PKG_SOURCES $i"
-		PKG_OBJECTS="$PKG_OBJECTS $i"
-		;;
-	    *)
-		# check for existence - allows for generic/win/unix VPATH
-		# To add more dirs here (like 'src'), you have to update VPATH
-		# in Makefile.in as well
-		if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \
-		    -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \
-		    -a ! -f "${srcdir}/macosx/$i" \
-		    ; then
-		    AC_MSG_ERROR([could not find source file '$i'])
-		fi
-		PKG_SOURCES="$PKG_SOURCES $i"
-		# this assumes it is in a VPATH dir
-		i=`basename $i`
-		# handle user calling this before or after TEA_SETUP_COMPILER
-		if test x"${OBJEXT}" != x ; then
-		    j="`echo $i | sed -e 's/\.[[^.]]*$//'`.${OBJEXT}"
-		else
-		    j="`echo $i | sed -e 's/\.[[^.]]*$//'`.\${OBJEXT}"
-		fi
-		PKG_OBJECTS="$PKG_OBJECTS $j"
-		;;
-	esac
-    done
-    AC_SUBST(PKG_SOURCES)
-    AC_SUBST(PKG_OBJECTS)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_STUB_SOURCES --
-#
-#	Specify one or more source files.  Users should check for
-#	the right platform before adding to their list.
-#	It is not important to specify the directory, as long as it is
-#	in the generic, win or unix subdirectory of $(srcdir).
-#
-# Arguments:
-#	one or more file names
-#
-# Results:
-#
-#	Defines and substs the following vars:
-#		PKG_STUB_SOURCES
-#		PKG_STUB_OBJECTS
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_STUB_SOURCES], [
-    vars="$@"
-    for i in $vars; do
-	# check for existence - allows for generic/win/unix VPATH
-	if test ! -f "${srcdir}/$i" -a ! -f "${srcdir}/generic/$i" \
-	    -a ! -f "${srcdir}/win/$i" -a ! -f "${srcdir}/unix/$i" \
-	    -a ! -f "${srcdir}/macosx/$i" \
-	    ; then
-	    AC_MSG_ERROR([could not find stub source file '$i'])
-	fi
-	PKG_STUB_SOURCES="$PKG_STUB_SOURCES $i"
-	# this assumes it is in a VPATH dir
-	i=`basename $i`
-	# handle user calling this before or after TEA_SETUP_COMPILER
-	if test x"${OBJEXT}" != x ; then
-	    j="`echo $i | sed -e 's/\.[[^.]]*$//'`.${OBJEXT}"
-	else
-	    j="`echo $i | sed -e 's/\.[[^.]]*$//'`.\${OBJEXT}"
-	fi
-	PKG_STUB_OBJECTS="$PKG_STUB_OBJECTS $j"
-    done
-    AC_SUBST(PKG_STUB_SOURCES)
-    AC_SUBST(PKG_STUB_OBJECTS)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_TCL_SOURCES --
-#
-#	Specify one or more Tcl source files.  These should be platform
-#	independent runtime files.
-#
-# Arguments:
-#	one or more file names
-#
-# Results:
-#
-#	Defines and substs the following vars:
-#		PKG_TCL_SOURCES
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_TCL_SOURCES], [
-    vars="$@"
-    for i in $vars; do
-	# check for existence, be strict because it is installed
-	if test ! -f "${srcdir}/$i" ; then
-	    AC_MSG_ERROR([could not find tcl source file '${srcdir}/$i'])
-	fi
-	PKG_TCL_SOURCES="$PKG_TCL_SOURCES $i"
-    done
-    AC_SUBST(PKG_TCL_SOURCES)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_HEADERS --
-#
-#	Specify one or more source headers.  Users should check for
-#	the right platform before adding to their list.
-#
-# Arguments:
-#	one or more file names
-#
-# Results:
-#
-#	Defines and substs the following vars:
-#		PKG_HEADERS
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_HEADERS], [
-    vars="$@"
-    for i in $vars; do
-	# check for existence, be strict because it is installed
-	if test ! -f "${srcdir}/$i" ; then
-	    AC_MSG_ERROR([could not find header file '${srcdir}/$i'])
-	fi
-	PKG_HEADERS="$PKG_HEADERS $i"
-    done
-    AC_SUBST(PKG_HEADERS)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_INCLUDES --
-#
-#	Specify one or more include dirs.  Users should check for
-#	the right platform before adding to their list.
-#
-# Arguments:
-#	one or more file names
-#
-# Results:
-#
-#	Defines and substs the following vars:
-#		PKG_INCLUDES
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_INCLUDES], [
-    vars="$@"
-    for i in $vars; do
-	PKG_INCLUDES="$PKG_INCLUDES $i"
-    done
-    AC_SUBST(PKG_INCLUDES)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_LIBS --
-#
-#	Specify one or more libraries.  Users should check for
-#	the right platform before adding to their list.  For Windows,
-#	libraries provided in "foo.lib" format will be converted to
-#	"-lfoo" when using GCC (mingw).
-#
-# Arguments:
-#	one or more file names
-#
-# Results:
-#
-#	Defines and substs the following vars:
-#		PKG_LIBS
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_LIBS], [
-    vars="$@"
-    for i in $vars; do
-	if test "${TEA_PLATFORM}" = "windows" -a "$GCC" = "yes" ; then
-	    # Convert foo.lib to -lfoo for GCC.  No-op if not *.lib
-	    i=`echo "$i" | sed -e 's/^\([[^-]].*\)\.lib[$]/-l\1/i'`
-	fi
-	PKG_LIBS="$PKG_LIBS $i"
-    done
-    AC_SUBST(PKG_LIBS)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_CFLAGS --
-#
-#	Specify one or more CFLAGS.  Users should check for
-#	the right platform before adding to their list.
-#
-# Arguments:
-#	one or more file names
-#
-# Results:
-#
-#	Defines and substs the following vars:
-#		PKG_CFLAGS
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_CFLAGS], [
-    PKG_CFLAGS="$PKG_CFLAGS $@"
-    AC_SUBST(PKG_CFLAGS)
-])
-
-#------------------------------------------------------------------------
-# TEA_ADD_CLEANFILES --
-#
-#	Specify one or more CLEANFILES.
-#
-# Arguments:
-#	one or more file names to clean target
-#
-# Results:
-#
-#	Appends to CLEANFILES, already defined for subst in LOAD_TCLCONFIG
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ADD_CLEANFILES], [
-    CLEANFILES="$CLEANFILES $@"
-])
-
-#------------------------------------------------------------------------
-# TEA_PREFIX --
-#
-#	Handle the --prefix=... option by defaulting to what Tcl gave
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	If --prefix or --exec-prefix was not specified, $prefix and
-#	$exec_prefix will be set to the values given to Tcl when it was
-#	configured.
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_PREFIX], [
-    if test "${prefix}" = "NONE"; then
-	prefix_default=yes
-	if test x"${TCL_PREFIX}" != x; then
-	    AC_MSG_NOTICE([--prefix defaulting to TCL_PREFIX ${TCL_PREFIX}])
-	    prefix=${TCL_PREFIX}
-	else
-	    AC_MSG_NOTICE([--prefix defaulting to /usr/local])
-	    prefix=/usr/local
-	fi
-    fi
-    if test "${exec_prefix}" = "NONE" -a x"${prefix_default}" = x"yes" \
-	-o x"${exec_prefix_default}" = x"yes" ; then
-	if test x"${TCL_EXEC_PREFIX}" != x; then
-	    AC_MSG_NOTICE([--exec-prefix defaulting to TCL_EXEC_PREFIX ${TCL_EXEC_PREFIX}])
-	    exec_prefix=${TCL_EXEC_PREFIX}
-	else
-	    AC_MSG_NOTICE([--exec-prefix defaulting to ${prefix}])
-	    exec_prefix=$prefix
-	fi
-    fi
-])
-
-#------------------------------------------------------------------------
-# TEA_SETUP_COMPILER_CC --
-#
-#	Do compiler checks the way we want.  This is just a replacement
-#	for AC_PROG_CC in TEA configure.ac files to make them cleaner.
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Sets up CC var and other standard bits we need to make executables.
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_SETUP_COMPILER_CC], [
-    # Don't put any macros that use the compiler (e.g. AC_TRY_COMPILE)
-    # in this macro, they need to go into TEA_SETUP_COMPILER instead.
-
-    AC_PROG_CC
-    AC_PROG_CPP
-
-    #--------------------------------------------------------------------
-    # Checks to see if the make program sets the $MAKE variable.
-    #--------------------------------------------------------------------
-
-    AC_PROG_MAKE_SET
-
-    #--------------------------------------------------------------------
-    # Find ranlib
-    #--------------------------------------------------------------------
-
-    AC_CHECK_TOOL(RANLIB, ranlib)
-
-    #--------------------------------------------------------------------
-    # Determines the correct binary file extension (.o, .obj, .exe etc.)
-    #--------------------------------------------------------------------
-
-    AC_OBJEXT
-    AC_EXEEXT
-])
-
-#------------------------------------------------------------------------
-# TEA_SETUP_COMPILER --
-#
-#	Do compiler checks that use the compiler.  This must go after
-#	TEA_SETUP_COMPILER_CC, which does the actual compiler check.
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Sets up CC var and other standard bits we need to make executables.
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_SETUP_COMPILER], [
-    # Any macros that use the compiler (e.g. AC_TRY_COMPILE) have to go here.
-    AC_REQUIRE([TEA_SETUP_COMPILER_CC])
-
-    #------------------------------------------------------------------------
-    # If we're using GCC, see if the compiler understands -pipe. If so, use it.
-    # It makes compiling go faster.  (This is only a performance feature.)
-    #------------------------------------------------------------------------
-
-    if test -z "$no_pipe" -a -n "$GCC"; then
-	AC_CACHE_CHECK([if the compiler understands -pipe],
-	    tcl_cv_cc_pipe, [
-	    hold_cflags=$CFLAGS; CFLAGS="$CFLAGS -pipe"
-	    AC_TRY_COMPILE(,, tcl_cv_cc_pipe=yes, tcl_cv_cc_pipe=no)
-	    CFLAGS=$hold_cflags])
-	if test $tcl_cv_cc_pipe = yes; then
-	    CFLAGS="$CFLAGS -pipe"
-	fi
-    fi
-
-    #--------------------------------------------------------------------
-    # Common compiler flag setup
-    #--------------------------------------------------------------------
-
-    AC_C_BIGENDIAN
-])
-
-#------------------------------------------------------------------------
-# TEA_MAKE_LIB --
-#
-#	Generate a line that can be used to build a shared/unshared library
-#	in a platform independent manner.
-#
-# Arguments:
-#	none
-#
-#	Requires:
-#
-# Results:
-#
-#	Defines the following vars:
-#	CFLAGS -	Done late here to note disturb other AC macros
-#       MAKE_LIB -      Command to execute to build the Tcl library;
-#                       differs depending on whether or not Tcl is being
-#                       compiled as a shared library.
-#	MAKE_SHARED_LIB	Makefile rule for building a shared library
-#	MAKE_STATIC_LIB	Makefile rule for building a static library
-#	MAKE_STUB_LIB	Makefile rule for building a stub library
-#	VC_MANIFEST_EMBED_DLL Makefile rule for embedded VC manifest in DLL
-#	VC_MANIFEST_EMBED_EXE Makefile rule for embedded VC manifest in EXE
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_MAKE_LIB], [
-    if test "${TEA_PLATFORM}" = "windows" -a "$GCC" != "yes"; then
-	MAKE_STATIC_LIB="\${STLIB_LD} -out:\[$]@ \$(PKG_OBJECTS)"
-	MAKE_SHARED_LIB="\${SHLIB_LD} \${SHLIB_LD_LIBS} \${LDFLAGS_DEFAULT} -out:\[$]@ \$(PKG_OBJECTS)"
-	AC_EGREP_CPP([manifest needed], [
-#if defined(_MSC_VER) && _MSC_VER >= 1400
-print("manifest needed")
-#endif
-	], [
-	# Could do a CHECK_PROG for mt, but should always be with MSVC8+
-	VC_MANIFEST_EMBED_DLL="if test -f \[$]@.manifest ; then mt.exe -nologo -manifest \[$]@.manifest -outputresource:\[$]@\;2 ; fi"
-	VC_MANIFEST_EMBED_EXE="if test -f \[$]@.manifest ; then mt.exe -nologo -manifest \[$]@.manifest -outputresource:\[$]@\;1 ; fi"
-	MAKE_SHARED_LIB="${MAKE_SHARED_LIB} ; ${VC_MANIFEST_EMBED_DLL}"
-	TEA_ADD_CLEANFILES([*.manifest])
-	])
-	MAKE_STUB_LIB="\${STLIB_LD} -nodefaultlib -out:\[$]@ \$(PKG_STUB_OBJECTS)"
-    else
-	MAKE_STATIC_LIB="\${STLIB_LD} \[$]@ \$(PKG_OBJECTS)"
-	MAKE_SHARED_LIB="\${SHLIB_LD} -o \[$]@ \$(PKG_OBJECTS) \${SHLIB_LD_LIBS}"
-	MAKE_STUB_LIB="\${STLIB_LD} \[$]@ \$(PKG_STUB_OBJECTS)"
-    fi
-
-    if test "${SHARED_BUILD}" = "1" ; then
-	MAKE_LIB="${MAKE_SHARED_LIB} "
-    else
-	MAKE_LIB="${MAKE_STATIC_LIB} "
-    fi
-
-    #--------------------------------------------------------------------
-    # Shared libraries and static libraries have different names.
-    # Use the double eval to make sure any variables in the suffix is
-    # substituted. (@@@ Might not be necessary anymore)
-    #--------------------------------------------------------------------
-
-    if test "${TEA_PLATFORM}" = "windows" ; then
-	if test "${SHARED_BUILD}" = "1" ; then
-	    # We force the unresolved linking of symbols that are really in
-	    # the private libraries of Tcl and Tk.
-	    if test x"${TK_BIN_DIR}" != x ; then
-		SHLIB_LD_LIBS="${SHLIB_LD_LIBS} \"`${CYGPATH} ${TK_BIN_DIR}/${TK_STUB_LIB_FILE}`\""
-	    fi
-	    SHLIB_LD_LIBS="${SHLIB_LD_LIBS} \"`${CYGPATH} ${TCL_BIN_DIR}/${TCL_STUB_LIB_FILE}`\""
-	    if test "$GCC" = "yes"; then
-		SHLIB_LD_LIBS="${SHLIB_LD_LIBS} -static-libgcc"
-	    fi
-	    eval eval "PKG_LIB_FILE=${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}${SHARED_LIB_SUFFIX}"
-	else
-	    eval eval "PKG_LIB_FILE=${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}${UNSHARED_LIB_SUFFIX}"
-	    if test "$GCC" = "yes"; then
-		PKG_LIB_FILE=lib${PKG_LIB_FILE}
-	    fi
-	fi
-	# Some packages build their own stubs libraries
-	eval eval "PKG_STUB_LIB_FILE=${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}stub${UNSHARED_LIB_SUFFIX}"
-	if test "$GCC" = "yes"; then
-	    PKG_STUB_LIB_FILE=lib${PKG_STUB_LIB_FILE}
-	fi
-	# These aren't needed on Windows (either MSVC or gcc)
-	RANLIB=:
-	RANLIB_STUB=:
-    else
-	RANLIB_STUB="${RANLIB}"
-	if test "${SHARED_BUILD}" = "1" ; then
-	    SHLIB_LD_LIBS="${SHLIB_LD_LIBS} ${TCL_STUB_LIB_SPEC}"
-	    if test x"${TK_BIN_DIR}" != x ; then
-		SHLIB_LD_LIBS="${SHLIB_LD_LIBS} ${TK_STUB_LIB_SPEC}"
-	    fi
-	    eval eval "PKG_LIB_FILE=lib${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}${SHARED_LIB_SUFFIX}"
-	    RANLIB=:
-	else
-	    eval eval "PKG_LIB_FILE=lib${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}${UNSHARED_LIB_SUFFIX}"
-	fi
-	# Some packages build their own stubs libraries
-	eval eval "PKG_STUB_LIB_FILE=lib${PACKAGE_LIB_PREFIX}${PACKAGE_NAME}stub${UNSHARED_LIB_SUFFIX}"
-    fi
-
-    # These are escaped so that only CFLAGS is picked up at configure time.
-    # The other values will be substituted at make time.
-    CFLAGS="${CFLAGS} \${CFLAGS_DEFAULT} \${CFLAGS_WARNING}"
-    if test "${SHARED_BUILD}" = "1" ; then
-	CFLAGS="${CFLAGS} \${SHLIB_CFLAGS}"
-    fi
-
-    AC_SUBST(MAKE_LIB)
-    AC_SUBST(MAKE_SHARED_LIB)
-    AC_SUBST(MAKE_STATIC_LIB)
-    AC_SUBST(MAKE_STUB_LIB)
-    AC_SUBST(RANLIB_STUB)
-    AC_SUBST(VC_MANIFEST_EMBED_DLL)
-    AC_SUBST(VC_MANIFEST_EMBED_EXE)
-])
-
-#------------------------------------------------------------------------
-# TEA_LIB_SPEC --
-#
-#	Compute the name of an existing object library located in libdir
-#	from the given base name and produce the appropriate linker flags.
-#
-# Arguments:
-#	basename	The base name of the library without version
-#			numbers, extensions, or "lib" prefixes.
-#	extra_dir	Extra directory in which to search for the
-#			library.  This location is used first, then
-#			$prefix/$exec-prefix, then some defaults.
-#
-# Requires:
-#	TEA_INIT and TEA_PREFIX must be called first.
-#
-# Results:
-#
-#	Defines the following vars:
-#		${basename}_LIB_NAME	The computed library name.
-#		${basename}_LIB_SPEC	The computed linker flags.
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_LIB_SPEC], [
-    AC_MSG_CHECKING([for $1 library])
-
-    # Look in exec-prefix for the library (defined by TEA_PREFIX).
-
-    tea_lib_name_dir="${exec_prefix}/lib"
-
-    # Or in a user-specified location.
-
-    if test x"$2" != x ; then
-	tea_extra_lib_dir=$2
-    else
-	tea_extra_lib_dir=NONE
-    fi
-
-    for i in \
-	    `ls -dr ${tea_extra_lib_dir}/$1[[0-9]]*.lib 2>/dev/null ` \
-	    `ls -dr ${tea_extra_lib_dir}/lib$1[[0-9]]* 2>/dev/null ` \
-	    `ls -dr ${tea_lib_name_dir}/$1[[0-9]]*.lib 2>/dev/null ` \
-	    `ls -dr ${tea_lib_name_dir}/lib$1[[0-9]]* 2>/dev/null ` \
-	    `ls -dr /usr/lib/$1[[0-9]]*.lib 2>/dev/null ` \
-	    `ls -dr /usr/lib/lib$1[[0-9]]* 2>/dev/null ` \
-	    `ls -dr /usr/lib64/$1[[0-9]]*.lib 2>/dev/null ` \
-	    `ls -dr /usr/lib64/lib$1[[0-9]]* 2>/dev/null ` \
-	    `ls -dr /usr/local/lib/$1[[0-9]]*.lib 2>/dev/null ` \
-	    `ls -dr /usr/local/lib/lib$1[[0-9]]* 2>/dev/null ` ; do
-	if test -f "$i" ; then
-	    tea_lib_name_dir=`dirname $i`
-	    $1_LIB_NAME=`basename $i`
-	    $1_LIB_PATH_NAME=$i
-	    break
-	fi
-    done
-
-    if test "${TEA_PLATFORM}" = "windows"; then
-	$1_LIB_SPEC=\"`${CYGPATH} ${$1_LIB_PATH_NAME} 2>/dev/null`\"
-    else
-	# Strip off the leading "lib" and trailing ".a" or ".so"
-
-	tea_lib_name_lib=`echo ${$1_LIB_NAME}|sed -e 's/^lib//' -e 's/\.[[^.]]*$//' -e 's/\.so.*//'`
-	$1_LIB_SPEC="-L${tea_lib_name_dir} -l${tea_lib_name_lib}"
-    fi
-
-    if test "x${$1_LIB_NAME}" = x ; then
-	AC_MSG_ERROR([not found])
-    else
-	AC_MSG_RESULT([${$1_LIB_SPEC}])
-    fi
-])
-
-#------------------------------------------------------------------------
-# TEA_PRIVATE_TCL_HEADERS --
-#
-#	Locate the private Tcl include files
-#
-# Arguments:
-#
-#	Requires:
-#		TCL_SRC_DIR	Assumes that TEA_LOAD_TCLCONFIG has
-#				already been called.
-#
-# Results:
-#
-#	Substitutes the following vars:
-#		TCL_TOP_DIR_NATIVE
-#		TCL_INCLUDES
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PRIVATE_TCL_HEADERS], [
-    # Allow for --with-tclinclude to take effect and define ${ac_cv_c_tclh}
-    AC_REQUIRE([TEA_PUBLIC_TCL_HEADERS])
-    AC_MSG_CHECKING([for Tcl private include files])
-
-    TCL_SRC_DIR_NATIVE=`${CYGPATH} ${TCL_SRC_DIR}`
-    TCL_TOP_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}\"
-
-    # Check to see if tcl<Plat>Port.h isn't already with the public headers
-    # Don't look for tclInt.h because that resides with tcl.h in the core
-    # sources, but the <plat>Port headers are in a different directory
-    if test "${TEA_PLATFORM}" = "windows" -a \
-	-f "${ac_cv_c_tclh}/tclWinPort.h"; then
-	result="private headers found with public headers"
-    elif test "${TEA_PLATFORM}" = "unix" -a \
-	-f "${ac_cv_c_tclh}/tclUnixPort.h"; then
-	result="private headers found with public headers"
-    else
-	TCL_GENERIC_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/generic\"
-	if test "${TEA_PLATFORM}" = "windows"; then
-	    TCL_PLATFORM_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/win\"
-	else
-	    TCL_PLATFORM_DIR_NATIVE=\"${TCL_SRC_DIR_NATIVE}/unix\"
-	fi
-	# Overwrite the previous TCL_INCLUDES as this should capture both
-	# public and private headers in the same set.
-	# We want to ensure these are substituted so as not to require
-	# any *_NATIVE vars be defined in the Makefile
-	TCL_INCLUDES="-I${TCL_GENERIC_DIR_NATIVE} -I${TCL_PLATFORM_DIR_NATIVE}"
-	if test "`uname -s`" = "Darwin"; then
-            # If Tcl was built as a framework, attempt to use
-            # the framework's Headers and PrivateHeaders directories
-            case ${TCL_DEFS} in
-	    	*TCL_FRAMEWORK*)
-		    if test -d "${TCL_BIN_DIR}/Headers" -a \
-			    -d "${TCL_BIN_DIR}/PrivateHeaders"; then
-			TCL_INCLUDES="-I\"${TCL_BIN_DIR}/Headers\" -I\"${TCL_BIN_DIR}/PrivateHeaders\" ${TCL_INCLUDES}"
-		    else
-			TCL_INCLUDES="${TCL_INCLUDES} ${TCL_INCLUDE_SPEC} `echo "${TCL_INCLUDE_SPEC}" | sed -e 's/Headers/PrivateHeaders/'`"
-		    fi
-	            ;;
-	    esac
-	    result="Using ${TCL_INCLUDES}"
-	else
-	    if test ! -f "${TCL_SRC_DIR}/generic/tclInt.h" ; then
-		AC_MSG_ERROR([Cannot find private header tclInt.h in ${TCL_SRC_DIR}])
-	    fi
-	    result="Using srcdir found in tclConfig.sh: ${TCL_SRC_DIR}"
-	fi
-    fi
-
-    AC_SUBST(TCL_TOP_DIR_NATIVE)
-
-    AC_SUBST(TCL_INCLUDES)
-    AC_MSG_RESULT([${result}])
-])
-
-#------------------------------------------------------------------------
-# TEA_PUBLIC_TCL_HEADERS --
-#
-#	Locate the installed public Tcl header files
-#
-# Arguments:
-#	None.
-#
-# Requires:
-#	CYGPATH must be set
-#
-# Results:
-#
-#	Adds a --with-tclinclude switch to configure.
-#	Result is cached.
-#
-#	Substitutes the following vars:
-#		TCL_INCLUDES
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PUBLIC_TCL_HEADERS], [
-    AC_MSG_CHECKING([for Tcl public headers])
-
-    AC_ARG_WITH(tclinclude, [  --with-tclinclude       directory containing the public Tcl header files], with_tclinclude=${withval})
-
-    AC_CACHE_VAL(ac_cv_c_tclh, [
-	# Use the value from --with-tclinclude, if it was given
-
-	if test x"${with_tclinclude}" != x ; then
-	    if test -f "${with_tclinclude}/tcl.h" ; then
-		ac_cv_c_tclh=${with_tclinclude}
-	    else
-		AC_MSG_ERROR([${with_tclinclude} directory does not contain tcl.h])
-	    fi
-	else
-	    list=""
-	    if test "`uname -s`" = "Darwin"; then
-		# If Tcl was built as a framework, attempt to use
-		# the framework's Headers directory
-		case ${TCL_DEFS} in
-		    *TCL_FRAMEWORK*)
-			list="`ls -d ${TCL_BIN_DIR}/Headers 2>/dev/null`"
-			;;
-		esac
-	    fi
-
-	    # Look in the source dir only if Tcl is not installed,
-	    # and in that situation, look there before installed locations.
-	    if test -f "${TCL_BIN_DIR}/Makefile" ; then
-		list="$list `ls -d ${TCL_SRC_DIR}/generic 2>/dev/null`"
-	    fi
-
-	    # Check order: pkg --prefix location, Tcl's --prefix location,
-	    # relative to directory of tclConfig.sh.
-
-	    eval "temp_includedir=${includedir}"
-	    list="$list \
-		`ls -d ${temp_includedir}        2>/dev/null` \
-		`ls -d ${TCL_PREFIX}/include     2>/dev/null` \
-		`ls -d ${TCL_BIN_DIR}/../include 2>/dev/null`"
-	    if test "${TEA_PLATFORM}" != "windows" -o "$GCC" = "yes"; then
-		list="$list /usr/local/include /usr/include"
-		if test x"${TCL_INCLUDE_SPEC}" != x ; then
-		    d=`echo "${TCL_INCLUDE_SPEC}" | sed -e 's/^-I//'`
-		    list="$list `ls -d ${d} 2>/dev/null`"
-		fi
-	    fi
-	    for i in $list ; do
-		if test -f "$i/tcl.h" ; then
-		    ac_cv_c_tclh=$i
-		    break
-		fi
-	    done
-	fi
-    ])
-
-    # Print a message based on how we determined the include path
-
-    if test x"${ac_cv_c_tclh}" = x ; then
-	AC_MSG_ERROR([tcl.h not found.  Please specify its location with --with-tclinclude])
-    else
-	AC_MSG_RESULT([${ac_cv_c_tclh}])
-    fi
-
-    # Convert to a native path and substitute into the output files.
-
-    INCLUDE_DIR_NATIVE=`${CYGPATH} ${ac_cv_c_tclh}`
-
-    TCL_INCLUDES=-I\"${INCLUDE_DIR_NATIVE}\"
-
-    AC_SUBST(TCL_INCLUDES)
-])
-
-#------------------------------------------------------------------------
-# TEA_PRIVATE_TK_HEADERS --
-#
-#	Locate the private Tk include files
-#
-# Arguments:
-#
-#	Requires:
-#		TK_SRC_DIR	Assumes that TEA_LOAD_TKCONFIG has
-#				 already been called.
-#
-# Results:
-#
-#	Substitutes the following vars:
-#		TK_INCLUDES
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PRIVATE_TK_HEADERS], [
-    # Allow for --with-tkinclude to take effect and define ${ac_cv_c_tkh}
-    AC_REQUIRE([TEA_PUBLIC_TK_HEADERS])
-    AC_MSG_CHECKING([for Tk private include files])
-
-    TK_SRC_DIR_NATIVE=`${CYGPATH} ${TK_SRC_DIR}`
-    TK_TOP_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}\"
-
-    # Check to see if tk<Plat>Port.h isn't already with the public headers
-    # Don't look for tkInt.h because that resides with tk.h in the core
-    # sources, but the <plat>Port headers are in a different directory
-    if test "${TEA_PLATFORM}" = "windows" -a \
-	-f "${ac_cv_c_tkh}/tkWinPort.h"; then
-	result="private headers found with public headers"
-    elif test "${TEA_PLATFORM}" = "unix" -a \
-	-f "${ac_cv_c_tkh}/tkUnixPort.h"; then
-	result="private headers found with public headers"
-    else
-	TK_GENERIC_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/generic\"
-	TK_XLIB_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/xlib\"
-	if test "${TEA_PLATFORM}" = "windows"; then
-	    TK_PLATFORM_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/win\"
-	else
-	    TK_PLATFORM_DIR_NATIVE=\"${TK_SRC_DIR_NATIVE}/unix\"
-	fi
-	# Overwrite the previous TK_INCLUDES as this should capture both
-	# public and private headers in the same set.
-	# We want to ensure these are substituted so as not to require
-	# any *_NATIVE vars be defined in the Makefile
-	TK_INCLUDES="-I${TK_GENERIC_DIR_NATIVE} -I${TK_PLATFORM_DIR_NATIVE}"
-	# Detect and add ttk subdir
-	if test -d "${TK_SRC_DIR}/generic/ttk"; then
-	   TK_INCLUDES="${TK_INCLUDES} -I\"${TK_SRC_DIR_NATIVE}/generic/ttk\""
-	fi
-	if test "${TEA_WINDOWINGSYSTEM}" != "x11"; then
-	   TK_INCLUDES="${TK_INCLUDES} -I\"${TK_XLIB_DIR_NATIVE}\""
-	fi
-	if test "${TEA_WINDOWINGSYSTEM}" = "aqua"; then
-	   TK_INCLUDES="${TK_INCLUDES} -I\"${TK_SRC_DIR_NATIVE}/macosx\""
-	fi
-	if test "`uname -s`" = "Darwin"; then
-	    # If Tk was built as a framework, attempt to use
-	    # the framework's Headers and PrivateHeaders directories
-	    case ${TK_DEFS} in
-		*TK_FRAMEWORK*)
-			if test -d "${TK_BIN_DIR}/Headers" -a \
-				-d "${TK_BIN_DIR}/PrivateHeaders"; then
-			    TK_INCLUDES="-I\"${TK_BIN_DIR}/Headers\" -I\"${TK_BIN_DIR}/PrivateHeaders\" ${TK_INCLUDES}"
-			else
-			    TK_INCLUDES="${TK_INCLUDES} ${TK_INCLUDE_SPEC} `echo "${TK_INCLUDE_SPEC}" | sed -e 's/Headers/PrivateHeaders/'`"
-			fi
-			;;
-	    esac
-	    result="Using ${TK_INCLUDES}"
-	else
-	    if test ! -f "${TK_SRC_DIR}/generic/tkInt.h" ; then
-	       AC_MSG_ERROR([Cannot find private header tkInt.h in ${TK_SRC_DIR}])
-	    fi
-	    result="Using srcdir found in tkConfig.sh: ${TK_SRC_DIR}"
-	fi
-    fi
-
-    AC_SUBST(TK_TOP_DIR_NATIVE)
-    AC_SUBST(TK_XLIB_DIR_NATIVE)
-
-    AC_SUBST(TK_INCLUDES)
-    AC_MSG_RESULT([${result}])
-])
-
-#------------------------------------------------------------------------
-# TEA_PUBLIC_TK_HEADERS --
-#
-#	Locate the installed public Tk header files
-#
-# Arguments:
-#	None.
-#
-# Requires:
-#	CYGPATH must be set
-#
-# Results:
-#
-#	Adds a --with-tkinclude switch to configure.
-#	Result is cached.
-#
-#	Substitutes the following vars:
-#		TK_INCLUDES
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PUBLIC_TK_HEADERS], [
-    AC_MSG_CHECKING([for Tk public headers])
-
-    AC_ARG_WITH(tkinclude, [  --with-tkinclude        directory containing the public Tk header files], with_tkinclude=${withval})
-
-    AC_CACHE_VAL(ac_cv_c_tkh, [
-	# Use the value from --with-tkinclude, if it was given
-
-	if test x"${with_tkinclude}" != x ; then
-	    if test -f "${with_tkinclude}/tk.h" ; then
-		ac_cv_c_tkh=${with_tkinclude}
-	    else
-		AC_MSG_ERROR([${with_tkinclude} directory does not contain tk.h])
-	    fi
-	else
-	    list=""
-	    if test "`uname -s`" = "Darwin"; then
-		# If Tk was built as a framework, attempt to use
-		# the framework's Headers directory.
-		case ${TK_DEFS} in
-		    *TK_FRAMEWORK*)
-			list="`ls -d ${TK_BIN_DIR}/Headers 2>/dev/null`"
-			;;
-		esac
-	    fi
-
-	    # Look in the source dir only if Tk is not installed,
-	    # and in that situation, look there before installed locations.
-	    if test -f "${TK_BIN_DIR}/Makefile" ; then
-		list="$list `ls -d ${TK_SRC_DIR}/generic 2>/dev/null`"
-	    fi
-
-	    # Check order: pkg --prefix location, Tk's --prefix location,
-	    # relative to directory of tkConfig.sh, Tcl's --prefix location,
-	    # relative to directory of tclConfig.sh.
-
-	    eval "temp_includedir=${includedir}"
-	    list="$list \
-		`ls -d ${temp_includedir}        2>/dev/null` \
-		`ls -d ${TK_PREFIX}/include      2>/dev/null` \
-		`ls -d ${TK_BIN_DIR}/../include  2>/dev/null` \
-		`ls -d ${TCL_PREFIX}/include     2>/dev/null` \
-		`ls -d ${TCL_BIN_DIR}/../include 2>/dev/null`"
-	    if test "${TEA_PLATFORM}" != "windows" -o "$GCC" = "yes"; then
-		list="$list /usr/local/include /usr/include"
-		if test x"${TK_INCLUDE_SPEC}" != x ; then
-		    d=`echo "${TK_INCLUDE_SPEC}" | sed -e 's/^-I//'`
-		    list="$list `ls -d ${d} 2>/dev/null`"
-		fi
-	    fi
-	    for i in $list ; do
-		if test -f "$i/tk.h" ; then
-		    ac_cv_c_tkh=$i
-		    break
-		fi
-	    done
-	fi
-    ])
-
-    # Print a message based on how we determined the include path
-
-    if test x"${ac_cv_c_tkh}" = x ; then
-	AC_MSG_ERROR([tk.h not found.  Please specify its location with --with-tkinclude])
-    else
-	AC_MSG_RESULT([${ac_cv_c_tkh}])
-    fi
-
-    # Convert to a native path and substitute into the output files.
-
-    INCLUDE_DIR_NATIVE=`${CYGPATH} ${ac_cv_c_tkh}`
-
-    TK_INCLUDES=-I\"${INCLUDE_DIR_NATIVE}\"
-
-    AC_SUBST(TK_INCLUDES)
-
-    if test "${TEA_WINDOWINGSYSTEM}" != "x11"; then
-	# On Windows and Aqua, we need the X compat headers
-	AC_MSG_CHECKING([for X11 header files])
-	if test ! -r "${INCLUDE_DIR_NATIVE}/X11/Xlib.h"; then
-	    INCLUDE_DIR_NATIVE="`${CYGPATH} ${TK_SRC_DIR}/xlib`"
-	    TK_XINCLUDES=-I\"${INCLUDE_DIR_NATIVE}\"
-	    AC_SUBST(TK_XINCLUDES)
-	fi
-	AC_MSG_RESULT([${INCLUDE_DIR_NATIVE}])
-    fi
-])
-
-#------------------------------------------------------------------------
-# TEA_PATH_CONFIG --
-#
-#	Locate the ${1}Config.sh file and perform a sanity check on
-#	the ${1} compile flags.  These are used by packages like
-#	[incr Tk] that load *Config.sh files from more than Tcl and Tk.
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Adds the following arguments to configure:
-#		--with-$1=...
-#
-#	Defines the following vars:
-#		$1_BIN_DIR	Full path to the directory containing
-#				the $1Config.sh file
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PATH_CONFIG], [
-    #
-    # Ok, lets find the $1 configuration
-    # First, look for one uninstalled.
-    # the alternative search directory is invoked by --with-$1
-    #
-
-    if test x"${no_$1}" = x ; then
-	# we reset no_$1 in case something fails here
-	no_$1=true
-	AC_ARG_WITH($1, [  --with-$1              directory containing $1 configuration ($1Config.sh)], with_$1config=${withval})
-	AC_MSG_CHECKING([for $1 configuration])
-	AC_CACHE_VAL(ac_cv_c_$1config,[
-
-	    # First check to see if --with-$1 was specified.
-	    if test x"${with_$1config}" != x ; then
-		case ${with_$1config} in
-		    */$1Config.sh )
-			if test -f ${with_$1config}; then
-			    AC_MSG_WARN([--with-$1 argument should refer to directory containing $1Config.sh, not to $1Config.sh itself])
-			    with_$1config=`echo ${with_$1config} | sed 's!/$1Config\.sh$!!'`
-			fi;;
-		esac
-		if test -f "${with_$1config}/$1Config.sh" ; then
-		    ac_cv_c_$1config=`(cd ${with_$1config}; pwd)`
-		else
-		    AC_MSG_ERROR([${with_$1config} directory doesn't contain $1Config.sh])
-		fi
-	    fi
-
-	    # then check for a private $1 installation
-	    if test x"${ac_cv_c_$1config}" = x ; then
-		for i in \
-			../$1 \
-			`ls -dr ../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \
-			`ls -dr ../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \
-			`ls -dr ../$1*[[0-9]].[[0-9]] 2>/dev/null` \
-			`ls -dr ../$1*[[0-9]].[[0-9]]* 2>/dev/null` \
-			../../$1 \
-			`ls -dr ../../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \
-			`ls -dr ../../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \
-			`ls -dr ../../$1*[[0-9]].[[0-9]] 2>/dev/null` \
-			`ls -dr ../../$1*[[0-9]].[[0-9]]* 2>/dev/null` \
-			../../../$1 \
-			`ls -dr ../../../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \
-			`ls -dr ../../../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \
-			`ls -dr ../../../$1*[[0-9]].[[0-9]] 2>/dev/null` \
-			`ls -dr ../../../$1*[[0-9]].[[0-9]]* 2>/dev/null` \
-			${srcdir}/../$1 \
-			`ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]]*.[[0-9]]* 2>/dev/null` \
-			`ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]][[0-9]] 2>/dev/null` \
-			`ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]] 2>/dev/null` \
-			`ls -dr ${srcdir}/../$1*[[0-9]].[[0-9]]* 2>/dev/null` \
-			; do
-		    if test -f "$i/$1Config.sh" ; then
-			ac_cv_c_$1config=`(cd $i; pwd)`
-			break
-		    fi
-		    if test -f "$i/unix/$1Config.sh" ; then
-			ac_cv_c_$1config=`(cd $i/unix; pwd)`
-			break
-		    fi
-		done
-	    fi
-
-	    # check in a few common install locations
-	    if test x"${ac_cv_c_$1config}" = x ; then
-		for i in `ls -d ${libdir} 2>/dev/null` \
-			`ls -d ${exec_prefix}/lib 2>/dev/null` \
-			`ls -d ${prefix}/lib 2>/dev/null` \
-			`ls -d /usr/local/lib 2>/dev/null` \
-			`ls -d /usr/contrib/lib 2>/dev/null` \
-			`ls -d /usr/pkg/lib 2>/dev/null` \
-			`ls -d /usr/lib 2>/dev/null` \
-			`ls -d /usr/lib64 2>/dev/null` \
-			; do
-		    if test -f "$i/$1Config.sh" ; then
-			ac_cv_c_$1config=`(cd $i; pwd)`
-			break
-		    fi
-		done
-	    fi
-	])
-
-	if test x"${ac_cv_c_$1config}" = x ; then
-	    $1_BIN_DIR="# no $1 configs found"
-	    AC_MSG_WARN([Cannot find $1 configuration definitions])
-	    exit 0
-	else
-	    no_$1=
-	    $1_BIN_DIR=${ac_cv_c_$1config}
-	    AC_MSG_RESULT([found $$1_BIN_DIR/$1Config.sh])
-	fi
-    fi
-])
-
-#------------------------------------------------------------------------
-# TEA_LOAD_CONFIG --
-#
-#	Load the $1Config.sh file
-#
-# Arguments:
-#
-#	Requires the following vars to be set:
-#		$1_BIN_DIR
-#
-# Results:
-#
-#	Substitutes the following vars:
-#		$1_SRC_DIR
-#		$1_LIB_FILE
-#		$1_LIB_SPEC
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_LOAD_CONFIG], [
-    AC_MSG_CHECKING([for existence of ${$1_BIN_DIR}/$1Config.sh])
-
-    if test -f "${$1_BIN_DIR}/$1Config.sh" ; then
-        AC_MSG_RESULT([loading])
-	. "${$1_BIN_DIR}/$1Config.sh"
-    else
-        AC_MSG_RESULT([file not found])
-    fi
-
-    #
-    # If the $1_BIN_DIR is the build directory (not the install directory),
-    # then set the common variable name to the value of the build variables.
-    # For example, the variable $1_LIB_SPEC will be set to the value
-    # of $1_BUILD_LIB_SPEC. An extension should make use of $1_LIB_SPEC
-    # instead of $1_BUILD_LIB_SPEC since it will work with both an
-    # installed and uninstalled version of Tcl.
-    #
-
-    if test -f "${$1_BIN_DIR}/Makefile" ; then
-	AC_MSG_WARN([Found Makefile - using build library specs for $1])
-        $1_LIB_SPEC=${$1_BUILD_LIB_SPEC}
-        $1_STUB_LIB_SPEC=${$1_BUILD_STUB_LIB_SPEC}
-        $1_STUB_LIB_PATH=${$1_BUILD_STUB_LIB_PATH}
-        $1_INCLUDE_SPEC=${$1_BUILD_INCLUDE_SPEC}
-        $1_LIBRARY_PATH=${$1_LIBRARY_PATH}
-    fi
-
-    AC_SUBST($1_VERSION)
-    AC_SUBST($1_BIN_DIR)
-    AC_SUBST($1_SRC_DIR)
-
-    AC_SUBST($1_LIB_FILE)
-    AC_SUBST($1_LIB_SPEC)
-
-    AC_SUBST($1_STUB_LIB_FILE)
-    AC_SUBST($1_STUB_LIB_SPEC)
-    AC_SUBST($1_STUB_LIB_PATH)
-
-    # Allow the caller to prevent this auto-check by specifying any 2nd arg
-    AS_IF([test "x$2" = x], [
-	# Check both upper and lower-case variants
-	# If a dev wanted non-stubs libs, this function could take an option
-	# to not use _STUB in the paths below
-	AS_IF([test "x${$1_STUB_LIB_SPEC}" = x],
-	    [TEA_LOAD_CONFIG_LIB(translit($1,[a-z],[A-Z])_STUB)],
-	    [TEA_LOAD_CONFIG_LIB($1_STUB)])
-    ])
-])
-
-#------------------------------------------------------------------------
-# TEA_LOAD_CONFIG_LIB --
-#
-#	Helper function to load correct library from another extension's
-#	${PACKAGE}Config.sh.
-#
-# Results:
-#	Adds to LIBS the appropriate extension library
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_LOAD_CONFIG_LIB], [
-    AC_MSG_CHECKING([For $1 library for LIBS])
-    # This simplifies the use of stub libraries by automatically adding
-    # the stub lib to your path.  Normally this would add to SHLIB_LD_LIBS,
-    # but this is called before CONFIG_CFLAGS.  More importantly, this adds
-    # to PKG_LIBS, which becomes LIBS, and that is only used by SHLIB_LD.
-    if test "x${$1_LIB_SPEC}" != "x" ; then
-	if test "${TEA_PLATFORM}" = "windows" -a "$GCC" != "yes" ; then
-	    TEA_ADD_LIBS([\"`${CYGPATH} ${$1_LIB_PATH}`\"])
-	    AC_MSG_RESULT([using $1_LIB_PATH ${$1_LIB_PATH}])
-	else
-	    TEA_ADD_LIBS([${$1_LIB_SPEC}])
-	    AC_MSG_RESULT([using $1_LIB_SPEC ${$1_LIB_SPEC}])
-	fi
-    else
-	AC_MSG_RESULT([file not found])
-    fi
-])
-
-#------------------------------------------------------------------------
-# TEA_EXPORT_CONFIG --
-#
-#	Define the data to insert into the ${PACKAGE}Config.sh file
-#
-# Arguments:
-#
-#	Requires the following vars to be set:
-#		$1
-#
-# Results:
-#	Substitutes the following vars:
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_EXPORT_CONFIG], [
-    #--------------------------------------------------------------------
-    # These are for $1Config.sh
-    #--------------------------------------------------------------------
-
-    # pkglibdir must be a fully qualified path and (not ${exec_prefix}/lib)
-    eval pkglibdir="[$]{libdir}/$1${PACKAGE_VERSION}"
-    if test "${TCL_LIB_VERSIONS_OK}" = "ok"; then
-	eval $1_LIB_FLAG="-l$1${PACKAGE_VERSION}${DBGX}"
-	eval $1_STUB_LIB_FLAG="-l$1stub${PACKAGE_VERSION}${DBGX}"
-    else
-	eval $1_LIB_FLAG="-l$1`echo ${PACKAGE_VERSION} | tr -d .`${DBGX}"
-	eval $1_STUB_LIB_FLAG="-l$1stub`echo ${PACKAGE_VERSION} | tr -d .`${DBGX}"
-    fi
-    $1_BUILD_LIB_SPEC="-L`$CYGPATH $(pwd)` ${$1_LIB_FLAG}"
-    $1_LIB_SPEC="-L`$CYGPATH ${pkglibdir}` ${$1_LIB_FLAG}"
-    $1_BUILD_STUB_LIB_SPEC="-L`$CYGPATH $(pwd)` [$]{$1_STUB_LIB_FLAG}"
-    $1_STUB_LIB_SPEC="-L`$CYGPATH ${pkglibdir}` [$]{$1_STUB_LIB_FLAG}"
-    $1_BUILD_STUB_LIB_PATH="`$CYGPATH $(pwd)`/[$]{PKG_STUB_LIB_FILE}"
-    $1_STUB_LIB_PATH="`$CYGPATH ${pkglibdir}`/[$]{PKG_STUB_LIB_FILE}"
-
-    AC_SUBST($1_BUILD_LIB_SPEC)
-    AC_SUBST($1_LIB_SPEC)
-    AC_SUBST($1_BUILD_STUB_LIB_SPEC)
-    AC_SUBST($1_STUB_LIB_SPEC)
-    AC_SUBST($1_BUILD_STUB_LIB_PATH)
-    AC_SUBST($1_STUB_LIB_PATH)
-
-    AC_SUBST(MAJOR_VERSION)
-    AC_SUBST(MINOR_VERSION)
-    AC_SUBST(PATCHLEVEL)
-])
-
-
-#------------------------------------------------------------------------
-# TEA_PATH_CELIB --
-#
-#	Locate Keuchel's celib emulation layer for targeting Win/CE
-#
-# Arguments:
-#	none
-#
-# Results:
-#
-#	Adds the following arguments to configure:
-#		--with-celib=...
-#
-#	Defines the following vars:
-#		CELIB_DIR	Full path to the directory containing
-#				the include and platform lib files
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_PATH_CELIB], [
-    # First, look for one uninstalled.
-    # the alternative search directory is invoked by --with-celib
-
-    if test x"${no_celib}" = x ; then
-	# we reset no_celib in case something fails here
-	no_celib=true
-	AC_ARG_WITH(celib,[  --with-celib=DIR        use Windows/CE support library from DIR], with_celibconfig=${withval})
-	AC_MSG_CHECKING([for Windows/CE celib directory])
-	AC_CACHE_VAL(ac_cv_c_celibconfig,[
-	    # First check to see if --with-celibconfig was specified.
-	    if test x"${with_celibconfig}" != x ; then
-		if test -d "${with_celibconfig}/inc" ; then
-		    ac_cv_c_celibconfig=`(cd ${with_celibconfig}; pwd)`
-		else
-		    AC_MSG_ERROR([${with_celibconfig} directory doesn't contain inc directory])
-		fi
-	    fi
-
-	    # then check for a celib library
-	    if test x"${ac_cv_c_celibconfig}" = x ; then
-		for i in \
-			../celib-palm-3.0 \
-			../celib \
-			../../celib-palm-3.0 \
-			../../celib \
-			`ls -dr ../celib-*3.[[0-9]]* 2>/dev/null` \
-			${srcdir}/../celib-palm-3.0 \
-			${srcdir}/../celib \
-			`ls -dr ${srcdir}/../celib-*3.[[0-9]]* 2>/dev/null` \
-			; do
-		    if test -d "$i/inc" ; then
-			ac_cv_c_celibconfig=`(cd $i; pwd)`
-			break
-		    fi
-		done
-	    fi
-	])
-	if test x"${ac_cv_c_celibconfig}" = x ; then
-	    AC_MSG_ERROR([Cannot find celib support library directory])
-	else
-	    no_celib=
-	    CELIB_DIR=${ac_cv_c_celibconfig}
-	    CELIB_DIR=`echo "$CELIB_DIR" | sed -e 's!\\\!/!g'`
-	    AC_MSG_RESULT([found $CELIB_DIR])
-	fi
-    fi
-])
-
-#------------------------------------------------------------------------
-# TEA_INSTALLER --
-#
-#	Configure the installer.
-#
-# Arguments:
-#	none
-#
-# Results:
-#	Substitutes the following vars:
-#		INSTALL
-#		INSTALL_DATA_DIR
-#		INSTALL_DATA
-#		INSTALL_PROGRAM
-#		INSTALL_SCRIPT
-#		INSTALL_LIBRARY
-#------------------------------------------------------------------------
-
-AC_DEFUN([TEA_INSTALLER], [
-    INSTALL='$(SHELL) $(srcdir)/tclconfig/install-sh -c'
-    INSTALL_DATA_DIR='${INSTALL} -d -m 755'
-    INSTALL_DATA='${INSTALL} -m 644'
-    INSTALL_PROGRAM='${INSTALL} -m 755'
-    INSTALL_SCRIPT='${INSTALL} -m 755'
-
-    TEA_CONFIG_SYSTEM
-    case $system in
-	HP-UX-*) INSTALL_LIBRARY='${INSTALL} -m 755' ;;
-	      *) INSTALL_LIBRARY='${INSTALL} -m 644' ;;
-    esac
-
-    AC_SUBST(INSTALL)
-    AC_SUBST(INSTALL_DATA_DIR)
-    AC_SUBST(INSTALL_DATA)
-    AC_SUBST(INSTALL_PROGRAM)
-    AC_SUBST(INSTALL_SCRIPT)
-    AC_SUBST(INSTALL_LIBRARY)
-])
-
-###
-# Tip 430 - ZipFS Modifications
-###
-#------------------------------------------------------------------------
-# SC_ZIPFS_SUPPORT
-#	Locate a zip encoder installed on the system path, or none.
-#
-# Arguments:
-#	none
-#
-# Results:
-#	Substitutes the following vars:
-#		TCL_ZIP_FILE
-#		TCL_ZIPFS_SUPPORT
-#		TCL_ZIPFS_FLAG
-#		ZIP_PROG
-#------------------------------------------------------------------------
-
-#------------------------------------------------------------------------
-# SC_PROG_ZIP
-#	Locate a zip encoder installed on the system path, or none.
-#
-# Arguments:
-#	none
-#
-# Results:
-#	Substitutes the following vars:
-#		ZIP_PROG
-#       ZIP_PROG_OPTIONS
-#       ZIP_PROG_VFSSEARCH
-#       ZIP_INSTALL_OBJS
-#------------------------------------------------------------------------
-AC_DEFUN([TEA_ZIPFS_SUPPORT], [
-    AC_MSG_CHECKING([for zipfs support])
-    ZIP_PROG=""
-    ZIP_PROG_OPTIONS=""
-    ZIP_PROG_VFSSEARCH=""
-    INSTALL_MSGS=""
-    # If our native tclsh processes the "install" command line option
-    # we can use it to mint zip files
-    AS_IF([$TCLSH_PROG install],[
-      ZIP_PROG=${TCLSH_PROG}
-      ZIP_PROG_OPTIONS="install mkzip"
-      ZIP_PROG_VFSSEARCH="."
-      AC_MSG_RESULT([Can use Native Tclsh for Zip encoding])
-    ])
-    if test "x$ZIP_PROG" = "x" ; then
-        AC_CACHE_VAL(ac_cv_path_zip, [
-        search_path=`echo ${PATH} | sed -e 's/:/ /g'`
-        for dir in $search_path ; do
-            for j in `ls -r $dir/zip 2> /dev/null` \
-                `ls -r $dir/zip 2> /dev/null` ; do
-            if test x"$ac_cv_path_zip" = x ; then
-                if test -f "$j" ; then
-                ac_cv_path_zip=$j
-                break
-                fi
-            fi
-            done
-        done
-        ])
-        if test -f "$ac_cv_path_zip" ; then
-            ZIP_PROG="$ac_cv_path_zip "
-            AC_MSG_RESULT([$ZIP_PROG])
-            ZIP_PROG_OPTIONS="-rq"
-            ZIP_PROG_VFSSEARCH="."
-            AC_MSG_RESULT([Found INFO Zip in environment])
-            # Use standard arguments for zip
-        fi
-    fi
-    if test "x$ZIP_PROG" = "x" ; then
-	    # It is not an error if an installed version of Zip can't be located.
-        ZIP_PROG=""
-        ZIP_PROG_OPTIONS=""
-        ZIP_PROG_VFSSEARCH=""
-        TCL_ZIPFS_SUPPORT=0
-        TCL_ZIPFS_FLAG=
-    else
-        # ZIPFS Support
-       eval "TCL_ZIP_FILE=\"${TCL_ZIP_FILE}\""
-       if test ${TCL_ZIP_FILE} = "" ; then
-          TCL_ZIPFS_SUPPORT=0
-          TCL_ZIPFS_FLAG=
-          INSTALL_LIBRARIES=install-libraries
-          INSTALL_MSGS=install-msgs
-       else
-           if test ${SHARED_BUILD} = 1 ; then
-              TCL_ZIPFS_SUPPORT=1
-              INSTALL_LIBRARIES=install-libraries-zipfs-shared
-           else
-              TCL_ZIPFS_SUPPORT=2
-              INSTALL_LIBRARIES=install-libraries-zipfs-static
-           fi
-          TCL_ZIPFS_FLAG=-DTCL_ZIPFS_SUPPORT
-       fi
-    fi
-
-    AC_SUBST(TCL_ZIP_FILE)
-    AC_SUBST(TCL_ZIPFS_SUPPORT)
-    AC_SUBST(TCL_ZIPFS_FLAG)
-    AC_SUBST(ZIP_PROG)
-    AC_SUBST(ZIP_PROG_OPTIONS)
-    AC_SUBST(ZIP_PROG_VFSSEARCH)
-    AC_SUBST(INSTALL_LIBRARIES)
-    AC_SUBST(INSTALL_MSGS)
-])
-
-# Local Variables:
-# mode: autoconf
-# End:
diff --git a/tkcon/tkcon-console.desktop b/tkcon/tkcon-console.desktop
deleted file mode 100644
index 0be3094..0000000
--- a/tkcon/tkcon-console.desktop
+++ /dev/null
@@ -1,10 +0,0 @@
-[Desktop Entry]
-Encoding=UTF-8
-Name=tkcon
-GenericName=Tk console
-Comment=Tk console
-Exec=tkcon
-Icon=tkcon-icon
-Terminal=false
-Type=Application
-Categories=Development;Utility;
diff --git a/tkcon/tkcon.tcl b/tkcon/tkcon.tcl
deleted file mode 100755
index 57e8017..0000000
--- a/tkcon/tkcon.tcl
+++ /dev/null
@@ -1,6539 +0,0 @@
-#!/bin/sh
-# -*- tcl -*-
-# \
-exec wish "$0" ${1+"$@"}
-
-#
-## tkcon.tcl
-## Enhanced Tk Console, part of the VerTcl system
-##
-## Originally based off Brent Welch's Tcl Shell Widget
-## (from "Practical Programming in Tcl and Tk")
-##
-## Thanks to the following (among many) for early bug reports & code ideas:
-## Steven Wahl, Jan Nijtmans, Mark Crimmins, Wart
-##
-## Copyright (c) 1995-2011 Jeffrey Hobbs, jeff(a)hobbs(.)org
-## Initiated: Thu Aug 17 15:36:47 PDT 1995
-##
-## source standard_disclaimer.tcl
-## source bourbon_ware.tcl
-##
-
-# Proxy support for retrieving the current version of Tkcon.
-#
-# Mon Jun 25 12:19:56 2001 - Pat Thoyts
-#
-# In your tkcon.cfg or .tkconrc file put your proxy details into the
-# `proxy' member of the `PRIV' array. e.g.:
-#
-#    set ::tkcon::PRIV(proxy) wwwproxy:8080
-#
-# If you want to be prompted for proxy authentication details (eg for
-# an NT proxy server) make the second element of this variable non-nil - eg:
-#
-#    set ::tkcon::PRIV(proxy) {wwwproxy:8080 1}
-#
-# Or you can set the above variable from within tkcon by calling 
-#
-#    tkcon master set ::tkcon:PRIV(proxy) wwwproxy:8080
-#
-
-if {$tcl_version < 8.4} {
-    return -code error "tkcon requires at least Tcl/Tk 8.4"
-} else {
-    package require Tk 8.4
-}
-
-# We need to load some package to get what's available, and we
-# choose ctext because we'll use it if its available in the editor
-catch {package require ctext}
-foreach pkg [info loaded {}] {
-    set file [lindex $pkg 0]
-    set name [lindex $pkg 1]
-    if {![catch {set version [package require $name]}]} {
-	if {[package ifneeded $name $version] eq ""} {
-	    package ifneeded $name $version [list load $file $name]
-	}
-    }
-}
-
-# Unset temporary global vars
-catch {unset pkg file name version}
-
-# Initialize the ::tkcon namespace
-#
-namespace eval ::tkcon {
-    # when modifying this line, make sure that the auto-upgrade check
-    # for version still works.
-    variable VERSION "2.7"
-    # The OPT variable is an array containing most of the optional
-    # info to configure.  COLOR has the color data.
-    variable OPT
-    variable COLOR
-
-    # PRIV is used for internal data that only tkcon should fiddle with.
-    variable PRIV
-    set PRIV(WWW) [info exists embed_args]
-    set PRIV(AQUA) [expr {$::tcl_version >= 8.4 && [tk windowingsystem] == "aqua"}]
-    set PRIV(CTRL) [expr {$PRIV(AQUA) ? "Command-" : "Control-"}]
-    set PRIV(ACC) [expr {$PRIV(AQUA) ? "Command-" : "Ctrl+"}]
-
-    variable EXPECT 0
-}
-
-## ::tkcon::Init - inits tkcon
-#
-# Calls:	::tkcon::InitUI
-# Outputs:	errors found in tkcon's resource file
-##
-proc ::tkcon::Init {args} {
-    variable VERSION
-    variable OPT
-    variable COLOR
-    variable PRIV
-    global tcl_platform env tcl_interactive errorInfo
-
-    set tcl_interactive 1
-    set argc [llength $args]
-
-    ##
-    ## When setting up all the default values, we always check for
-    ## prior existence.  This allows users who embed tkcon to modify
-    ## the initial state before tkcon initializes itself.
-    ##
-
-    # bg == {} will get bg color from the main toplevel (in InitUI)
-    foreach {key default} {
-	bg		{}
-	blink		\#FFFF00
-	cursor		\#000000
-	disabled	\#4D4D4D
-	proc		\#008800
-	var		\#FFC0D0
-	prompt		\#8F4433
-	stdin		\#000000
-	stdout		\#0000FF
-	stderr		\#FF0000
-    } {
-	if {![info exists COLOR($key)]} { set COLOR($key) $default }
-    }
-
-    # expandorder could also include 'Methodname' for XOTcl/NSF methods
-    foreach {key default} {
-	autoload	{}
-	blinktime	500
-	blinkrange	1
-	buffer		512
-	maxlinelen	0
-	calcmode	0
-	cols		80
-	debugPrompt	{(level \#$level) debug [history nextid] > }
-	dead		{}
-	edit		edit
-	expandorder	{Pathname Variable Procname}
-	font		{}
-	history		48
-	hoterrors	1
-	library		{}
-	lightbrace	1
-	lightcmd	1
-	maineval	{}
-	maxmenu		18
-	nontcl		0
-	prompt1		{ignore this, it's set below}
-	rows		20
-	scrollypos	right
-	showmenu	1
-	showmultiple	1
-	showstatusbar	1
-	slaveeval	{}
-	slaveexit	close
-	subhistory	1
-	tabspace	8
-	gc-delay	60000
-	gets		{congets}
-	overrideexit	1
-	usehistory	1
-	resultfilter	{}
-
-	exec		slave
-    } {
-	if {![info exists OPT($key)]} { set OPT($key) $default }
-    }
-
-    foreach {key default} {
-	app		{}
-	appname		{}
-	apptype		slave
-	namesp		::
-	cmd		{}
-	cmdbuf		{}
-	cmdsave		{}
-	event		1
-	deadapp		0
-	deadsock	0
-	debugging	0
-	displayWin	.
-	histid		0
-	find		{}
-	find,case	0
-	find,reg	0
-	errorInfo	{}
-	protocol	exit
-	showOnStartup	1
-	slaveprocs	{
-	    alias clear dir dump echo idebug lremove
-	    tkcon_puts tkcon_gets observe observe_var unalias which what
-	}
-	RCS		{RCS: @(#) $Id: tkcon.tcl,v 1.124 2016/09/14 21:14:43 hobbs Exp $}
-	HEADURL		{http://tkcon.cvs.sourceforge.net/viewvc/tkcon/tkcon/tkcon.tcl}
-
-	docs		"http://tkcon.sourceforge.net/"
-	email		{jeff(a)hobbs(.)org}
-	root		.
-	uid		0
-	tabs		{}
-    } {
-	if {![info exists PRIV($key)]} { set PRIV($key) $default }
-    }
-    foreach {key default} {
-	slavealias	{ $OPT(edit) more less tkcon }
-    } {
-	if {![info exists PRIV($key)]} { set PRIV($key) [subst $default] }
-    }
-    set PRIV(version) $VERSION
-
-    if {[info exists PRIV(name)]} {
-	set title $PRIV(name)
-    } else {
-	MainInit
-	# some main initialization occurs later in this proc,
-	# to go after the UI init
-	set MainInit 1
-	set title Main
-    }
-
-    ## NOTES FOR STAYING IN PRIMARY INTERPRETER:
-    ##
-    ## If you set ::tkcon::OPT(exec) to {}, then instead of a multiple
-    ## interp model, you get tkcon operating in the main interp by default.
-    ## This can be useful when attaching to programs that like to operate
-    ## in the main interpter (for example, based on special wish'es).
-    ## You can set this from the command line with -exec ""
-    ## A side effect is that all tkcon command line args will be used
-    ## by the first console only.
-    #set OPT(exec) {}
-
-    if {$PRIV(WWW)} {
-	lappend PRIV(slavealias) history
-	set OPT(prompt1) {[history nextid] % }
-    } else {
-	lappend PRIV(slaveprocs) tcl_unknown unknown
-	set OPT(prompt1) {([file tail [pwd]]) [history nextid] % }
-    }
-
-    ## If we are using the default '.' toplevel, and there appear to be
-    ## children of '.', then make sure we use a disassociated toplevel.
-    if {$PRIV(root) == "." && [llength [winfo children .]]} {
-	set PRIV(root) .tkcon
-    }
-
-    ## Do platform specific configuration here, other than defaults
-    ### Use tkcon.cfg filename for resource filename on non-unix systems
-    ### Determine what directory the resource file should be in
-    switch $tcl_platform(platform) {
-	macintosh	{
-	    if {![interp issafe]} {cd [file dirname [info script]]}
-	    set envHome		PREF_FOLDER
-	    set rcfile		tkcon.cfg
-	    set histfile	tkcon.hst
-	    catch {console hide}
-	}
-	windows		{
-	    set envHome		HOME
-	    set rcfile		tkcon.cfg
-	    set histfile	tkcon.hst
-	}
-	unix		{
-	    set envHome		HOME
-	    set rcfile		.tkconrc
-	    set histfile	.tkcon_history
-	}
-    }
-    if {[info exists env($envHome)]} {
-	set home $env($envHome)
-	if {[file pathtype $home] == "volumerelative"} {
-	    # Convert 'C:' to 'C:/' if necessary, innocuous otherwise
-	    append home /
-	}
-	if {![info exists PRIV(rcfile)]} {
-	    set PRIV(rcfile)	[file join $home $rcfile]
-	}
-	if {![info exists PRIV(histfile)]} {
-	    set PRIV(histfile)	[file join $home $histfile]
-	}
-    }
-
-    ## Handle command line arguments before sourcing resource file to
-    ## find if resource file is being specified (let other args pass).
-    if {[set i [lsearch -exact $args -rcfile]] != -1} {
-	set PRIV(rcfile) [lindex $args [incr i]]
-    }
-
-    if {!$PRIV(WWW) && [file exists $PRIV(rcfile)]} {
-	set code [catch {uplevel \#0 [list source $PRIV(rcfile)]} err]
-    }
-
-    if {[info exists env(TK_CON_LIBRARY)]} {
-	lappend ::auto_path $env(TK_CON_LIBRARY)
-    } elseif {$OPT(library) != ""} {
-	lappend ::auto_path $OPT(library)
-    }
-
-    if {![info exists ::tcl_pkgPath]} {
-	set dir [file join [file dirname [info nameofexec]] lib]
-	if {[llength [info commands @scope]]} {
-	    set dir [file join $dir itcl]
-	}
-	catch {source [file join $dir pkgIndex.tcl]}
-    }
-    catch {tclPkgUnknown dummy-name dummy-version}
-
-    ## Handle rest of command line arguments after sourcing resource file
-    ## and slave is created, but before initializing UI or setting packages.
-    set slaveargs {}
-    set slavefiles {}
-    set slaveargv0 {}
-    set truth {^(1|yes|true|on)$}
-    for {set i 0} {$i < $argc} {incr i} {
-	set arg [lindex $args $i]
-	if {[string match {-*} $arg]} {
-	    set val [lindex $args [incr i]]
-	    ## Handle arg based options
-	    switch -glob -- $arg {
-		-- - -argv - -args {
-		    set slaveargs [concat $slaveargs [lrange $args $i end]]
-		    set ::argv $slaveargs
-		    set ::argc [llength $::argv]
-		    break
-		}
-		-color-*	{ set COLOR([string range $arg 7 end]) $val }
-		-exec		{ set OPT(exec) $val }
-		-main - -e - -eval	{ append OPT(maineval) \n$val\n }
-		-package - -load	{
-		    lappend OPT(autoload) $val
-		    if {$val eq "nsf" || $val eq "nx" || $val eq "XOTcl" } {
-			# If xotcl is loaded, prepend expand order for it
-			set OPT(expandorder) [concat Methodname $OPT(expandorder)]
-		    }
-		}
-		-slave		{ append OPT(slaveeval) \n$val\n }
-		-nontcl		{ set OPT(nontcl) [regexp -nocase $truth $val]}
-		-root		{ set PRIV(root) $val }
-		-font		{ set OPT(font) $val }
-		-rcfile	{}
-		default	{ lappend slaveargs $arg; incr i -1 }
-	    }
-	} elseif {[file isfile $arg]} {
-	    if {$i == 0} {
-		set slaveargv0 $arg
-	    }
-	    lappend slavefiles $arg
-	} else {
-	    lappend slaveargs $arg
-	}
-    }
-
-    ## Create slave executable
-    if {"" != $OPT(exec)} {
-	InitSlave $OPT(exec) $slaveargs $slaveargv0
-    } else {
-	set argc [llength $slaveargs]
-	set args $slaveargs
-	uplevel \#0 $slaveargs
-    }
-
-    # Try not to make tkcon override too many standard defaults, and only
-    # do it for the tkcon bits
-    set optclass [tk appname]$PRIV(root)
-    option add $optclass*Menu.tearOff 0
-    option add $optclass*Menu.borderWidth 1
-    option add $optclass*Menu.activeBorderWidth 1
-    if {!$PRIV(AQUA)} {
-	option add $optclass*Scrollbar.borderWidth 1
-    }
-
-    ## Attach to the slave, EvalAttached will then be effective
-    Attach $PRIV(appname) $PRIV(apptype)
-    InitUI $title
-    if {"" != $OPT(exec)} {
-	# override exit to DeleteTab now that tab has been created
-	$OPT(exec) alias exit ::tkcon::DeleteTab $PRIV(curtab) $OPT(exec)
-    }
-
-    ## swap puts and gets with the tkcon versions to make sure all
-    ## input and output is handled by tkcon
-    if {![catch {rename ::puts ::tkcon_tcl_puts}]} {
-	interp alias {} ::puts {} ::tkcon_puts
-	if {[llength [info commands ::tcl::chan::puts]]} {
-	    interp alias {} ::tcl::chan::puts {} ::tkcon_puts
-	}
-    }
-    if {($OPT(gets) != "") && ![catch {rename ::gets ::tkcon_tcl_gets}]} {
-	interp alias {} ::gets {} ::tkcon_gets
-	if {[llength [info commands ::tcl::chan::gets]]} {
-	    interp alias {} ::tcl::chan::gets {} ::tkcon_gets
-	}
-    }
-
-    EvalSlave history keep $OPT(history)
-    if {[info exists MainInit]} {
-	# Source history file only for the main console, as all slave
-	# consoles will adopt from the main's history, but still
-	# keep separate histories
-	if {!$PRIV(WWW) && $OPT(usehistory) && [file exists $PRIV(histfile)]} {
-	    puts -nonewline "loading history file ... "
-	    # The history file is built to be loaded in and
-	    # understood by tkcon
-	    if {[catch {uplevel \#0 [list source $PRIV(histfile)]} herr]} {
-		puts stderr "error:\n$herr"
-		append PRIV(errorInfo) $errorInfo\n
-	    }
-	    set PRIV(event) [EvalSlave history nextid]
-	    puts "[expr {$PRIV(event)-1}] events added"
-	}
-    }
-
-    ## Autoload specified packages in slave
-    set pkgs [EvalSlave package names]
-    foreach pkg $OPT(autoload) {
-	puts -nonewline "autoloading package \"$pkg\" ... "
-	if {[lsearch -exact $pkgs $pkg]>-1} {
-	    if {[catch {EvalSlave package require [list $pkg]} pkgerr]} {
-		puts stderr "error:\n$pkgerr"
-		append PRIV(errorInfo) $errorInfo\n
-	    } else { puts "OK" }
-	} else {
-	    puts stderr "error: package does not exist"
-	}
-    }
-
-    ## Evaluate maineval in slave
-    if {($OPT(maineval) ne "") && [catch {uplevel \#0 $OPT(maineval)} merr]} {
-	puts stderr "error in eval:\n$merr"
-	append PRIV(errorInfo) $errorInfo\n
-    }
-
-    ## Source extra command line argument files into slave executable
-    foreach fn $slavefiles {
-	puts -nonewline "slave sourcing \"$fn\" ... "
-	if {[catch {EvalSlave uplevel \#0 [list source $fn]} fnerr]} {
-	    puts stderr "error:\n$fnerr"
-	    append PRIV(errorInfo) $errorInfo\n
-	} else { puts "OK" }
-    }
-
-    ## Evaluate slaveeval in slave
-    if {($OPT(slaveeval) ne "")
-	&& [catch {interp eval $OPT(exec) $OPT(slaveeval)} serr]} {
-	puts stderr "error in slave eval:\n$serr"
-	append PRIV(errorInfo) $errorInfo\n
-    }
-    ## Output any error/output that may have been returned from rcfile
-    if {[info exists code] && $code && ($err ne "")} {
-	puts stderr "error in $PRIV(rcfile):\n$err"
-	append PRIV(errorInfo) $errorInfo
-    }
-    if {$OPT(exec) ne ""} {
-	StateCheckpoint [concat $PRIV(name) $OPT(exec)] slave
-    }
-    StateCheckpoint $PRIV(name) slave
-
-    puts "buffer line limit:\
-	[expr {$OPT(buffer)?$OPT(buffer):{unlimited}}]  \
-	max line length:\
-	[expr {$OPT(maxlinelen)?$OPT(maxlinelen):{unlimited}}]"
-
-    Prompt "$title console display active (Tcl$::tcl_patchLevel / Tk$::tk_patchLevel)\n"
-}
-
-## ::tkcon::InitSlave - inits the slave by placing key procs and aliases in it
-## It's arg[cv] are based on passed in options, while argv0 is the same as
-## the master.  tcl_interactive is the same as the master as well.
-# ARGS:	slave	- name of slave to init.  If it does not exist, it is created.
-#	args	- args to pass to a slave as argv/argc
-##
-proc ::tkcon::InitSlave {slave {slaveargs {}} {slaveargv0 {}}} {
-    variable OPT
-    variable COLOR
-    variable PRIV
-    global argv0 tcl_interactive tcl_library env auto_path tk_library
-
-    if {$slave eq ""} {
-	return -code error "Don't init the master interpreter, goofball"
-    }
-    if {![interp exists $slave]} { interp create $slave }
-    if {[interp eval $slave info command source] == ""} {
-	$slave alias source SafeSource $slave
-	$slave alias load SafeLoad $slave
-	$slave alias open SafeOpen $slave
-	$slave alias file file
-	interp eval $slave \
-	    [list set auto_path [lremove $auto_path $tk_library]]
-	interp eval $slave [dump var -nocomplain tcl_library env]
-	interp eval $slave { catch {source [file join $tcl_library init.tcl]} }
-	interp eval $slave { catch unknown }
-    }
-    # This will likely be overridden to call DeleteTab where possible
-    $slave alias exit exit
-    interp eval $slave {
-	# Do package require before changing around puts/gets
-	catch {set __tkcon_error ""; set __tkcon_error $errorInfo}
-	catch {package require bogus-package-name}
-	catch {rename ::puts ::tkcon_tcl_puts}
-	set errorInfo ${__tkcon_error}
-	unset __tkcon_error
-    }
-    foreach cmd $PRIV(slaveprocs) { $slave eval [dump proc $cmd] }
-    foreach cmd $PRIV(slavealias) { $slave alias $cmd $cmd }
-    interp alias $slave ::ls $slave ::dir -full
-    interp alias $slave ::puts $slave ::tkcon_puts
-    if {[llength [info commands ::tcl::chan::puts]]} {
-	interp alias $slave ::tcl::chan::puts $slave ::tkcon_puts
-    }
-    if {$OPT(gets) != ""} {
-	interp eval $slave { catch {rename ::gets ::tkcon_tcl_gets} }
-	interp alias $slave ::gets $slave ::tkcon_gets
-	if {[llength [info commands ::tcl::chan::gets]]} {
-	    interp alias $slave ::tcl::chan::gets $slave ::tkcon_gets
-	}
-    }
-    if {$slaveargv0 != ""} {
-	# If tkcon was invoked with 1 or more filenames, then make the
-	# first filename argv0 in the slave, as tclsh/wish would do it.
-	interp eval $slave [list set argv0 $slaveargv0]
-    } else {
-	if {[info exists argv0]} {interp eval $slave [list set argv0 $argv0]}
-    }
-    interp eval $slave set tcl_interactive $tcl_interactive \; \
-	    set auto_path [list [lremove $auto_path $tk_library]] \; \
-	    set argc [llength $slaveargs] \; \
-	    set argv  [list $slaveargs] \; {
-	if {![llength [info command bgerror]]} {
-	    proc bgerror err {
-		global errorInfo
-		set body [info body bgerror]
-		rename ::bgerror {}
-		if {[auto_load bgerror]} { return [bgerror $err] }
-		proc bgerror err $body
-		tkcon bgerror $err $errorInfo
-	    }
-	}
-    }
-
-    foreach pkg [lremove [package names] Tcl] {
-	foreach v [package versions $pkg] {
-	    interp eval $slave [list package ifneeded $pkg $v \
-		    [package ifneeded $pkg $v]]
-	}
-    }
-}
-
-## ::tkcon::InitInterp - inits an interpreter by placing key
-## procs and aliases in it.
-# ARGS: name	- interp name
-#	type	- interp type (slave|interp)
-##
-proc ::tkcon::InitInterp {name type} {
-    variable OPT
-    variable PRIV
-
-    ## Don't allow messing up a local master interpreter
-    if {($type eq "namespace")
-	|| (($type eq "slave") &&
-	    [regexp {^([Mm]ain|Slave[0-9]+)$} $name])} { return }
-    set old [Attach]
-    set oldname $PRIV(namesp)
-    catch {
-	Attach $name $type
-	EvalAttached { catch {rename ::puts ::tkcon_tcl_puts} }
-	foreach cmd $PRIV(slaveprocs) { EvalAttached [dump proc $cmd] }
-	switch -exact $type {
-	    slave {
-		foreach cmd $PRIV(slavealias) {
-		    Main [list interp alias $name ::$cmd $PRIV(name) ::$cmd]
-		}
-	    }
-	    interp {
-		set thistkcon [::send::appname]
-		foreach cmd $PRIV(slavealias) {
-		    EvalAttached "proc $cmd args { ::send::send [list $thistkcon] $cmd \$args }"
-		}
-	    }
-	}
-	## Catch in case it's a 7.4 (no 'interp alias') interp
-	EvalAttached {
-	    catch {interp alias {} ::ls {} ::dir -full}
-	    if {[catch {interp alias {} ::puts {} ::tkcon_puts}]} {
-		catch {rename ::tkcon_puts ::puts}
-	    } elseif {[llength [info commands ::tcl::chan::puts]]} {
-		catch {interp alias {} ::tcl::chan::puts {} ::tkcon_puts}
-	    }
-	}
-	if {$OPT(gets) != ""} {
-	    EvalAttached {
-		catch {rename ::gets ::tkcon_tcl_gets}
-		if {[catch {interp alias {} ::gets {} ::tkcon_gets}]} {
-		    catch {rename ::tkcon_gets ::gets}
-		} elseif {[llength [info commands ::tcl::chan::gets]]} {
-		    catch {interp alias {} ::tcl::chan::gets {} ::tkcon_gets}
-		}
-	    }
-	}
-	return
-    } {err}
-    eval Attach $old
-    AttachNamespace $oldname
-    if {$err ne ""} { return -code error $err }
-}
-
-## ::tkcon::InitUI - inits UI portion (console) of tkcon
-## Creates all elements of the console window and sets up the text tags
-# ARGS:	root	- widget pathname of the tkcon console root
-#	title	- title for the console root and main (.) windows
-# Calls:	::tkcon::InitMenus, ::tkcon::Prompt
-##
-proc ::tkcon::InitUI {title} {
-    variable OPT
-    variable PRIV
-    variable COLOR
-
-    set root $PRIV(root)
-    if {$root eq "."} { set w {} } else { set w [toplevel $root] }
-    if {!$PRIV(WWW)} {
-	wm withdraw $root
-	wm protocol $root WM_DELETE_WINDOW $PRIV(protocol)
-    }
-    set PRIV(base) $w
-
-    catch {font create tkconfixed -family Courier -size -12}
-    catch {font create tkconfixedbold -family Courier -size -12 -weight bold}
-
-    set PRIV(statusbar) [set sbar [frame $w.fstatus]]
-    set PRIV(tabframe)  [frame $sbar.tabs]
-    set PRIV(X) [button $sbar.deltab -text "X" -command ::tkcon::DeleteTab \
-		     -activeforeground red -fg red -font tkconfixedbold \
-		     -highlightthickness 0 -padx 2 -pady 0 -borderwidth 1 \
-		     -state disabled -relief flat -takefocus 0]
-    catch {$PRIV(X) configure -overrelief raised}
-    label $sbar.cursor -relief sunken -borderwidth 1 -anchor e -width 6 \
-	    -textvariable ::tkcon::PRIV(StatusCursor)
-    set padx [expr {![info exists ::tcl_platform(os)]
-		    || ($::tcl_platform(os) ne "Windows CE")}]
-    grid $PRIV(X) $PRIV(tabframe) $sbar.cursor -sticky news -padx $padx
-    grid configure $PRIV(tabframe) -sticky nsw
-    grid configure $PRIV(X) -pady 0 -padx 0
-    grid columnconfigure $sbar 1 -weight 1
-    grid rowconfigure $sbar 0 -weight 1
-    grid rowconfigure $PRIV(tabframe) 0 -weight 1
-    if {$PRIV(AQUA)} {
-	# resize control space and correct "X" button space
-	grid columnconfigure $sbar [lindex [grid size $sbar] 0] -minsize 16
-	$PRIV(X) configure -pady 5 -padx 4
-    }
-
-    ## Create console tab
-    set con [InitTab $w]
-    set PRIV(curtab) $con
-
-    # Only apply this for the first console
-    $con configure -setgrid 1 -width $OPT(cols) -height $OPT(rows)
-    bind $PRIV(root) <Configure> {
-	if {"%W" == $::tkcon::PRIV(root)} {
-	    scan [wm geometry [winfo toplevel %W]] "%%dx%%d" \
-		::tkcon::OPT(cols) ::tkcon::OPT(rows)
-	    if {[info exists ::tkcon::EXP(spawn_id)]} {
-		catch {stty rows $::tkcon::OPT(rows) columns \
-			   $::tkcon::OPT(cols) < $::tkcon::EXP(slave,name)}
-	    }
-	}
-    }
-
-    # scrollbar
-    set sy [scrollbar $w.sy -takefocus 0 -command [list $con yview]]
-    if {!$PRIV(WWW) && ($::tcl_platform(os) eq "Windows CE")} {
-	$w.sy configure -width 10
-    }
-
-    $con configure -yscrollcommand [list $sy set]
-    set PRIV(console) $con
-    set PRIV(scrolly) $sy
-
-    ## Menus
-    ## catch against use in plugin
-    if {[catch {menu $w.mbar} PRIV(menubar)]} {
-	set PRIV(menubar) [frame $w.mbar -relief raised -borderwidth 1]
-    }
-
-    InitMenus $PRIV(menubar) $title
-    Bindings
-
-    if {$OPT(showmenu)} {
-	$root configure -menu $PRIV(menubar)
-    }
-
-    grid $con  -row 1 -column 1 -sticky news
-    grid $sy   -row 1 -column [expr {$OPT(scrollypos)=="left"?0:2}] -sticky ns
-    grid $sbar -row 2 -column 0 -columnspan 3 -sticky ew
-
-    grid columnconfigure $root 1 -weight 1
-    grid rowconfigure    $root 1 -weight 1
-
-    if {!$OPT(showstatusbar)} {
-	grid remove $sbar
-    }
-
-    # If we can locate the XDG icon file then make use of it.
-    if {[package vsatisfies [package provide Tk] 8.6]} {
-        if {[tk windowingsystem] eq "x11"} {
-            if {[set icon [locate_xdg_icon tkcon-icon.png]] ne ""} {
-                image create photo tkcon_icon -file $icon
-                wm iconphoto $root tkcon_icon
-            }
-        }
-    }
-
-    if {!$PRIV(WWW)} {
-	wm title $root "tkcon $PRIV(version) $title"
-	if {$PRIV(showOnStartup)} {
-	    # this may throw an error if toplevel is embedded
-	    catch {wm deiconify $root}
-	}
-    }
-    if {$PRIV(showOnStartup)} { focus -force $PRIV(console) }
-    if {$OPT(gc-delay)} {
-	after $OPT(gc-delay) ::tkcon::GarbageCollect
-    }
-}
-
-# Hunt around the XDG defined directories for the icon.
-# Note: hicolor is the standard theme used by xdg-icon-resource.
-proc ::tkcon::locate_xdg_icon {name} {
-    global env
-    set dirs [list /usr/local/share /usr/share]
-    if {[info exists env(XDG_DATA_DIRS)]} {
-        set dirs [split $env(XDG_DATA_DIRS) :]
-    }
-    if {[file isdirectory ~/.local/share]} {
-        set dirs [linsert $dirs 0 ~/.local/share]
-    }
-    foreach dir $dirs {
-        foreach path [list icons icons/hicolor/48x48/apps] {
-            set path [file join $dir $path $name]
-            if {[file exists $path]} {
-                return $path
-            }
-        }
-    }
-    return ""
-}
-
-proc ::tkcon::InitTab {w} {
-    variable OPT
-    variable PRIV
-    variable COLOR
-    variable ATTACH
-
-    # text console
-    set con $w.tab[incr PRIV(uid)]
-    text $con -wrap char -foreground $COLOR(stdin) \
-	-insertbackground $COLOR(cursor) -borderwidth 1 -highlightthickness 0
-    $con mark set output 1.0
-    $con mark set limit 1.0
-    if {$COLOR(bg) ne ""} {
-	$con configure -background $COLOR(bg)
-    }
-    set COLOR(bg) [$con cget -background]
-    if {$OPT(font) ne ""} {
-	## Set user-requested font, if any
-	$con configure -font $OPT(font)
-    } elseif {$::tcl_platform(platform) ne "unix"} {
-	## otherwise make sure the font is monospace
-	set font [$con cget -font]
-	if {![font metrics $font -fixed]} {
-	    $con configure -font tkconfixed
-	}
-    } else {
-	$con configure -font tkconfixed
-    }
-    set OPT(font) [$con cget -font]
-    bindtags $con [list $con TkConsole TkConsolePost $PRIV(root) all]
-
-    # scrollbar
-    if {!$PRIV(WWW)} {
-	if {$::tcl_platform(os) eq "Windows CE"} {
-	    font configure tkconfixed -family Tahoma -size 8
-	    $con configure -font tkconfixed -borderwidth 0 -padx 0 -pady 0
-	    set cw [font measure tkconfixed "0"]
-	    set ch [font metrics tkconfixed -linespace]
-	    set sw [winfo screenwidth $con]
-	    set sh [winfo screenheight $con]
-	    # We need the magic hard offsets until I find a way to
-	    # correctly assume size
-	    if {$cw*($OPT(cols)+2) > $sw} {
-		set OPT(cols) [expr {($sw / $cw) - 2}]
-	    }
-	    if {$ch*($OPT(rows)+3) > $sh} {
-		set OPT(rows) [expr {($sh / $ch) - 3}]
-	    }
-	    # Place it so that the titlebar underlaps the CE titlebar
-	    wm geometry $PRIV(root) +0+0
-	}
-    }
-    $con configure -height $OPT(rows) -width $OPT(cols)
-
-    foreach col {prompt stdout stderr stdin proc} {
-	$con tag configure $col -foreground $COLOR($col)
-    }
-    $con tag configure var -background $COLOR(var)
-    $con tag raise sel
-    $con tag configure blink -background $COLOR(blink)
-    $con tag configure find -background $COLOR(blink)
-
-    set ATTACH($con) [Attach]
-    set rb [radiobutton $PRIV(tabframe).cb[winfo name $con] -takefocus 0 \
-		-textvariable ::tkcon::ATTACH($con) \
-		-selectcolor white -relief sunken \
-		-indicatoron 0 -padx 0 -pady 0 -borderwidth 1 \
-		-variable ::tkcon::PRIV(curtab) -value $con \
-		-command [list ::tkcon::GotoTab $con]]
-    if {$::tcl_version >= 8.4} {
-	$rb configure -offrelief flat -overrelief raised
-    }
-    if {$PRIV(AQUA)} {
-	$rb configure -padx 4 -pady 4 -highlightthickness 0
-    }
-    grid $rb -row 0 -column [lindex [grid size $PRIV(tabframe)] 0] -sticky ns
-    grid $con -row 1 -column 1 -sticky news
-
-    lappend PRIV(tabs) $con
-    return $con
-}
-
-proc ::tkcon::GotoTab {con} {
-    variable PRIV
-    variable ATTACH
-
-    set numtabs [llength $PRIV(tabs)]
-    #if {$numtabs == 1} { return }
-
-    if {[regexp {^[0-9]+$} $con]} {
-	set curtab [lsearch -exact $PRIV(tabs) $PRIV(console)]
-	set nexttab [expr {$curtab + $con}]
-	if {$nexttab >= $numtabs} {
-	    set nexttab 0
-	} elseif {$nexttab < 0} {
-	    set nexttab "end"
-	}
-	set con [lindex $PRIV(tabs) $nexttab]
-    } elseif {$con == $PRIV(console)} {
-	return
-    }
-
-    # adjust console
-    if {[winfo exists $PRIV(console)]} {
-	lower $PRIV(console)
-	$PRIV(console) configure -yscrollcommand {}
-	set ATTACH($PRIV(console)) [Attach]
-    }
-    set PRIV(console) $con
-    $con configure -yscrollcommand [list $PRIV(scrolly) set]
-    $PRIV(scrolly) configure -command [list $con yview]
-
-    # adjust attach
-    eval [linsert $ATTACH($con) 0 Attach]
-
-    set PRIV(curtab) $con
-
-    raise $con
-
-    if {[$con compare 1.0 == end-1c]} {
-	Prompt
-    }
-
-    # set StatusCursor
-    set PRIV(StatusCursor) [$con index insert]
-
-    focus -force $con
-}
-
-proc ::tkcon::NewTab {{con {}}} {
-    variable PRIV
-    variable ATTACH
-
-    set con   [InitTab $PRIV(base)]
-    set slave [GetSlave]
-    InitSlave $slave
-    $slave alias exit ::tkcon::DeleteTab $con $slave
-    if {$PRIV(name) != ""} {
-	set ATTACH($con) [list [list $PRIV(name) $slave] slave]
-    } else {
-	set ATTACH($con) [list $slave slave]
-    }
-    $PRIV(X) configure -state normal
-    MenuConfigure Console "Delete Tab" -state normal
-    GotoTab $con
-}
-
-# The extra code arg is for the alias of exit to this function
-proc ::tkcon::DeleteTab {{con {}} {slave {}} {code 0}} {
-    variable PRIV
-
-    set numtabs [llength $PRIV(tabs)]
-    if {$numtabs <= 2} {
-	$PRIV(X) configure -state disabled
-	MenuConfigure Console "Delete Tab" -state disabled
-    }
-    if {$numtabs == 1} {
-	# in the master, it should do the right thing
-	# currently the first master still exists - need rearch to fix
-	exit
-	# we might end up here, depending on how exit is rerouted
-	return
-    }
-
-    if {$con == ""} {
-	set con $PRIV(console)
-    }
-    catch {unset ATTACH($con)}
-    set curtab  [lsearch -exact $PRIV(tabs) $con]
-    set PRIV(tabs) [lreplace $PRIV(tabs) $curtab $curtab]
-
-    set numtabs [llength $PRIV(tabs)]
-    set nexttab $curtab
-    if {$nexttab >= $numtabs} {
-	set nexttab end
-    }
-    set nexttab [lindex $PRIV(tabs) $nexttab]
-
-    GotoTab $nexttab
-
-    if {$slave != "" && $slave != $::tkcon::OPT(exec)} {
-	interp delete $slave
-    }
-    destroy $PRIV(tabframe).cb[winfo name $con]
-    destroy $con
-}
-
-## ::tkcon::GarbageCollect - do various cleanup ops periodically to our setup
-##
-proc ::tkcon::GarbageCollect {} {
-    variable OPT
-    variable PRIV
-
-    foreach w $PRIV(tabs) {
-	if {[winfo exists $w]} {
-	    ## Remove error tags that no longer span anything
-	    ## Make sure the tag pattern matches the unique tag prefix
-	    foreach tag [$w tag names] {
-		if {[string match _tag* $tag]
-		    && ![llength [$w tag ranges $tag]]} {
-		    $w tag delete $tag
-		}
-	    }
-	}
-    }
-    if {$OPT(gc-delay)} {
-	after $OPT(gc-delay) ::tkcon::GarbageCollect
-    }
-}
-
-## ::tkcon::Eval - evaluates commands input into console window
-## This is the first stage of the evaluating commands in the console.
-## They need to be broken up into consituent commands (by ::tkcon::CmdSep) in
-## case a multiple commands were pasted in, then each is eval'ed (by
-## ::tkcon::EvalCmd) in turn.  Any uncompleted command will not be eval'ed.
-# ARGS:	w	- console text widget
-# Calls:	::tkcon::CmdGet, ::tkcon::CmdSep, ::tkcon::EvalCmd
-## 
-proc ::tkcon::Eval {w} {
-    set complete [CmdSep [CmdGet $w] cmds last]
-    $w mark set insert end-1c
-    $w insert end \n
-    if {[llength $cmds]} {
-	foreach c $cmds {EvalCmd $w $c}
-	$w insert insert $last {}
-    } elseif {$complete} {
-	EvalCmd $w $last
-    }
-    if {[winfo exists $w]} {
-	$w see insert
-    }
-}
-
-## ::tkcon::EvalCmd - evaluates a single command, adding it to history
-# ARGS:	w	- console text widget
-# 	cmd	- the command to evaluate
-# Calls:	::tkcon::Prompt
-# Outputs:	result of command to stdout (or stderr if error occured)
-# Returns:	next event number
-## 
-proc ::tkcon::EvalCmd {w cmd} {
-    variable OPT
-    variable PRIV
-
-    $w mark set output end
-    if {$cmd ne ""} {
-	set code 0
-	if {$OPT(subhistory)} {
-	    set ev [EvalSlave history nextid]
-	    incr ev -1
-	    ## FIX: calcmode doesn't work with requesting history events
-	    if {$cmd eq "!!"} {
-		set code [catch {EvalSlave history event $ev} cmd]
-		if {!$code} {$w insert output $cmd\n stdin}
-	    } elseif {[regexp {^!(.+)$} $cmd dummy event]} {
-		## Check last event because history event is broken
-		set code [catch {EvalSlave history event $ev} cmd]
-		if {!$code && ![string match ${event}* $cmd]} {
-		    set code [catch {EvalSlave history event $event} cmd]
-		}
-		if {!$code} {$w insert output $cmd\n stdin}
-	    } elseif {[regexp {^\^([^^]*)\^([^^]*)\^?$} $cmd dummy old new]} {
-		set code [catch {EvalSlave history event $ev} cmd]
-		if {!$code} {
-		    regsub -all -- $old $cmd $new cmd
-		    $w insert output $cmd\n stdin
-		}
-	    } elseif {$OPT(calcmode) && ![catch {expr $cmd} err]} {
-		AddSlaveHistory $cmd
-		set cmd $err
-		set code -1
-	    }
-	}
-	if {$code} {
-	    $w insert output $cmd\n stderr
-	} else {
-	    ## We are about to evaluate the command, so move the limit
-	    ## mark to ensure that further <Return>s don't cause double
-	    ## evaluation of this command - for cases like the command
-	    ## has a vwait or something in it
-	    $w mark set limit end
-	    if {$OPT(nontcl) && ($PRIV(apptype) eq "interp")} {
-		set code [catch {EvalSend $cmd} res]
-		if {$code == 1} {
-		    set PRIV(errorInfo) "Non-Tcl errorInfo not available"
-		}
-	    } elseif {$PRIV(apptype) eq "socket"} {
-		set code [catch {EvalSocket $cmd} res]
-		if {$code == 1} {
-		    set PRIV(errorInfo) "Socket-based errorInfo not available"
-		}
-	    } else {
-		set code [catch {EvalAttached $cmd} res]
-		if {$code == 1} {
-		    if {[catch {EvalAttached [list set errorInfo]} err]} {
-			set PRIV(errorInfo) "Error getting errorInfo:\n$err"
-		    } else {
-			set PRIV(errorInfo) $err
-		    }
-		}
-	    }
-	    if {![winfo exists $w]} {
-		# early abort - must be a deleted tab
-		return
-	    }
-	    AddSlaveHistory $cmd
-	    # Run any user defined result filter command.  The command is
-	    # passed result code and data.
-	    if {[llength $OPT(resultfilter)]} {
-		set cmd [linsert $OPT(resultfilter) end $code $res]
-		if {[catch {EvalAttached $cmd} res2]} {
-		    $w insert output "Filter failed: $res2" stderr \n stdout
-		} else {
-		    set res $res2
-		}
-	    }
-	    catch {EvalAttached [list set _ $res]}
-	    set maxlen $OPT(maxlinelen)
-	    set trailer ""
-	    if {($maxlen > 0) && ([string length $res] > $maxlen)} {
-		# If we exceed maximum desired output line length, truncate
-		# the result and add "...+${num}b" in error coloring
-		set trailer ...+[expr {[string length $res]-$maxlen}]b
-		set res [string range $res 0 $maxlen]
-	    }
-	    if {$code} {
-		if {$OPT(hoterrors)} {
-		    set tag [UniqueTag $w]
-		    $w insert output $res [list stderr $tag] \n$trailer stderr
-		    $w tag bind $tag <Enter> \
-			    [list $w tag configure $tag -underline 1]
-		    $w tag bind $tag <Leave> \
-			    [list $w tag configure $tag -underline 0]
-		    $w tag bind $tag <ButtonRelease-1> \
-			    "if {!\[info exists tk::Priv(mouseMoved)\] || !\$tk::Priv(mouseMoved)} \
-			    {[list $OPT(edit) -attach [Attach] -type error -- $PRIV(errorInfo)]}"
-		} else {
-		    $w insert output $res\n$trailer stderr
-		}
-	    } elseif {$res ne ""} {
-		$w insert output $res stdout $trailer stderr \n stdout
-	    }
-	}
-    }
-    Prompt
-    set PRIV(event) [EvalSlave history nextid]
-}
-
-## ::tkcon::EvalSlave - evaluates the args in the associated slave
-## args should be passed to this procedure like they would be at
-## the command line (not like to 'eval').
-# ARGS:	args	- the command and args to evaluate
-##
-proc ::tkcon::EvalSlave args {
-    interp eval $::tkcon::OPT(exec) $args
-}
-
-## ::tkcon::EvalOther - evaluate a command in a foreign interp or slave
-## without attaching to it.  No check for existence is made.
-# ARGS:	app	- interp/slave name
-#	type	- (slave|interp)
-##
-proc ::tkcon::EvalOther { app type args } {
-    if {$type eq "slave"} {
-	return [Slave $app $args]
-    } else {
-	return [uplevel 1 ::send::send [list $app] $args]
-    }
-}
-
-## ::tkcon::AddSlaveHistory - 
-## Command is added to history only if different from previous command.
-## This also doesn't cause the history id to be incremented, although the
-## command will be evaluated.
-# ARGS: cmd	- command to add
-##
-proc ::tkcon::AddSlaveHistory cmd {
-    set ev [EvalSlave history nextid]
-    incr ev -1
-    set code [catch {EvalSlave history event $ev} lastCmd]
-    if {$code || $cmd ne $lastCmd} {
-	EvalSlave history add $cmd
-	# Save history every time so it's not lost in case of an abnormal termination.
-	# Do not warn in case of an error: we don't want an error message 
-	# after each command if the history file is not writable.
-	catch {SaveHistory}
-    }
-}
-
-## ::tkcon::EvalSend - sends the args to the attached interpreter
-## Varies from 'send' by determining whether attachment is dead
-## when an error is received
-# ARGS:	cmd	- the command string to send across
-# Returns:	the result of the command
-##
-proc ::tkcon::EvalSend cmd {
-    variable OPT
-    variable PRIV
-
-    if {$PRIV(deadapp)} {
-	if {[lsearch -exact [::send::interps] $PRIV(app)]<0} {
-	    return
-	} else {
-	    set PRIV(appname) [string range $PRIV(appname) 5 end]
-	    set PRIV(deadapp) 0
-	    Prompt "\n\"$PRIV(app)\" alive\n" [CmdGet $PRIV(console)]
-	}
-    }
-    set code [catch {::send::send -displayof $PRIV(displayWin) $PRIV(app) $cmd} result]
-    if {$code && [lsearch -exact [::send::interps] $PRIV(app)]<0} {
-	## Interpreter disappeared
-	if {($OPT(dead) ne "leave") &&
-	    (($OPT(dead) eq "ignore") ||
-	     [tk_messageBox -title "Dead Attachment" -type yesno \
-		  -icon info -message \
-		  "\"$PRIV(app)\" appears to have died.\
-		\nReturn to primary slave interpreter?"] eq "no")} {
-	    set PRIV(appname) "DEAD:$PRIV(appname)"
-	    set PRIV(deadapp) 1
-	} else {
-	    set err "Attached Tk interpreter \"$PRIV(app)\" died."
-	    Attach {}
-	    set PRIV(deadapp) 0
-	    EvalSlave set errorInfo $err
-	}
-	Prompt \n [CmdGet $PRIV(console)]
-    }
-    return -code $code $result
-}
-
-## ::tkcon::EvalSocket - sends the string to an interpreter attached via
-## a tcp/ip socket
-##
-## In the EvalSocket case, ::tkcon::PRIV(app) is the socket id
-##
-## Must determine whether socket is dead when an error is received
-# ARGS:	cmd	- the data string to send across
-# Returns:	the result of the command
-##
-proc ::tkcon::EvalSocket cmd {
-    variable OPT
-    variable PRIV
-    global tcl_version
-
-    if {$PRIV(deadapp)} {
-	if {![info exists PRIV(app)] || \
-		[catch {eof $PRIV(app)} eof] || $eof} {
-	    return
-	} else {
-	    set PRIV(appname) [string range $PRIV(appname) 5 end]
-	    set PRIV(deadapp) 0
-	    Prompt "\n\"$PRIV(app)\" alive\n" [CmdGet $PRIV(console)]
-	}
-    }
-    # Sockets get \'s interpreted, so that users can
-    # send things like \n\r or explicit hex values
-    set cmd [subst -novariables -nocommands $cmd]
-    #puts [list $PRIV(app) $cmd]
-    set code [catch {puts $PRIV(app) $cmd ; flush $PRIV(app)} result]
-    if {$code && [eof $PRIV(app)]} {
-	## Interpreter died or disappeared
-	puts "$code eof [eof $PRIV(app)]"
-	EvalSocketClosed $PRIV(app)
-    }
-    return -code $code $result
-}
-
-## ::tkcon::EvalSocketEvent - fileevent command for an interpreter attached
-## via a tcp/ip socket
-## Must determine whether socket is dead when an error is received
-# ARGS:	args	- the args to send across
-# Returns:	the result of the command
-##
-proc ::tkcon::EvalSocketEvent {sock} {
-    variable PRIV
-
-    if {[gets $sock line] == -1} {
-	if {[eof $sock]} {
-	    EvalSocketClosed $sock
-	}
-	return
-    }
-    puts $line
-}
-
-## ::tkcon::EvalSocketClosed - takes care of handling a closed eval socket
-##
-# ARGS:	args	- the args to send across
-# Returns:	the result of the command
-##
-proc ::tkcon::EvalSocketClosed {sock} {
-    variable OPT
-    variable PRIV
-
-    catch {close $sock}
-    if {$sock ne $PRIV(app)} {
-	# If we are not still attached to that socket, just return.
-	# Might be nice to tell the user the socket closed ...
-	return
-    }
-    if {$OPT(dead) ne "leave" &&
-	($OPT(dead) eq "ignore" ||
-	 [tk_messageBox -title "Dead Attachment" -type yesno \
-	      -icon question \
-	      -message "\"$PRIV(app)\" appears to have died.\
-	    \nReturn to primary slave interpreter?"] eq "no")} {
-	set PRIV(appname) "DEAD:$PRIV(appname)"
-	set PRIV(deadapp) 1
-    } else {
-	set err "Attached Tk interpreter \"$PRIV(app)\" died."
-	Attach {}
-	set PRIV(deadapp) 0
-	EvalSlave set errorInfo $err
-    }
-    Prompt \n [CmdGet $PRIV(console)]
-}
-
-## ::tkcon::EvalNamespace - evaluates the args in a particular namespace
-## This is an override for ::tkcon::EvalAttached for when the user wants
-## to attach to a particular namespace of the attached interp
-# ARGS:	attached	
-#	namespace	the namespace to evaluate in
-#	args		the args to evaluate
-# RETURNS:	the result of the command
-##
-proc ::tkcon::EvalNamespace { attached namespace args } {
-    if {[llength $args]} {
-	uplevel \#0 $attached \
-		[list [concat [list namespace eval $namespace] $args]]
-    }
-}
-
-
-## ::tkcon::Namespaces - return all the namespaces descendent from $ns
-##
-#
-##
-proc ::tkcon::Namespaces {{ns ::} {l {}}} {
-    if {$ns ne ""} { lappend l $ns }
-    foreach i [EvalAttached [list namespace children $ns]] {
-	set l [Namespaces $i $l]
-    }
-    return $l
-}
-
-## ::tkcon::CmdGet - gets the current command from the console widget
-# ARGS:	w	- console text widget
-# Returns:	text which compromises current command line
-## 
-proc ::tkcon::CmdGet w {
-    if {![llength [$w tag nextrange prompt limit end]]} {
-	$w tag add stdin limit end-1c
-	return [$w get limit end-1c]
-    }
-}
-
-## ::tkcon::CmdSep - separates multiple commands into a list and remainder
-# ARGS:	cmd	- (possible) multiple command to separate
-# 	list	- varname for the list of commands that were separated.
-#	last	- varname of any remainder (like an incomplete final command).
-#		If there is only one command, it's placed in this var.
-# Returns:	constituent command info in varnames specified by list & rmd.
-## 
-proc ::tkcon::CmdSep {cmd list last} {
-    upvar 1 $list cmds $last inc
-    set inc {}
-    set cmds {}
-    foreach c [split [string trimleft $cmd] \n] {
-	if {$inc ne ""} {
-	    append inc \n$c
-	} else {
-	    append inc [string trimleft $c]
-	}
-	if {[info complete $inc] && ![regexp {[^\\]\\$} $inc]} {
-	    if {[regexp "^\[^#\]" $inc]} {lappend cmds $inc}
-	    set inc {}
-	}
-    }
-    set i [string equal $inc {}]
-    if {$i && $cmds ne "" && ![string match *\n $cmd]} {
-	set inc [lindex $cmds end]
-	set cmds [lreplace $cmds end end]
-    }
-    return $i
-}
-
-## ::tkcon::CmdSplit - splits multiple commands into a list
-# ARGS:	cmd	- (possible) multiple command to separate
-# Returns:	constituent commands in a list
-## 
-proc ::tkcon::CmdSplit {cmd} {
-    set inc {}
-    set cmds {}
-    foreach cmd [split [string trimleft $cmd] \n] {
-	if {$inc ne ""} {
-	    append inc \n$cmd
-	} else {
-	    append inc [string trimleft $cmd]
-	}
-	if {[info complete $inc] && ![regexp {[^\\]\\$} $inc]} {
-	    #set inc [string trimright $inc]
-	    if {[regexp "^\[^#\]" $inc]} {lappend cmds $inc}
-	    set inc {}
-	}
-    }
-    if {[regexp "^\[^#\]" $inc]} {lappend cmds $inc}
-    return $cmds
-}
-
-## ::tkcon::UniqueTag - creates a uniquely named tag, reusing names
-## Called by ::tkcon::EvalCmd
-# ARGS:	w	- text widget
-# Outputs:	tag name guaranteed unique in the widget
-## 
-proc ::tkcon::UniqueTag {w} {
-    set tags [$w tag names]
-    set idx 0
-    while {[lsearch -exact $tags _tag[incr idx]] != -1} {}
-    return _tag$idx
-}
-
-## ::tkcon::ConstrainBuffer - This limits the amount of data in the text widget
-## Called by ::tkcon::Prompt and in tkcon proc buffer/console switch cases
-# ARGS:	w	- console text widget
-#	size	- # of lines to constrain to
-# Outputs:	may delete data in console widget
-## 
-proc ::tkcon::ConstrainBuffer {w size} {
-    if {$size && ([$w index end] > $size)} {
-	$w delete 1.0 [expr {int([$w index end])-$size}].0
-    }
-}
-
-## ::tkcon::Prompt - displays the prompt in the console widget
-# ARGS:	w	- console text widget
-# Outputs:	prompt (specified in ::tkcon::OPT(prompt1)) to console
-## 
-proc ::tkcon::Prompt {{pre {}} {post {}} {prompt {}}} {
-    variable OPT
-    variable PRIV
-
-    set w $PRIV(console)
-    if {![winfo exists $w]} { return }
-    if {$pre ne ""} { $w insert end $pre stdout }
-    set i [$w index end-1c]
-    if {!$OPT(showstatusbar)} {
-	if {$PRIV(appname) ne ""} {
-	    $w insert end ">$PRIV(appname)< " prompt
-	}
-	if {$PRIV(namesp) ne "::"} {
-	    $w insert end "<$PRIV(namesp)> " prompt
-	}
-    }
-    if {$prompt ne ""} {
-	$w insert end $prompt prompt
-    } else {
-	$w insert end [EvalSlave subst $OPT(prompt1)] prompt
-    }
-    $w mark set output $i
-    $w mark set insert end
-    $w mark set limit insert
-    $w mark gravity limit left
-    if {$post ne ""} { $w insert end $post stdin }
-    ConstrainBuffer $w $OPT(buffer)
-    set ::tkcon::PRIV(StatusCursor) [$w index insert]
-    $w see end
-}
-proc ::tkcon::RePrompt {{pre {}} {post {}} {prompt {}}} {
-    # same as prompt, but does nothing for those actions where we
-    # only wanted to refresh the prompt on attach change when the
-    # statusbar is showing (which carries that info instead)
-    variable OPT
-    if {!$OPT(showstatusbar)} {
-	Prompt $pre $post $prompt
-    }
-}
-
-## ::tkcon::About - gives about info for tkcon
-## 
-proc ::tkcon::About {} {
-    variable OPT
-    variable PRIV
-    variable COLOR
-
-    set w $PRIV(base).about
-    if {![winfo exists $w]} {
-	global tk_patchLevel tcl_patchLevel tcl_version
-	toplevel $w
-	wm withdraw $w
-	wm transient $w $PRIV(root)
-	wm group $w $PRIV(root)
-	catch {wm attributes $w -type dialog}
-	wm title $w "About tkcon v$PRIV(version)"
-	wm resizable $w 0 0
-	button $w.b -text Dismiss -command [list wm withdraw $w]
-	text $w.text -height 9 -width 60 \
-		-foreground $COLOR(stdin) \
-		-background $COLOR(bg) \
-		-font $OPT(font) -borderwidth 1 -highlightthickness 0
-	grid $w.text -sticky news
-	grid $w.b -sticky se -padx 6 -pady 4
-	$w.text tag config center -justify center
-	$w.text tag config title -justify center -font {Courier -18 bold}
-	# strip down the RCS info displayed in the about box
-	regexp {,v ([0-9\./: ]*)} $PRIV(RCS) -> RCS
-	$w.text insert 1.0 "About tkcon v$PRIV(version)" title \
-		"\n\nCopyright 1995-2002 Jeffrey Hobbs, $PRIV(email)\
-		\nRelease Info: v$PRIV(version), CVS v$RCS\
-		\nDocumentation available at:\n$PRIV(docs)\
-		\nUsing: Tcl v$tcl_patchLevel / Tk v$tk_patchLevel" center
-	$w.text config -state disabled
-	bind $w <Escape> [list destroy $w]
-    }
-    wm deiconify $w
-}
-
-## ::tkcon::InitMenus - inits the menubar and popup for the console
-# ARGS:	w	- console text widget
-## 
-proc ::tkcon::InitMenus {w title} {
-    variable OPT
-    variable PRIV
-    variable COLOR
-    global tcl_platform
-
-    if {[catch {menu $w.pop}]} {
-	label $w.label -text "Menus not available in plugin mode"
-	grid $w.label -sticky ew
-	return
-    }
-    menu $w.context -disabledforeground $COLOR(disabled)
-    set PRIV(context) $w.context
-    set PRIV(popup) $w.pop
-
-    proc MenuButton {w m l} {
-	$w add cascade -label $m -underline 0 -menu $w.$l
-	return $w.$l
-    }
-    proc MenuConfigure {m l args} {
-	variable PRIV
-	eval [list $PRIV(menubar).[string tolower $m] entryconfigure $l] $args
-	eval [list $PRIV(popup).[string tolower $m] entryconfigure $l] $args
-    }
-
-    foreach m [list File Console Edit Interp Prefs History Help] {
- 	set l [string tolower $m]
- 	MenuButton $w $m $l
- 	$w.pop add cascade -label $m -underline 0 -menu $w.pop.$l
-    }
-
-    ## File Menu
-    ##
-    foreach m [list [menu $w.file -disabledforeground $COLOR(disabled)] \
-	    [menu $w.pop.file -disabledforeground $COLOR(disabled)]] {
-	$m add command -label "Load File" -underline 0 -command ::tkcon::Load
-	$m add cascade -label "Save ..."  -underline 0 -menu $m.save
-	$m add separator
-	$m add command -label "Quit" -underline 0 -accel $PRIV(ACC)q \
-	    -command exit
-
-	## Save Menu
-	##
-	set s $m.save
-	menu $s -disabledforeground $COLOR(disabled)
-	$s add command -label "All"	-underline 0 \
-		-command {::tkcon::Save {} all}
-	$s add command -label "History"	-underline 0 \
-		-command {::tkcon::Save {} history}
-	$s add command -label "Stdin"	-underline 3 \
-		-command {::tkcon::Save {} stdin}
-	$s add command -label "Stdout"	-underline 3 \
-		-command {::tkcon::Save {} stdout}
-	$s add command -label "Stderr"	-underline 3 \
-		-command {::tkcon::Save {} stderr}
-    }
-
-    ## Console Menu
-    ##
-    foreach m [list [menu $w.console -disabledfore $COLOR(disabled)] \
-	    [menu $w.pop.console -disabledfore $COLOR(disabled)]] {
-	$m add command -label "$title Console"	-state disabled
-	$m add command -label "New Console" -underline 0 -accel $PRIV(ACC)N \
-		-command ::tkcon::New
-	$m add command -label "New Tab" -underline 4 -accel $PRIV(ACC)T \
-		-command ::tkcon::NewTab
-	$m add command -label "Delete Tab" -underline 0 \
-		-command ::tkcon::DeleteTab -state disabled
-	$m add command -label "Close Console" -underline 0 -accel $PRIV(ACC)w \
-		-command ::tkcon::Destroy
-	$m add command -label "Clear Console" -underline 1 -accel Ctrl-l \
-		-command { clear; ::tkcon::Prompt }
-	if {[tk windowingsystem] eq "x11"} {
-	    $m add separator
-	    $m add command -label "Make Xauth Secure" -und 5 \
-		    -command ::tkcon::XauthSecure
-	}
-	$m add separator
-	$m add cascade -label "Attach To ..." -underline 0 -menu $m.attach
-
-	## Attach Console Menu
-	##
-	set sub [menu $m.attach -disabledforeground $COLOR(disabled)]
-	$sub add cascade -label "Interpreter" -underline 0 -menu $sub.apps
-	$sub add cascade -label "Namespace"   -underline 0 -menu $sub.name
-
-	## Attach Console Menu
-	##
-	menu $sub.apps -disabledforeground $COLOR(disabled) \
-		-postcommand [list ::tkcon::AttachMenu $sub.apps]
-
-	## Attach Namespace Menu
-	##
-	menu $sub.name -disabledforeground $COLOR(disabled) \
-		-postcommand [list ::tkcon::NamespaceMenu $sub.name]
-
-	## Attach Socket Menu
-	##
-	$sub add cascade -label "Socket" -underline 0 -menu $sub.sock
-	menu $sub.sock -disabledforeground $COLOR(disabled) \
-	    -postcommand [list ::tkcon::SocketMenu $sub.sock]
-
-	if {[tk windowingsystem] eq "x11"} {
-	    ## Attach Display Menu
-	    ##
-	    $sub add cascade -label "Display" -underline 0 -menu $sub.disp
-	    menu $sub.disp -disabledforeground $COLOR(disabled) \
-		    -postcommand [list ::tkcon::DisplayMenu $sub.disp]
-	}
-    }
-
-    ## Edit Menu
-    ##
-    set text $PRIV(console)
-    foreach m [list [menu $w.edit] [menu $w.pop.edit]] {
-	$m add command -label "Cut"   -underline 2 -accel $PRIV(ACC)x \
-		-command [list ::tkcon::Cut $text]
-	$m add command -label "Copy"  -underline 0 -accel $PRIV(ACC)c \
-		-command [list ::tkcon::Copy $text]
-	$m add command -label "Paste" -underline 0 -accel $PRIV(ACC)v \
-		 -command [list ::tkcon::Paste $text]
-	$m add separator
-	$m add command -label "Find"  -underline 0 -accel $PRIV(ACC)F \
-		-command [list ::tkcon::FindBox $text]
-    }
-
-    ## Interp Menu
-    ##
-    foreach m [list $w.interp $w.pop.interp] {
-	menu $m -disabledforeground $COLOR(disabled) \
-		-postcommand [list ::tkcon::InterpMenu $m]
-    }
-
-    ## Prefs Menu
-    ##
-    foreach m [list [menu $w.prefs] [menu $w.pop.prefs]] {
-	$m add check -label "Brace Highlighting" \
-		-underline 0 -variable ::tkcon::OPT(lightbrace)
-	$m add check -label "Command Highlighting" \
-		-underline 0 -variable ::tkcon::OPT(lightcmd)
-	$m add check -label "History Substitution" \
-		-underline 0 -variable ::tkcon::OPT(subhistory)
-	$m add check -label "Hot Errors" \
-		-underline 4 -variable ::tkcon::OPT(hoterrors)
-	$m add check -label "Non-Tcl Attachments" \
-		-underline 0 -variable ::tkcon::OPT(nontcl)
-	$m add check -label "Calculator Mode" \
-		-underline 1 -variable ::tkcon::OPT(calcmode)
-	$m add check -label "Show Multiple Matches" \
-		-underline 0 -variable ::tkcon::OPT(showmultiple)
-	if {!$PRIV(AQUA)} {
-	    $m add check -label "Show Menubar" \
-		-underline 5 -variable ::tkcon::OPT(showmenu) \
-		-command {
-		    $::tkcon::PRIV(root) configure \
-			-menu [expr {$::tkcon::OPT(showmenu) ?
-				     $::tkcon::PRIV(menubar) : {}}]
-		}
-	}
-	$m add check -label "Show Statusbar" \
-	    -underline 5 -variable ::tkcon::OPT(showstatusbar) \
-	    -command {
-		if {$::tkcon::OPT(showstatusbar)} {
-		    grid $::tkcon::PRIV(statusbar)
-		} else { grid remove $::tkcon::PRIV(statusbar) }
-	    }
-	$m add cascade -label "Scrollbar" -underline 2 -menu $m.scroll
-
-	## Scrollbar Menu
-	##
-	set m [menu $m.scroll]
-	$m add radio -label "Left" -value left \
-		-variable ::tkcon::OPT(scrollypos) \
-		-command { grid configure $::tkcon::PRIV(scrolly) -column 0 }
-	$m add radio -label "Right" -value right \
-		-variable ::tkcon::OPT(scrollypos) \
-		-command { grid configure $::tkcon::PRIV(scrolly) -column 2 }
-    }
-
-    ## History Menu
-    ##
-    foreach m [list $w.history $w.pop.history] {
-	menu $m -disabledforeground $COLOR(disabled) \
-		-postcommand [list ::tkcon::HistoryMenu $m]
-    }
-
-    ## Help Menu
-    ##
-    foreach m [list [menu $w.help] [menu $w.pop.help]] {
-	$m add command -label "About " -underline 0 -accel $PRIV(ACC)A \
-		-command ::tkcon::About
-	$m add command -label "Retrieve Latest Version" -underline 0 \
-		-command ::tkcon::Retrieve
-	if {![catch {package require ActiveTcl} ver]} {
-	    set cmd ""
-	    if {$tcl_platform(platform) == "windows"} {
-		package require registry
-		set ver [join [lrange [split $ver .] 0 3] .]
-		set key {HKEY_LOCAL_MACHINE\SOFTWARE\ActiveState\ActiveTcl}
-		if {![catch {registry get "$key\\$ver\\Help" ""} help]
-		    && [file exists $help]} {
-		    set cmd [list exec $::env(COMSPEC) /c start {} $help]
-		}
-	    } elseif {$tcl_platform(os) == "Darwin"} {
-		set ver ActiveTcl-[join [lrange [split $ver .] 0 1] .]
-		set rsc "/Library/Frameworks/Tcl.framework/Resources"
-		set help "$rsc/English.lproj/$ver/index.html"
-		if {[file exists $help]} {
-		    set cmd [list exec open $help]
-		}
-	    } elseif {$tcl_platform(platform) == "unix"} {
-		set help [file dirname [info nameofexe]]
-		append help /../html/index.html
-		if {[file exists $help]} {
-		    set cmd [list puts "Start $help"]
-		}
-	    }
-	    if {$cmd != ""} {
-		$m add separator
-		$m add command -label "ActiveTcl Help" -underline 10 \
-		    -command $cmd
-	    }
-	}
-    }
-}
-
-## ::tkcon::HistoryMenu - dynamically build the menu for attached interpreters
-##
-# ARGS:	m	- menu widget
-##
-proc ::tkcon::HistoryMenu m {
-    variable PRIV
-
-    if {![winfo exists $m]} return
-    set id [EvalSlave history nextid]
-    if {$PRIV(histid)==$id} return
-    set PRIV(histid) $id
-    $m delete 0 end
-    while {($id>1) && ($id>$PRIV(histid)-10) && \
-	    ![catch {EvalSlave history event [incr id -1]} tmp]} {
-	set lbl $tmp
-	if {[string len $lbl]>32} { set lbl [string range $tmp 0 28]... }
-	$m add command -label "$id: $lbl" -command "
-	$::tkcon::PRIV(console) delete limit end
-	$::tkcon::PRIV(console) insert limit [list $tmp]
-	$::tkcon::PRIV(console) see end
-	::tkcon::Eval $::tkcon::PRIV(console)"
-    }
-}
-
-## ::tkcon::InterpMenu - dynamically build the menu for attached interpreters
-##
-# ARGS:	w	- menu widget
-##
-proc ::tkcon::InterpMenu w {
-    variable OPT
-    variable PRIV
-    variable COLOR
-
-    if {![winfo exists $w]} return
-    $w delete 0 end
-    foreach {app type} [Attach] break
-    $w add command -label "[string toupper $type]: $app" -state disabled
-    if {($OPT(nontcl) && $type eq "interp") || $PRIV(deadapp)} {
-	$w add separator
-	$w add command -state disabled -label "Communication disabled to"
-	$w add command -state disabled -label "dead or non-Tcl interps"
-	return
-    }
-
-    ## Show Last Error
-    ##
-    $w add separator
-    $w add command -label "Show Last Error" \
-	    -command [list tkcon error $app $type]
-
-    ## Packages Cascaded Menu
-    ##
-    $w add separator
-    $w add command -label "Manage Packages" -underline 0 \
-	-command [list ::tkcon::InterpPkgs $app $type]
-
-    ## State Checkpoint/Revert
-    ##
-    $w add separator
-    $w add command -label "Checkpoint State" \
-	    -command [list ::tkcon::StateCheckpoint $app $type]
-    $w add command -label "Revert State" \
-	    -command [list ::tkcon::StateRevert $app $type]
-    $w add command -label "View State Change" \
-	    -command [list ::tkcon::StateCompare $app $type]
-
-    ## Init Interp
-    ##
-    $w add separator
-    $w add command -label "Send tkcon Commands" \
-	    -command [list ::tkcon::InitInterp $app $type]
-}
-
-## ::tkcon::PkgMenu - fill in  in the applications sub-menu
-## with a list of all the applications that currently exist.
-##
-proc ::tkcon::InterpPkgs {app type} {
-    variable PRIV
-
-    set t $PRIV(base).interppkgs
-    if {![winfo exists $t]} {
-	toplevel $t
-	wm withdraw $t
-	wm title $t "$app Packages"
-	wm transient $t $PRIV(root)
-	wm group $t $PRIV(root)
-	catch {wm attributes $t -type dialog}
-	bind $t <Escape> [list destroy $t]
-
-	label $t.ll -text "Loadable:" -anchor w
-	label $t.lr -text "Loaded:" -anchor w
-	listbox $t.loadable -font tkconfixed -background white -borderwidth 1 \
-	    -yscrollcommand [list $t.llsy set] -selectmode extended
-	listbox $t.loaded -font tkconfixed -background white -borderwidth 1 \
-	    -yscrollcommand [list $t.lrsy set]
-	scrollbar $t.llsy -command [list $t.loadable yview]
-	scrollbar $t.lrsy -command [list $t.loaded yview]
-	button $t.load -borderwidth 1 -text ">>" \
-	    -command [list ::tkcon::InterpPkgLoad $app $type $t.loadable]
-	if {$::tcl_version >= 8.4} {
-	    $t.load configure -relief flat -overrelief raised
-	}
-
-	set f [frame $t.btns]
-	button $f.refresh -width 8 -text "Refresh" -command [info level 0]
-	button $f.dismiss -width 8 -text "Dismiss" -command [list destroy $t]
-	grid $f.refresh $f.dismiss -padx 4 -pady 3 -sticky ew
-	if {$PRIV(AQUA)} { # corner resize control space
-	    grid columnconfigure $f [lindex [grid size $f] 0] -minsize 16
-	}
-
-	grid $t.ll x x $t.lr x -sticky ew
-	grid $t.loadable $t.llsy $t.load $t.loaded $t.lrsy -sticky news
-	grid $t.btns -sticky e -columnspan 5
-	grid columnconfigure $t {0 3} -weight 1
-	grid rowconfigure $t 1 -weight 1
-	grid configure $t.load -sticky ""
-
-	bind $t.loadable <Double-1> "[list $t.load invoke]; break"
-    }
-    $t.loaded delete 0 end
-    $t.loadable delete 0 end
-
-    # just in case stuff has been added to the auto_path
-    # we have to make sure that the errorInfo doesn't get screwed up
-    EvalAttached {
-	set __tkcon_error $errorInfo
-	catch {package require bogus-package-name}
-	set errorInfo ${__tkcon_error}
-	unset __tkcon_error
-    }
-    # get all packages loaded into current interp
-    foreach pkg [EvalAttached [list info loaded {}]] {
-	set pkg [lindex $pkg 1]
-	set loaded($pkg) [package provide $pkg]
-    }
-    # get all package names currently visible
-    foreach pkg [lremove [EvalAttached {package names}] Tcl] {
-	set version [EvalAttached [list package provide $pkg]]
-	if {$version ne ""} {
-	    set loaded($pkg) $version
-	} elseif {![info exists loaded($pkg)]} {
-	    set loadable($pkg) package
-	}
-    }
-    # get packages that are loaded in any interp
-    foreach pkg [EvalAttached {info loaded}] {
-	set pkg [lindex $pkg 1]
-	if {![info exists loaded($pkg)] && ![info exists loadable($pkg)]} {
-	    set loadable($pkg) load
-	}
-    }
-    foreach pkg [lsort -dictionary [array names loadable]] {
-	foreach v [EvalAttached [list package version $pkg]] {
-	    $t.loadable insert end [list $pkg $v "($loadable($pkg))"]
-	}
-    }
-    foreach pkg [lsort -dictionary [array names loaded]] {
-	$t.loaded insert end [list $pkg $loaded($pkg)]
-    }
-
-    wm deiconify $t
-    raise $t
-}
-
-proc ::tkcon::InterpPkgLoad {app type lb} {
-    # load the lb entry items into the interp
-    foreach sel [$lb curselection] {
-	foreach {pkg ver method} [$lb get $sel] { break }
-	if {$method == "(package)"} {
-	    set code [catch {::tkcon::EvalOther $app $type \
-				 package require $pkg $ver} msg]
-	} elseif {$method == "(load)"} {
-	    set code [catch {::tkcon::EvalOther $app $type load {} $pkg} msg]
-	} else {
-	    set code 1
-	    set msg "Incorrect entry in Loadable selection"
-	}
-	if {$code} {
-	    tk_messageBox -icon error -title "Error requiring $pkg" -type ok \
-		-message "Error requiring $pkg $ver:\n$msg\n$::errorInfo"
-	}
-    }
-    # refresh package list
-    InterpPkgs $app $type
-}
-
-## ::tkcon::AttachMenu - fill in  in the applications sub-menu
-## with a list of all the applications that currently exist.
-##
-proc ::tkcon::AttachMenu m {
-    variable OPT
-    variable PRIV
-
-    array set interps [set tmp [Interps]]
-    foreach {i j} $tmp { set tknames($j) {} }
-
-    $m delete 0 end
-    set cmd {::tkcon::RePrompt \n [::tkcon::CmdGet $::tkcon::PRIV(console)]}
-    $m add radio -label {None (use local slave) } -accel $PRIV(ACC)1 \
-	    -variable ::tkcon::PRIV(app) \
-	    -value [concat $::tkcon::PRIV(name) $::tkcon::OPT(exec)] \
-	    -command "::tkcon::Attach {}; $cmd"
-    $m add separator
-    $m add command -label "Foreign Tk Interpreters" -state disabled
-    foreach i [lsort [lremove [::send::interps] [array names tknames]]] {
-	$m add radio -label $i -variable ::tkcon::PRIV(app) -value $i \
-		-command "::tkcon::Attach [list $i] interp; $cmd"
-    }
-    $m add separator
-
-    $m add command -label "tkcon Interpreters" -state disabled
-    foreach i [lsort [array names interps]] {
-	if {$interps($i) eq ""} { set interps($i) "no Tk" }
-	if {[regexp {^Slave[0-9]+} $i]} {
-	    set opts [list -label "$i ($interps($i))" \
-		    -variable ::tkcon::PRIV(app) -value $i \
-		    -command "::tkcon::Attach [list $i] slave; $cmd"]
-	    if {$PRIV(name) eq $i} {
-		append opts " -accel $PRIV(ACC)2"
-	    }
-	    eval [list $m add radio] $opts
-	} else {
-	    set name [concat Main $i]
-	    if {$name eq "Main"} {
-		$m add radio -label "$name ($interps($i))" -accel $PRIV(ACC)3 \
-			-variable ::tkcon::PRIV(app) -value Main \
-			-command "::tkcon::Attach [list $name] slave; $cmd"
-	    } else {
-		$m add radio -label "$name ($interps($i))" \
-			-variable ::tkcon::PRIV(app) -value $i \
-			-command "::tkcon::Attach [list $name] slave; $cmd"
-	    }
-	}
-    }
-}
-
-## Displays Cascaded Menu
-##
-proc ::tkcon::DisplayMenu m {
-    $m delete 0 end
-    set cmd {::tkcon::RePrompt \n [::tkcon::CmdGet $::tkcon::PRIV(console)]}
-
-    $m add command -label "New Display" -command ::tkcon::NewDisplay
-    foreach disp [Display] {
-	$m add separator
-	$m add command -label $disp -state disabled
-	set res [Display $disp]
-	set win [lindex $res 0]
-	foreach i [lsort [lindex $res 1]] {
-	    $m add radio -label $i -variable ::tkcon::PRIV(app) -value $i \
-		    -command "::tkcon::Attach [list $i] [list dpy:$win]; $cmd"
-	}
-    }
-}
-
-## Sockets Cascaded Menu
-##
-proc ::tkcon::SocketMenu m {
-    $m delete 0 end
-    set cmd {::tkcon::RePrompt \n [::tkcon::CmdGet $::tkcon::PRIV(console)]}
-
-    $m add command -label "Create Connection" \
-	    -command "::tkcon::NewSocket; $cmd"
-    foreach sock [file channels sock*] {
-	$m add radio -label $sock -variable ::tkcon::PRIV(app) -value $sock \
-		-command "::tkcon::Attach $sock socket; $cmd"
-    }
-}
-
-## Namepaces Cascaded Menu
-##
-proc ::tkcon::NamespaceMenu m {
-    variable PRIV
-    variable OPT
-
-    $m delete 0 end
-    if {($PRIV(deadapp) || $PRIV(apptype) eq "socket" || \
-	    ($OPT(nontcl) && $PRIV(apptype) eq "interp"))} {
-	$m add command -label "No Namespaces" -state disabled
-	return
-    }
-
-    ## Same command as for ::tkcon::AttachMenu items
-    set cmd {::tkcon::RePrompt \n [::tkcon::CmdGet $::tkcon::PRIV(console)]}
-
-    set names [lsort [Namespaces ::]]
-    if {[llength $names] > $OPT(maxmenu)} {
-	$m add command -label "Attached to $PRIV(namesp)" -state disabled
-	$m add command -label "List Namespaces" \
-		-command [list ::tkcon::NamespacesList $names]
-    } else {
-	foreach i $names {
-	    if {$i eq "::"} {
-		$m add radio -label "Main" -value $i \
-			-variable ::tkcon::PRIV(namesp) \
-			-command "::tkcon::AttachNamespace [list $i]; $cmd"
-	    } else {
-		$m add radio -label $i -value $i \
-			-variable ::tkcon::PRIV(namesp) \
-			-command "::tkcon::AttachNamespace [list $i]; $cmd"
-	    }
-	}
-    }
-}
-
-## Namepaces List 
-##
-proc ::tkcon::NamespacesList {names} {
-    variable PRIV
-
-    set f $PRIV(base).namespaces
-    catch {destroy $f}
-    toplevel $f
-    catch {wm attributes $f -type dialog}
-    listbox $f.names -width 30 -height 15 -selectmode single \
-	-yscrollcommand [list $f.scrollv set] \
-	-xscrollcommand [list $f.scrollh set] \
-	-background white -borderwidth 1
-    scrollbar $f.scrollv -command [list $f.names yview]
-    scrollbar $f.scrollh -command [list $f.names xview] -orient horizontal
-    frame $f.buttons
-    button $f.cancel -text "Cancel" -command [list destroy $f]
-
-    grid $f.names $f.scrollv -sticky nesw
-    grid $f.scrollh -sticky ew
-    grid $f.buttons -sticky nesw
-    grid $f.cancel -in $f.buttons -pady 6
-
-    grid columnconfigure $f 0 -weight 1
-    grid rowconfigure $f  0 -weight 1
-    #fill the listbox
-    foreach i $names {
-	if {$i eq "::"} {
-	    $f.names insert 0 Main
-	} else {
-	    $f.names insert end $i
-	}
-    }
-    #Bindings
-    bind $f.names <Double-1> {
-	## Catch in case the namespace disappeared on us
-	catch { ::tkcon::AttachNamespace [%W get [%W nearest %y]] }
-	::tkcon::RePrompt "\n" [::tkcon::CmdGet $::tkcon::PRIV(console)]
-	destroy [winfo toplevel %W]
-    }
-}
-
-# ::tkcon::XauthSecure --
-#
-#   This removes all the names in the xhost list, and secures
-#   the display for Tk send commands.  Of course, this prevents
-#   what might have been otherwise allowable X connections
-#
-# Arguments:
-#   none
-# Results:
-#   Returns nothing
-#
-proc ::tkcon::XauthSecure {} {
-    global tcl_platform
-
-    if {[tk windowingsystem] ne "x11"} {
-	# This makes no sense outside of Unix
-	return
-    }
-    set hosts [exec xhost]
-    # the first line is info only
-    foreach host [lrange [split $hosts \n] 1 end] {
-	exec xhost -$host
-    }
-    exec xhost -
-    tk_messageBox -title "Xhost secured" -message "Xhost secured" -icon info
-}
-
-## ::tkcon::FindBox - creates minimal dialog interface to ::tkcon::Find
-# ARGS:	w	- text widget
-#	str	- optional seed string for ::tkcon::PRIV(find)
-##
-proc ::tkcon::FindBox {w {str {}}} {
-    variable PRIV
-
-    set base $PRIV(base).find
-    if {![winfo exists $base]} {
-	toplevel $base
-	wm withdraw $base
-	catch {wm attributes $base -type dialog}
-	wm title $base "tkcon Find"
-	wm resizable $base 1 0
-
-	label $base.l -text "Find:" -anchor e
-	entry $base.e -textvariable ::tkcon::PRIV(find)
-
-	checkbutton $base.case -text "Case Sensitive" \
-	    -variable ::tkcon::PRIV(find,case)
-	checkbutton $base.re -text "Use Regexp" \
-	    -variable ::tkcon::PRIV(find,reg)
-
-	frame $base.sep -borderwidth 1 -relief sunken -height 2
-	frame $base.btn
-	grid $base.l $base.e - - -sticky ew
-	grid $base.case - $base.re -sticky ew
-	grid $base.sep -columnspan 4 -sticky ew
-	grid $base.btn -columnspan 4 -sticky ew
-	grid columnconfigure $base 3 -weight 1
-
-	button $base.btn.fnd -text "Find" -width 6
-	button $base.btn.clr -text "Clear" -width 6
-	button $base.btn.dis -text "Dismiss" -width 6
-	eval grid [winfo children $base.btn] -padx 4 -pady 2 -sticky ew
-	if {$PRIV(AQUA)} { # corner resize control space
-	    grid columnconfigure $base.btn \
-		[lindex [grid size $base.btn] 0] -minsize 16
-	}
-
-	focus $base.e
-
-	bind $base.e <Return> [list $base.btn.fnd invoke]
-	bind $base.e <Escape> [list $base.btn.dis invoke]
-    }
-    $base.btn.fnd config -command "::tkcon::Find [list $w] \$::tkcon::PRIV(find) \
-	    -case \$::tkcon::PRIV(find,case) -reg \$::tkcon::PRIV(find,reg)"
-    $base.btn.clr config -command "
-    [list $w] tag remove find 1.0 end
-    set ::tkcon::PRIV(find) {}
-    "
-    $base.btn.dis config -command "
-    [list $w] tag remove find 1.0 end
-    wm withdraw [list $base]
-    "
-    if {$str ne ""} {
-	set PRIV(find) $str
-	$base.btn.fnd invoke
-    }
-
-    if {[wm state $base] ne "normal"} {
-	wm deiconify $base
-    } else { raise $base }
-    $base.e select range 0 end
-}
-
-## ::tkcon::Find - searches in text widget $w for $str and highlights it
-## If $str is empty, it just deletes any highlighting
-# ARGS: w	- text widget
-#	str	- string to search for
-#	-case	TCL_BOOLEAN	whether to be case sensitive	DEFAULT: 0
-#	-regexp	TCL_BOOLEAN	whether to use $str as pattern	DEFAULT: 0
-##
-proc ::tkcon::Find {w str args} {
-    $w tag remove find 1.0 end
-    set truth {^(1|yes|true|on)$}
-    set opts  {}
-    foreach {key val} $args {
-	switch -glob -- $key {
-	    -c* { if {[regexp -nocase $truth $val]} { set case 1 } }
-	    -r* { if {[regexp -nocase $truth $val]} { lappend opts -regexp } }
-	    default { return -code error "Unknown option $key" }
-	}
-    }
-    if {![info exists case]} { lappend opts -nocase }
-    if {$str eq ""} { return }
-    $w mark set findmark 1.0
-    while {[set ix [eval $w search $opts -count numc -- \
-			[list $str] findmark end]] ne ""} {
-	$w tag add find $ix ${ix}+${numc}c
-	$w mark set findmark ${ix}+1c
-    }
-    $w tag configure find -background $::tkcon::COLOR(blink)
-    catch {$w see find.first}
-    return [expr {[llength [$w tag ranges find]]/2}]
-}
-
-## ::tkcon::Attach - called to attach tkcon to an interpreter
-# ARGS:	name	- application name to which tkcon sends commands
-#		  This is either a slave interperter name or tk appname.
-#	type	- (slave|interp) type of interpreter we're attaching to
-#		  slave means it's a tkcon interpreter
-#		  interp means we'll need to 'send' to it.
-# Results:	::tkcon::EvalAttached is recreated to evaluate in the
-#		appropriate interpreter
-##
-proc ::tkcon::Attach {{name <NONE>} {type slave} {ns {}}} {
-    variable PRIV
-    variable OPT
-    variable ATTACH
-
-    if {[llength [info level 0]] == 1} {
-	# no args were specified, return the attach info instead
-	return [AttachId]
-    }
-    set path [concat $PRIV(name) $OPT(exec)]
-
-    set PRIV(displayWin) .
-    if {$type eq "namespace"} {
-	return [uplevel 1 ::tkcon::AttachNamespace $name]
-    } elseif {[string match dpy:* $type]} {
-	set PRIV(displayWin) [string range $type 4 end]
-    } elseif {[string match sock* $type]} {
-	global tcl_version
-	if {[catch {eof $name} res]} {
-	    return -code error "No known channel \"$name\""
-	} elseif {$res} {
-	    catch {close $name}
-	    return -code error "Channel \"$name\" returned EOF"
-	}
-	set app $name
-	set type socket
-    } elseif {$name ne ""} {
-	array set interps [Interps]
-	if {[string match {[Mm]ain} [lindex $name 0]]} {
-	    set name [lrange $name 1 end]
-	}
-	if {$name eq $path} {
-	    set name {}
-	    set app $path
-	    set type slave
-	} elseif {[info exists interps($name)]} {
-	    if {$name eq ""} { set name Main; set app Main }
-	    set type slave
-	} elseif {[interp exists $name]} {
-	    set name [concat $PRIV(name) $name]
-	    set type slave
-	} elseif {[interp exists [concat $OPT(exec) $name]]} {
-	    set name [concat $path $name]
-	    set type slave
-	} elseif {[lsearch -exact [::send::interps] $name] > -1} {
-	    if {[EvalSlave info exists tk_library] 
-		&& $name eq [EvalSlave tk appname]} {
-		set name {}
-		set app $path
-		set type slave
-	    } elseif {[set i [lsearch -exact \
-		    [Main set ::tkcon::PRIV(interps)] $name]] != -1} {
-		set name [lindex [Main set ::tkcon::PRIV(slaves)] $i]
-		if {[string match {[Mm]ain} $name]} { set app Main }
-		set type slave
-	    } else {
-		set type interp
-	    }
-	} else {
-	    return -code error "No known interpreter \"$name\""
-	}
-    } else {
-	set app $path
-    }
-    if {![info exists app]} { set app $name }
-    array set PRIV [list app $app appname $name apptype $type deadapp 0]
-
-    ## ::tkcon::EvalAttached - evaluates the args in the attached interp
-    ## args should be passed to this procedure as if they were being
-    ## passed to the 'eval' procedure.  This procedure is dynamic to
-    ## ensure evaluation occurs in the right interp.
-    # ARGS:	args	- the command and args to evaluate
-    ##
-    set PRIV(namesp) ::
-    set namespOK 0
-    switch -glob -- $type {
-	slave {
-	    if {$name eq ""} {
-		interp alias {} ::tkcon::EvalAttached {} \
-			::tkcon::EvalSlave uplevel \#0
-	    } elseif {$PRIV(app) eq "Main"} {
-		interp alias {} ::tkcon::EvalAttached {} ::tkcon::Main
-	    } elseif {$PRIV(name) eq $PRIV(app)} {
-		interp alias {} ::tkcon::EvalAttached {} uplevel \#0
-	    } else {
-		interp alias {} ::tkcon::EvalAttached {} \
-			::tkcon::Slave $::tkcon::PRIV(app)
-	    }
-	    set namespOK 1
-	}
-	sock* {
-	    interp alias {} ::tkcon::EvalAttached {} \
-		    ::tkcon::EvalSlave uplevel \#0
-	    # The file event will just puts whatever data is found
-	    # into the interpreter
-	    fconfigure $name -buffering line -blocking 0
-	    fileevent $name readable [list ::tkcon::EvalSocketEvent $name]
-	}
-	dpy:* -
-	interp {
-	    if {$OPT(nontcl)} {
-		interp alias {} ::tkcon::EvalAttached {} ::tkcon::EvalSlave
-	    } else {
-		interp alias {} ::tkcon::EvalAttached {} ::tkcon::EvalSend
-		set namespOK 1
-	    }
-	}
-	default {
-	    return -code error "[lindex [info level 0] 0] did not specify\
-		    a valid type: must be slave or interp"
-	}
-    }
-    if {$ns ne "" && $namespOK} {
-	AttachNamespace $ns
-    }
-    return [AttachId]
-}
-
-proc ::tkcon::AttachId {} {
-    # return Attach info in a form that Attach accepts again
-    variable PRIV
-
-    if {$PRIV(appname) eq ""} {
-	variable OPT
-	set appname [concat $PRIV(name) $OPT(exec)]
-    } else {
-	set appname $PRIV(appname)
-    }
-    set id [list $appname $PRIV(apptype)]
-    # only display ns info if it isn't "::" as that is what is also
-    # used to indicate no eval in namespace
-    if {$PRIV(namesp) ne "::"} { lappend id $PRIV(namesp) }
-    if {[info exists PRIV(console)]} {
-	variable ATTACH
-	set ATTACH($PRIV(console)) $id
-    }
-    return $id
-}
-
-## ::tkcon::AttachNamespace - called to attach tkcon to a namespace
-# ARGS:	name	- namespace name in which tkcon should eval commands
-# Results:	::tkcon::EvalAttached will be modified
-##
-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) && $PRIV(apptype) eq "interp")
-	|| $PRIV(apptype) eq "socket"
-	|| $PRIV(deadapp)} {
-	return -code error "can't attach to namespace in attached environment"
-    }
-    if {$name eq "Main"} {set name ::}
-    if {$name ne "" && [lsearch [Namespaces ::] $name] == -1} {
-	return -code error "No known namespace \"$name\""
-    }
-    if {[regexp {^(|::)$} $name]} {
-	## If name=={} || ::, we want the primary namespace
-	set alias [interp alias {} ::tkcon::EvalAttached]
-	if {[string match ::tkcon::EvalNamespace* $alias]} {
-	    eval [list interp alias {} ::tkcon::EvalAttached {}] \
-		    [lindex $alias 1]
-	}
-	set name ::
-    } else {
-	interp alias {} ::tkcon::EvalAttached {} ::tkcon::EvalNamespace \
-		[interp alias {} ::tkcon::EvalAttached] [list $name]
-    }
-    set PRIV(namesp) $name
-    return [AttachId]
-}
-
-## ::tkcon::NewSocket - called to create a socket to connect to
-# ARGS:	none
-# Results:	It will create a socket, and attach if requested
-##
-proc ::tkcon::NewSocket {} {
-    variable PRIV
-
-    set t $PRIV(base).newsock
-    if {![winfo exists $t]} {
-	toplevel $t
-	wm withdraw $t
-	catch {wm attributes $t -type dialog}
-	wm title $t "tkcon Create Socket"
-	wm resizable $t 1 0
-	label $t.lhost -text "Host: "
-	entry $t.host -width 16 -takefocus 1
-	label $t.lport -text "Port: "
-	entry $t.port -width 4 -takefocus 1
-	button $t.ok -text "OK" -command {set ::tkcon::PRIV(grab) 1} -width 4 \
-	    -takefocus 1
-	bind $t.host <Return> [list focus $t.port]
-	bind $t.port <Return> [list focus $t.ok]
-	bind $t.ok   <Return> [list $t.ok invoke]
-	grid $t.lhost $t.host $t.lport $t.port $t.ok -sticky ew
-	grid configure $t.ok -padx 4 -pady 2
-	grid columnconfig $t 1 -weight 1
-	grid rowconfigure $t 1 -weight 1
-	if {$PRIV(AQUA)} { # corner resize control space
-	    grid columnconfigure $t [lindex [grid size $t] 0] -minsize 16
-	}
-	wm transient $t $PRIV(root)
-	wm group $t $PRIV(root)
-	wm geometry $t +[expr {([winfo screenwidth $t]-[winfo \
-		reqwidth $t]) / 2}]+[expr {([winfo \
-		screenheight $t]-[winfo reqheight $t]) / 2}]
-	bind $t <Escape> [list destroy $t]
-    }
-    #$t.host delete 0 end
-    #$t.port delete 0 end
-    wm deiconify $t
-    raise $t
-    grab $t
-    focus $t.host
-    vwait ::tkcon::PRIV(grab)
-    grab release $t
-    wm withdraw $t
-    set host [$t.host get]
-    set port [$t.port get]
-    if {$host == ""} { return }
-    if {[catch {
-	set sock [socket $host $port]
-    } err]} {
-	tk_messageBox -title "Socket Connection Error" \
-		-message "Unable to connect to \"$host:$port\":\n$err" \
-		-icon error -type ok
-    } else {
-	Attach $sock socket
-    }
-}
-
-## ::tkcon::Load - sources a file into the console
-## The file is actually sourced in the currently attached's interp
-# ARGS:	fn	- (optional) filename to source in
-# Returns:	selected filename ({} if nothing was selected)
-## 
-proc ::tkcon::Load { {fn ""} } {
-    set types {
-	{{Tcl Files}	{.tcl .tk}}
-	{{Text Files}	{.txt}}
-	{{All Files}	*}
-    }
-    # Allow for VFS directories, use Tk dialogs automatically when in
-    # VFS-based areas
-    set check [expr {$fn == "" ? [pwd] : $fn}]
-    if {$::tcl_version >= 8.4 && [lindex [file system $check] 0] == "tclvfs"} {
-	set opencmd [list ::tk::dialog::file:: open]
-    } else {
-	set opencmd [list tk_getOpenFile]
-    }
-    if {$fn eq "" &&
-	([catch {tk_getOpenFile -filetypes $types \
-		     -title "Source File"} fn] || $fn eq "")
-    } { return }
-    EvalAttached [list source $fn]
-}
-
-## ::tkcon::Save - saves the console or other widget buffer to a file
-## This does not eval in a slave because it's not necessary
-# ARGS:	w	- console text widget
-# 	fn	- (optional) filename to save to
-## 
-proc ::tkcon::Save { {fn ""} {type ""} {opt ""} {mode w} } {
-    variable PRIV
-
-    if {![regexp -nocase {^(all|history|stdin|stdout|stderr|widget)$} $type]} {
-	array set s { 0 All 1 History 2 Stdin 3 Stdout 4 Stderr 5 Cancel }
-	## Allow user to specify what kind of stuff to save
-	set type [tk_dialog $PRIV(base).savetype "Save Type" \
-		"What part of the text do you want to save?" \
-		questhead 0 $s(0) $s(1) $s(2) $s(3) $s(4) $s(5)]
-	if {$type == 5 || $type == -1} return
-	set type $s($type)
-    }
-    # Allow for VFS directories, use Tk dialogs automatically when in
-    # VFS-based areas
-    set check [expr {$opt == "" ? [pwd] : $opt}]
-    if {$::tcl_version >= 8.4 && [lindex [file system $check] 0] == "tclvfs"} {
-	set savecmd [list ::tk::dialog::file:: save]
-    } else {
-	set savecmd [list tk_getSaveFile]
-    }
-    if {$fn eq ""} {
-	set types {
-	    {{Tcl Files}	{.tcl .tk}}
-	    {{Text Files}	{.txt}}
-	    {{All Files}	*}
-	}
-	if {[catch {eval $savecmd [list -defaultextension .tcl \
-				       -filetypes $types \
-				       -title "Save $type"]} fn]
-	     || $fn eq ""} return
-    }
-    set type [string tolower $type]
-    switch $type {
-	stdin -	stdout - stderr {
-	    set data {}
-	    foreach {first last} [$PRIV(console) tag ranges $type] {
-		lappend data [$PRIV(console) get $first $last]
-	    }
-	    set data [join $data \n]
-	}
-	history		{ set data [tkcon history] }
-	all - default	{ set data [$PRIV(console) get 1.0 end-1c] }
-	widget		{
-	    set data [$opt get 1.0 end-1c]
-	}
-    }
-    if {[catch {open $fn $mode} fid]} {
-	return -code error "Save Error: Unable to open '$fn' for writing\n$fid"
-    }
-    puts -nonewline $fid $data
-    close $fid
-}
-
-## ::tkcon::MainInit
-## This is only called for the main interpreter to include certain procs
-## that we don't want to include (or rather, just alias) in slave interps.
-##
-proc ::tkcon::MainInit {} {
-    variable PRIV
-    variable OPT
-
-    if {![info exists PRIV(slaves)]} {
-	array set PRIV [list slave 0 slaves Main name {} \
-		interps [list [tk appname]]]
-    }
-    interp alias {} ::tkcon::Main {} ::tkcon::InterpEval Main
-    interp alias {} ::tkcon::Slave {} ::tkcon::InterpEval
-
-    proc ::tkcon::GetSlave {{slave {}}} {
-	set i 0
-	while {[Slave $slave [list interp exists Slave[incr i]]]} {
-	    # oh my god, an empty loop!
-	}
-	set interp [Slave $slave [list interp create Slave$i]]
-	return $interp
-    }
-
-    ## ::tkcon::New - create new console window
-    ## Creates a slave interpreter and sources in this script.
-    ## All other interpreters also get a command to eval function in the
-    ## new interpreter.
-    ## 
-    proc ::tkcon::New {} {
-	variable PRIV
-	global argv0 argc argv
-
-	set tmp [GetSlave]
-	lappend PRIV(slaves) $tmp
-	load {} Tk $tmp
-	# If we have tbcload, then that should be autoloaded into slaves.
-	set idx [lsearch [info loaded] "* Tbcload"]
-	if {$idx != -1} { catch {load {} Tbcload $tmp} }
-	lappend PRIV(interps) [$tmp eval [list tk appname \
-		"[tk appname] $tmp"]]
-	if {[info exists argv0]} {$tmp eval [list set argv0 $argv0]}
-	if {[info exists argc]}  {$tmp eval [list set argc $argc]}
-	if {[info exists argv]}  {$tmp eval [list set argv $argv]}
-	$tmp eval [list namespace eval ::tkcon {}]
-	$tmp eval [list set ::tkcon::PRIV(name) $tmp]
-	$tmp eval [list set ::tkcon::PRIV(SCRIPT) $::tkcon::PRIV(SCRIPT)]
-	$tmp alias exit				::tkcon::Exit $tmp
-	$tmp alias ::tkcon::Destroy		::tkcon::Destroy $tmp
-	$tmp alias ::tkcon::New			::tkcon::New
-	$tmp alias ::tkcon::GetSlave		::tkcon::GetSlave $tmp
-	$tmp alias ::tkcon::Main		::tkcon::InterpEval Main
-	$tmp alias ::tkcon::Slave		::tkcon::InterpEval
-	$tmp alias ::tkcon::Interps		::tkcon::Interps
-	$tmp alias ::tkcon::NewDisplay		::tkcon::NewDisplay
-	$tmp alias ::tkcon::Display		::tkcon::Display
-	$tmp alias ::tkcon::StateCheckpoint	::tkcon::StateCheckpoint
-	$tmp alias ::tkcon::StateCleanup	::tkcon::StateCleanup
-	$tmp alias ::tkcon::StateCompare	::tkcon::StateCompare
-	$tmp alias ::tkcon::StateRevert		::tkcon::StateRevert
-	$tmp eval {
-	    if [catch {source -rsrc tkcon}] { source $::tkcon::PRIV(SCRIPT) }
-	}
-	return $tmp
-    }
-
-    ## ::tkcon::Exit - full exit OR destroy slave console
-    ## This proc should only be called in the main interpreter from a slave.
-    ## The master determines whether we do a full exit or just kill the slave.
-    ## 
-    proc ::tkcon::Exit {slave args} {
-	variable PRIV
-	variable OPT
-
-	## Slave interpreter exit request
-	if {$OPT(slaveexit) eq "exit" || [llength $PRIV(interps)] == 1} {
-	    ## Only exit if it specifically is stated to do so, or this
-	    ## is the last interp
-	    uplevel 1 exit $args
-	} else {
-	    ## Otherwise we will delete the slave interp and associated data
-	    Destroy $slave
-	}
-    }
-
-    ## ::tkcon::Destroy - destroy console window
-    ## This proc should only be called by the main interpreter.  If it is
-    ## called from there, it will ask before exiting tkcon.  All others
-    ## (slaves) will just have their slave interpreter deleted, closing them.
-    ## 
-    proc ::tkcon::Destroy {{slave {}}} {
-	variable PRIV
-
-	# Just close on the last one
-	if {[llength $PRIV(interps)] == 1} { exit }
-	if {"" == $slave} {
-	    ## Main interpreter close request
-	    if {[tk_messageBox -parent $PRIV(root) -title "Quit tkcon?" \
-		     -message "Close all windows and exit tkcon?" \
-		     -icon question -type yesno] == "yes"} { exit }
-	    return
-	} elseif {$slave == $::tkcon::OPT(exec)} {
-	    set name  [tk appname]
-	    set slave "Main"
-	} else {
-	    ## Slave interpreter close request
-	    set name [InterpEval $slave]
-	    interp delete $slave
-	}
-	set PRIV(interps) [lremove $PRIV(interps) [list $name]]
-	set PRIV(slaves)  [lremove $PRIV(slaves) [list $slave]]
-	StateCleanup $slave
-    }
-
-    if {$OPT(overrideexit)} {
-	## We want to do a couple things before exiting...
-	if {[catch {rename ::exit ::tkcon::FinalExit} err]} {
-	    puts stderr "tkcon might panic:\n$err"
-	}
-	proc ::exit args {
-	    if {$::tkcon::OPT(usehistory)} {
-		if {[catch {::tkcon::SaveHistory} msg]} {
-		    puts stderr "unable to save history file:\n$msg"
-		    # pause a moment, because we are about to die finally...
-		    after 1000
-		}
-	    }
-	    uplevel 1 ::tkcon::FinalExit $args
-	}
-    }
-
-    ## ::tkcon::SaveHistory - saves history to history file
-    ## If the history file is not writable it raises an error
-    proc ::tkcon::SaveHistory {} {
-	if {$::tkcon::OPT(usehistory)} {
-	    if {[catch {open $::tkcon::PRIV(histfile) w} fid]} {
-		error $fid
-	    } else {
-		set max [::tkcon::EvalSlave history nextid]
-		set id [expr {$max - $::tkcon::OPT(history)}]
-		if {$id < 1} { set id 1 }
-		## FIX: This puts history in backwards!!
-		while {($id < $max) && ![catch \
-			{::tkcon::EvalSlave history event $id} cmd]} {
-		    if {$cmd ne ""} {
-			puts $fid "::tkcon::EvalSlave\
-			    history add [list $cmd]"
-			}
-		    incr id
-		}
-		close $fid
-	    }
-	}
-    }
-    
-    ## ::tkcon::InterpEval - passes evaluation to another named interpreter
-    ## If the interpreter is named, but no args are given, it returns the
-    ## [tk appname] of that interps master (not the associated eval slave).
-    ##
-    proc ::tkcon::InterpEval {{slave {}} args} {
-	variable PRIV
-
-	if {[llength [info level 0]] == 1} {
-	    # no args given
-	    return $PRIV(slaves)
-	} elseif {[string match {[Mm]ain} $slave]} {
-	    set slave {}
-	}
-	if {[llength $args]} {
-	    return [interp eval $slave uplevel \#0 $args]
-	} else {
-	    # beware safe interps with Tk
-	    if {[interp eval $slave {llength [info commands tk]}]} {
-		if {[catch {interp eval $slave tk appname} name]} {
-		    return "safetk"
-		}
-		return $name
-	    }
-	}
-    }
-
-    proc ::tkcon::Interps {{ls {}} {interp {}}} {
-	if {$interp eq ""} {
-	    lappend ls {} [tk appname]
-	}
-	foreach i [interp slaves $interp] {
-	    if {$interp ne ""} { set i "$interp $i" }
-	    if {[interp eval $i package provide Tk] ne ""} {
-		# beware safe interps with Tk
-		if {[catch {interp eval $i tk appname} name]} {
-		    set name {}
-		}
-		lappend ls $i $name
-	    } else {
-		lappend ls $i {}
-	    }
-	    set ls [Interps $ls $i]
-	}
-	return $ls
-    }
-
-    proc ::tkcon::Display {{disp {}}} {
-	variable DISP
-
-	set res {}
-	if {$disp != ""} {
-	    if {![info exists DISP($disp)]} { return }
-	    return [list $DISP($disp) [winfo interps -displayof $DISP($disp)]]
-	}
-	return [lsort -dictionary [array names DISP]]
-    }
-
-    proc ::tkcon::NewDisplay {} {
-	variable PRIV
-	variable DISP
-
-	set t $PRIV(base).newdisp
-	if {![winfo exists $t]} {
-	    toplevel $t
-	    wm withdraw $t
-	    catch {wm attributes $t -type dialog}
-	    wm title $t "tkcon Attach to Display"
-	    label $t.gets -text "New Display: "
-	    entry $t.data -width 32
-	    button $t.ok -text "OK" -command {set ::tkcon::PRIV(grab) 1}
-	    bind $t.data <Return> [list $t.ok invoke]
-	    bind $t.ok   <Return> [list $t.ok invoke]
-	    grid $t.gets $t.data -sticky ew
-	    grid $t.ok   -	 -sticky ew
-	    grid columnconfig $t 1 -weight 1
-	    grid rowconfigure $t 1 -weight 1
-	    wm transient $t $PRIV(root)
-	    wm geometry $t +[expr {([winfo screenwidth $t]-[winfo \
-		    reqwidth $t]) / 2}]+[expr {([winfo \
-		    screenheight $t]-[winfo reqheight $t]) / 2}]
-	}
-	$t.data delete 0 end
-	wm deiconify $t
-	raise $t
-	grab $t
-	focus $t.data
-	vwait ::tkcon::PRIV(grab)
-	grab release $t
-	wm withdraw $t
-	set disp [$t.data get]
-	if {$disp == ""} { return }
-	regsub -all {\.} [string tolower $disp] ! dt
-	set dt $PRIV(base).$dt
-	destroy $dt
-	if {[catch {
-	    toplevel $dt -screen $disp
-	    set interps [winfo interps -displayof $dt]
-	    if {![llength $interps]} {
-		error "No other Tk interpreters on $disp"
-	    }
-	    ::send::send -displayof $dt [lindex $interps 0] [list info tclversion]
-	} err]} {
-	    global env
-	    if {[info exists env(DISPLAY)]} {
-		set myd $env(DISPLAY)
-	    } else {
-		set myd "myDisplay:0"
-	    }
-	    tk_messageBox -title "Display Connection Error" \
-		    -message "Unable to connect to \"$disp\":\n$err\
-		    \nMake sure you have xauth-based permissions\
-		    (xauth add $myd . `mcookie`), and xhost is disabled\
-		    (xhost -) on \"$disp\"" \
-		    -icon error -type ok
-	    destroy $dt
-	    return
-	}
-	set DISP($disp) $dt
-	wm withdraw $dt
-	bind $dt <Destroy> [subst {catch {unset ::tkcon::DISP($disp)}}]
-	tk_messageBox -title "$disp Connection" \
-		-message "Connected to \"$disp\", found:\n[join $interps \n]" \
-		-type ok
-    }
-
-    ##
-    ## The following state checkpoint/revert procedures are very sketchy
-    ## and prone to problems.  They do not track modifications to currently
-    ## existing procedures/variables, and they can really screw things up
-    ## if you load in libraries (especially Tk) between checkpoint and
-    ## revert.  Only with this knowledge in mind should you use these.
-    ##
-
-    ## ::tkcon::StateCheckpoint - checkpoints the current state of the system
-    ## This allows you to return to this state with ::tkcon::StateRevert
-    # ARGS:
-    ##
-    proc ::tkcon::StateCheckpoint {app type} {
-	variable CPS
-	variable PRIV
-
-	if {[info exists CPS($type,$app,cmd)] && \
-		[tk_dialog $PRIV(base).warning "Overwrite Previous State?" \
-		"Are you sure you want to lose previously checkpointed\
-		state of $type \"$app\"?" questhead 1 "Do It" "Cancel"]} return
-	set CPS($type,$app,cmd) [EvalOther $app $type info commands *]
-	set CPS($type,$app,var) [EvalOther $app $type info vars *]
-	return
-    }
-
-    ## ::tkcon::StateCompare - compare two states and output difference
-    # ARGS:
-    ##
-    proc ::tkcon::StateCompare {app type {verbose 0}} {
-	variable CPS
-	variable PRIV
-	variable OPT
-	variable COLOR
-
-	if {![info exists CPS($type,$app,cmd)]} {
-	    return -code error \
-		    "No previously checkpointed state for $type \"$app\""
-	}
-	set w $PRIV(base).compare
-	if {[winfo exists $w]} {
-	    $w.text config -state normal
-	    $w.text delete 1.0 end
-	} else {
-	    toplevel $w
-	    catch {wm attributes $w -type dialog}
-	    frame $w.btn
-	    scrollbar $w.sy -command [list $w.text yview]
-	    text $w.text -yscrollcommand [list $w.sy set] -height 12 \
-		    -foreground $COLOR(stdin) \
-		    -background $COLOR(bg) \
-		    -insertbackground $COLOR(cursor) \
-		    -font $OPT(font) -borderwidth 1 -highlightthickness 0
-	    $w.text tag config red -foreground red
-	    button $w.close -text "Dismiss" -width 8 \
-		-command [list destroy $w]
-	    button $w.check  -text "Recheckpoint" -width 11
-	    button $w.revert -text "Revert" -width 8
-	    button $w.expand -text "Verbose" -width 8
-	    button $w.update -text "Update" -width 8
-
-	    grid $w.text - - - - - $w.sy -sticky news
-	    grid x $w.check $w.revert $w.expand $w.update $w.close
-	    grid configure $w.close -padx {4 0}
-	    grid rowconfigure $w 0 -weight 1
-	    grid columnconfigure $w 0 -weight 1
-	}
-	wm title $w "Compare State: $type [list $app]"
-
-	$w.check config \
-		-command "::tkcon::StateCheckpoint [list $app] $type; \
-		::tkcon::StateCompare [list $app] $type $verbose"
-	$w.revert config \
-		-command "::tkcon::StateRevert [list $app] $type; \
-		::tkcon::StateCompare [list $app] $type $verbose"
-	$w.update config -command [info level 0]
-	if {$verbose} {
-	    $w.expand config -text Brief \
-		    -command [list ::tkcon::StateCompare $app $type 0]
-	} else {
-	    $w.expand config -text Verbose \
-		    -command [list ::tkcon::StateCompare $app $type 1]
-	}
-	## Don't allow verbose mode unless 'dump' exists in $app
-	## We're assuming this is tkcon's dump command
-	set hasdump [llength [EvalOther $app $type info commands dump]]
-	if {$hasdump} {
-	    $w.expand config -state normal
-	} else {
-	    $w.expand config -state disabled
-	}
-
-	set cmds [lremove [EvalOther $app $type info commands *] \
-		$CPS($type,$app,cmd)]
-	set vars [lremove [EvalOther $app $type info vars *] \
-		$CPS($type,$app,var)]
-
-	if {$hasdump && $verbose} {
-	    set cmds [EvalOther $app $type eval dump c -nocomplain $cmds]
-	    set vars [EvalOther $app $type eval dump v -nocomplain $vars]
-	}
-	$w.text insert 1.0 "NEW COMMANDS IN \"$app\":\n" red \
-		$cmds {} "\n\nNEW VARIABLES IN \"$app\":\n" red $vars {}
-
-	raise $w
-	$w.text config -state disabled
-    }
-
-    ## ::tkcon::StateRevert - reverts interpreter to previous state
-    # ARGS:
-    ##
-    proc ::tkcon::StateRevert {app type} {
-	variable CPS
-	variable PRIV
-
-	if {![info exists CPS($type,$app,cmd)]} {
-	    return -code error \
-		    "No previously checkpointed state for $type \"$app\""
-	}
-	if {![tk_dialog $PRIV(base).warning "Revert State?" \
-		"Are you sure you want to revert the state in $type \"$app\"?"\
-		questhead 1 "Do It" "Cancel"]} {
-	    foreach i [lremove [EvalOther $app $type info commands *] \
-		    $CPS($type,$app,cmd)] {
-		catch {EvalOther $app $type rename $i {}}
-	    }
-	    foreach i [lremove [EvalOther $app $type info vars *] \
-		    $CPS($type,$app,var)] {
-		catch {EvalOther $app $type unset $i}
-	    }
-	}
-    }
-
-    ## ::tkcon::StateCleanup - cleans up state information in master array
-    #
-    ##
-    proc ::tkcon::StateCleanup {args} {
-	variable CPS
-
-	if {![llength $args]} {
-	    foreach state [array names CPS slave,*] {
-		if {![interp exists [string range $state 6 end]]} {
-		    unset CPS($state)
-		}
-	    }
-	} else {
-	    set app  [lindex $args 0]
-	    set type [lindex $args 1]
-	    if {[regexp {^(|slave)$} $type]} {
-		foreach state [array names CPS "slave,$app\[, \]*"] {
-		    if {![interp exists [string range $state 6 end]]} {
-			unset CPS($state)
-		    }
-		}
-	    } else {
-		catch {unset CPS($type,$app)}
-	    }
-	}
-    }
-}
-
-## ::tkcon::Event - get history event, search if string != {}
-## look forward (next) if $int>0, otherwise look back (prev)
-# ARGS:	W	- console widget
-##
-proc ::tkcon::Event {int {str {}}} {
-    if {!$int} return
-
-    variable PRIV
-    set w $PRIV(console)
-
-    set nextid [EvalSlave history nextid]
-    if {$str ne ""} {
-	## String is not empty, do an event search
-	set event $PRIV(event)
-	if {$int < 0 && $event == $nextid} { set PRIV(cmdbuf) $str }
-	set len [string len $PRIV(cmdbuf)]
-	incr len -1
-	if {$int > 0} {
-	    ## Search history forward
-	    while {$event < $nextid} {
-		if {[incr event] == $nextid} {
-		    $w delete limit end
-		    $w insert limit $PRIV(cmdbuf)
-		    break
-		} elseif {
-		    ![catch {EvalSlave history event $event} res] &&
-		    [set p [string first $PRIV(cmdbuf) $res]] > -1
-		} {
-		    set p2 [expr {$p + [string length $PRIV(cmdbuf)]}]
-		    $w delete limit end
-		    $w insert limit $res
-		    Blink $w "limit + $p c" "limit + $p2 c"
-		    break
-		}
-	    }
-	    set PRIV(event) $event
-	} else {
-	    ## Search history reverse
-	    while {![catch {EvalSlave history event [incr event -1]} res]} {
-		if {[set p [string first $PRIV(cmdbuf) $res]] > -1} {
-		    set p2 [expr {$p + [string length $PRIV(cmdbuf)]}]
-		    $w delete limit end
-		    $w insert limit $res
-		    set PRIV(event) $event
-		    Blink $w "limit + $p c" "limit + $p2 c"
-		    break
-		}
-	    }
-	}
-    } else {
-	## String is empty, just get next/prev event
-	if {$int > 0} {
-	    ## Goto next command in history
-	    if {$PRIV(event) < $nextid} {
-		$w delete limit end
-		if {[incr PRIV(event)] == $nextid} {
-		    $w insert limit $PRIV(cmdbuf)
-		} else {
-		    $w insert limit [EvalSlave history event $PRIV(event)]
-		}
-	    }
-	} else {
-	    ## Goto previous command in history
-	    if {$PRIV(event) == $nextid} {
-		set PRIV(cmdbuf) [CmdGet $w]
-	    }
-	    if {[catch {EvalSlave history event [incr PRIV(event) -1]} res]} {
-		incr PRIV(event)
-	    } else {
-		$w delete limit end
-		$w insert limit $res
-	    }
-	}
-    }
-    $w mark set insert end
-    $w see end
-}
-
-## ::tkcon::Highlight - magic highlighting
-## beware: voodoo included
-# ARGS:
-##
-proc ::tkcon::Highlight {w type} {
-    variable COLOR
-    variable OPT
-
-    switch -exact $type {
-	"error" { HighlightError $w }
-	"tcl" - "test" {
-	    if {[winfo class $w] != "Ctext"} { return }
-
-	    foreach {app type} [tkcon attach] {break}
-	    set cmds [::tkcon::EvalOther $app $type info commands]
-
-	    set classes [list \
-		 [list comment ClassForRegexp "^\\s*#\[^\n\]*" $COLOR(stderr)] \
-		 [list var     ClassWithOnlyCharStart "\$" $COLOR(stdout)] \
-		 [list syntax  ClassForSpecialChars "\[\]{}\"" $COLOR(prompt)] \
-		 [list command Class $cmds $COLOR(proc)] \
-		]
-
-	    # Remove all highlight classes from a widget
-	    ctext::clearHighlightClasses $w
-	    foreach class $classes {
-		foreach {cname ctype cptn ccol} $class break
-		ctext::addHighlight$ctype $w $cname $ccol $cptn
-	    }
-	    $w highlight 1.0 end
-	}
-    }
-}
-
-## ::tkcon::HighlightError - magic error highlighting
-## beware: voodoo included
-# ARGS:
-##
-proc ::tkcon::HighlightError w {
-    variable COLOR
-    variable OPT
-
-    ## do voodoo here
-    set app [Attach]
-    # we have to pull the text out, because text regexps are screwed on \n's.
-    set info [$w get 1.0 end-1c]
-    # Check for specific line error in a proc
-    set exp(proc) "\"(\[^\"\]+)\"\n\[\t \]+\\\(procedure \"(\[^\"\]+)\""
-    # Check for too few args to a proc
-    set exp(param) "parameter \"(\[^\"\]+)\" to \"(\[^\"\]+)\""
-    set start 1.0
-    while {
-	[regexp -indices -- $exp(proc) $info junk what cmd] ||
-	[regexp -indices -- $exp(param) $info junk what cmd]
-    } {
-	foreach {w0 w1} $what {c0 c1} $cmd {break}
-	set what [string range $info $w0 $w1]
-	set cmd  [string range $info $c0 $c1]
-	if {[string match *::* $cmd]} {
-	    set res [uplevel 1 ::tkcon::EvalOther $app namespace eval \
-		    [list [namespace qualifiers $cmd] \
-		    [list info procs [namespace tail $cmd]]]]
-	} else {
-	    set res [uplevel 1 ::tkcon::EvalOther $app info procs [list $cmd]]
-	}
-	if {[llength $res]==1} {
-	    set tag [UniqueTag $w]
-	    $w tag add $tag $start+${c0}c $start+1c+${c1}c
-	    $w tag configure $tag -foreground $COLOR(stdout)
-	    $w tag bind $tag <Enter> [list $w tag configure $tag -underline 1]
-	    $w tag bind $tag <Leave> [list $w tag configure $tag -underline 0]
-	    $w tag bind $tag <ButtonRelease-1> "if {!\$tk::Priv(mouseMoved)} \
-		    {[list $OPT(edit) -attach $app -type proc -find $what -- $cmd]}"
-	}
-	set info [string range $info $c1 end]
-	set start [$w index $start+${c1}c]
-    }
-    ## Next stage, check for procs that start a line
-    set start 1.0
-    set exp(cmd) "^\"\[^\" \t\n\]+"
-    while {
-	[string compare {} [set ix \
-		[$w search -regexp -count numc -- $exp(cmd) $start end]]]
-    } {
-	set start [$w index $ix+${numc}c]
-	# +1c to avoid the first quote
-	set cmd [$w get $ix+1c $start]
-	if {[string match *::* $cmd]} {
-	    set res [uplevel 1 ::tkcon::EvalOther $app namespace eval \
-		    [list [namespace qualifiers $cmd] \
-		    [list info procs [namespace tail $cmd]]]]
-	} else {
-	    set res [uplevel 1 ::tkcon::EvalOther $app info procs [list $cmd]]
-	}
-	if {[llength $res]==1} {
-	    set tag [UniqueTag $w]
-	    $w tag add $tag $ix+1c $start
-	    $w tag configure $tag -foreground $COLOR(proc)
-	    $w tag bind $tag <Enter> [list $w tag configure $tag -underline 1]
-	    $w tag bind $tag <Leave> [list $w tag configure $tag -underline 0]
-	    $w tag bind $tag <ButtonRelease-1> "if {!\$tk::Priv(mouseMoved)} \
-		    {[list $OPT(edit) -attach $app -type proc -- $cmd]}"
-	}
-    }
-}
-
-proc ::tkcon::ExpectInit {{termcap 1} {terminfo 1}} {
-    global env
-
-    if {$termcap} {
-	set env(TERM) "tt"
-	set env(TERMCAP) {tt:
- :ks=\E[KS:
- :ke=\E[KE:
- :cm=\E[%d;%dH:
- :up=\E[A:
- :nd=\E[C:
- :cl=\E[H\E[J:
- :do=^J:
- :so=\E[7m:
- :se=\E[m:
- :k1=\EOP:
- :k2=\EOQ:
- :k3=\EOR:
- :k4=\EOS:
- :k5=\EOT:
- :k6=\EOU:
- :k7=\EOV:
- :k8=\EOW:
- :k9=\EOX:
-    }
-    }
-
-    if {$terminfo} {
-	set env(TERM) "tkterm"
-	if {![info exists env(TEMP)]} { set env(TEMP) /tmp }
-	set env(TERMINFO) $env(TEMP)
-
-	set ttsrc [file join $env(TEMP) tt.src]
-	set file [open $ttsrc w]
-	puts $file {tkterm|Don Libes' tk text widget terminal emulator,
- smkx=\E[KS,
- rmkx=\E[KE,
- cup=\E[%p1%d;%p2%dH,
- cuu1=\E[A,
- cuf1=\E[C,
- clear=\E[H\E[J,
- ind=\n,
- cr=\r,
- smso=\E[7m,
- rmso=\E[m,
- kf1=\EOP,
- kf2=\EOQ,
- kf3=\EOR,
- kf4=\EOS,
- kf5=\EOT,
- kf6=\EOU,
- kf7=\EOV,
- kf8=\EOW,
- kf9=\EOX,
-    }
-	close $file
-
-	if {[catch {exec tic $ttsrc} msg]} {
-	    return -code error \
-		"tic failed, you may not have terminfo support:\n$msg"
-	}
-
-	file delete $ttsrc
-    }
-}
-
-# term_exit is called if the spawned process exits
-proc ::tkcon::term_exit {w} {
-    variable EXP
-    catch {exp_close -i $EXP(spawn_id)}
-    set EXP(forever) 1
-    unset EXP
-}
-
-# term_chars_changed is called after every change to the displayed chars
-# You can use if you want matches to occur in the background (a la bind)
-# If you want to test synchronously, then just do so - you don't need to
-# redefine this procedure.
-proc ::tkcon::term_chars_changed {w args} {
-}
-
-# term_cursor_changed is called after the cursor is moved
-proc ::tkcon::term_cursor_changed {w args} {
-}
-
-proc ::tkcon::term_update_cursor {w args} {
-    variable OPT
-    variable EXP
-
-    $w mark set insert $EXP(row).$EXP(col)
-    $w see insert
-    term_cursor_changed $w
-}
-
-proc ::tkcon::term_clear {w args} {
-    $w delete 1.0 end
-    term_init $w
-}
-
-proc ::tkcon::term_init {w args} {
-    variable OPT
-    variable EXP
-
-    # initialize it with blanks to make insertions later more easily
-    set blankline [string repeat " " $OPT(cols)]\n
-    for {set i 1} {$i <= $OPT(rows)} {incr i} {
-	$w insert $i.0 $blankline
-    }
-
-    set EXP(row) 1
-    set EXP(col) 0
-
-    $w mark set insert $EXP(row).$EXP(col)
-}
-
-proc ::tkcon::term_down {w args} {
-    variable OPT
-    variable EXP
-
-    if {$EXP(row) < $OPT(rows)} {
-	incr EXP(row)
-    } else {
-	# already at last line of term, so scroll screen up
-	$w delete 1.0 2.0
-
-	# recreate line at end
-	$w insert end [string repeat " " $OPT(cols)]\n
-    }
-}
-
-proc ::tkcon::term_insert {w s} {
-    variable OPT
-    variable EXP
-
-    set chars_rem_to_write [string length $s]
-    set space_rem_on_line  [expr {$OPT(cols) - $EXP(col)}]
-
-    set tag_action [expr {$EXP(standout) ? "add" : "remove"}]
-
-    ##################
-    # write first line
-    ##################
-
-    if {$chars_rem_to_write > $space_rem_on_line} {
-	set chars_to_write $space_rem_on_line
-	set newline 1
-    } else {
-	set chars_to_write $chars_rem_to_write
-	set newline 0
-    }
-
-    $w delete $EXP(row).$EXP(col) \
-	$EXP(row).[expr {$EXP(col) + $chars_to_write}]
-    $w insert $EXP(row).$EXP(col) \
-	[string range $s 0 [expr {$space_rem_on_line-1}]]
-
-    $w tag $tag_action standout $EXP(row).$EXP(col) \
-	$EXP(row).[expr {$EXP(col) + $chars_to_write}]
-
-    # discard first line already written
-    incr chars_rem_to_write -$chars_to_write
-    set s [string range $s $chars_to_write end]
-
-    # update EXP(col)
-    incr EXP(col) $chars_to_write
-    # update EXP(row)
-    if {$newline} { term_down $w }
-
-    ##################
-    # write full lines
-    ##################
-    while {$chars_rem_to_write >= $OPT(cols)} {
-	$w delete $EXP(row).0 $EXP(row).end
-	$w insert $EXP(row).0 [string range $s 0 [expr {$OPT(cols)-1}]]
-	$w tag $tag_action standout $EXP(row).0 $EXP(row).end
-
-	# discard line from buffer
-	set s [string range $s $OPT(cols) end]
-	incr chars_rem_to_write -$OPT(cols)
-
-	set EXP(col) 0
-	term_down $w
-    }
-
-    #################
-    # write last line
-    #################
-
-    if {$chars_rem_to_write} {
-	$w delete $EXP(row).0 $EXP(row).$chars_rem_to_write
-	$w insert $EXP(row).0 $s
-	$w tag $tag_action standout $EXP(row).0 $EXP(row).$chars_rem_to_write
-	set EXP(col) $chars_rem_to_write
-    }
-
-    term_chars_changed $w
-}
-
-proc ::tkcon::Expect {cmd} {
-    variable OPT
-    variable PRIV
-    variable EXP
-
-    set EXP(standout) 0
-    set EXP(row) 0
-    set EXP(col) 0
-
-    set env(LINES)   $OPT(rows)
-    set env(COLUMNS) $OPT(cols)
-
-    ExpectInit
-    log_user 0
-    set ::stty_init "-tabs"
-    uplevel \#0 [linsert $cmd 0 spawn]
-    set EXP(spawn_id) $::spawn_id
-    if {[info exists ::spawn_out(slave,name)]} {
-	set EXP(slave,name) $::spawn_out(slave,name)
-	catch {stty rows $OPT(rows) columns $OPT(cols) < $::spawn_out(slave,name)}
-    }
-    if {[string index $cmd end] == "&"} {
-	set cmd expect_background
-    } else {
-	set cmd expect
-    }
-    bind $PRIV(console) <Meta-KeyPress> {
-	if {"%A" != ""} {
-	    exp_send -i $::tkcon::EXP(spawn_id) "\033%A"
-	    break
-	}
-    }
-    bind $PRIV(console) <KeyPress> {
-	exp_send -i $::tkcon::EXP(spawn_id) -- %A
-	break
-    }
-    bind $PRIV(console) <Control-space>	{exp_send -null}
-    set code [catch {
-	term_init $PRIV(console)
-	while {[info exists EXP(spawn_id)]} {
-	$cmd {
-	    -i $::tkcon::EXP(spawn_id)
-	    -re "^\[^\x01-\x1f\]+" {
-		# Text
-		::tkcon::term_insert $::tkcon::PRIV(console) \
-		    $expect_out(0,string)
-		::tkcon::term_update_cursor $::tkcon::PRIV(console)
-	    } "^\r" {
-		# (cr,) Go to beginning of line
-		update idle
-		set ::tkcon::EXP(col) 0
-		::tkcon::term_update_cursor $::tkcon::PRIV(console)
-	    } "^\n" {
-		# (ind,do) Move cursor down one line
-		if {$::tcl_platform(platform) eq "windows"} {
-		    # Windows seems to get the LF without the CR
-		    update idle
-		    set ::tkcon::EXP(col) 0
-		}
-		::tkcon::term_down $::tkcon::PRIV(console)
-		::tkcon::term_update_cursor $::tkcon::PRIV(console)
-	    } "^\b" {
-		# Backspace nondestructively
-		incr ::tkcon::EXP(col) -1
-		::tkcon::term_update_cursor $::tkcon::PRIV(console)
-	    } "^\a" {
-		bell
-	    } "^\t" {
-		# Tab, shouldn't happen
-		send_error "got a tab!?"
-	    } eof {
-		::tkcon::term_exit $::tkcon::PRIV(console)
-	    } "^\x1b\\\[A" {
-		# Cursor Up (cuu1,up)
-		incr ::tkcon::EXP(row) -1
-		::tkcon::term_update_cursor $::tkcon::PRIV(console)
-	    } "^\x1b\\\[B" {
-		# Cursor Down
-		incr ::tkcon::EXP(row)
-		::tkcon::term_update_cursor $::tkcon::PRIV(console)
-	    } "^\x1b\\\[C" {
-		# Cursor Right (cuf1,nd)
-		incr ::tkcon::EXP(col)
-		::tkcon::term_update_cursor $::tkcon::PRIV(console)
-	    } "^\x1b\\\[D" {
-		# Cursor Left
-		incr ::tkcon::EXP(col)
-		::tkcon::term_update_cursor $::tkcon::PRIV(console)
-	    } "^\x1b\\\[H" {
-		# Cursor Home
-	    } -re "^\x1b\\\[(\[0-9\]*);(\[0-9\]*)H" {
-		# (cup,cm) Move to row y col x
-		set ::tkcon::EXP(row) [expr {$expect_out(1,string)+1}]
-		set ::tkcon::EXP(col) $expect_out(2,string)
-		::tkcon::term_update_cursor $::tkcon::PRIV(console)
-	    } "^\x1b\\\[H\x1b\\\[J" {
-		# (clear,cl) Clear screen
-		::tkcon::term_clear $::tkcon::PRIV(console)
-		::tkcon::term_update_cursor $::tkcon::PRIV(console)
-	    } "^\x1b\\\[7m" {
-		# (smso,so) Begin standout mode
-		set ::tkcon::EXP(standout) 1
-	    } "^\x1b\\\[m" {
-		# (rmso,se) End standout mode
-		set ::tkcon::EXP(standout) 0
-	    } "^\x1b\\\[KS" {
-		# (smkx,ks) start keyboard-transmit mode
-		# terminfo invokes these when going in/out of graphics mode
-		# In graphics mode, we should have no scrollbars
-		#graphicsSet 1
-	    } "^\x1b\\\[KE" {
-		# (rmkx,ke) end keyboard-transmit mode
-		# Out of graphics mode, we should have scrollbars
-		#graphicsSet 0
-	    }
-	}
-	}
-	#vwait ::tkcon::EXP(forever)
-    } err]
-    bind $PRIV(console) <Meta-KeyPress> {}
-    bind $PRIV(console) <KeyPress>      {}
-    bind $PRIV(console) <Control-space>	{}
-    catch {unset EXP}
-    if {$code} {
-	return -code $code -errorinfo $::errorInfo $err
-    }
-}
-
-## tkcon - command that allows control over the console
-## This always exists in the main interpreter, and is aliased into
-## other connected interpreters
-# ARGS:	totally variable, see internal comments
-## 
-proc tkcon {cmd args} {
-    variable ::tkcon::PRIV
-    variable ::tkcon::OPT
-    global errorInfo
-
-    switch -glob -- $cmd {
-	buf* {
-	    ## 'buffer' Sets/Query the buffer size
-	    if {[llength $args]} {
-		if {[regexp {^[1-9][0-9]*$} $args]} {
-		    set OPT(buffer) $args
-		    # catch in case the console doesn't exist yet
-		    catch {::tkcon::ConstrainBuffer $PRIV(console) \
-			    $OPT(buffer)}
-		} else {
-		    return -code error "buffer must be a valid integer"
-		}
-	    }
-	    return $OPT(buffer)
-	}
-	linelen* {
-	    ## 'linelength' Sets/Query the maximum line length
-	    if {[llength $args]} {
-		if {[regexp {^-?[0-9]+$} $args]} {
-		    set OPT(maxlinelen) $args
-		} else {
-		    return -code error "buffer must be a valid integer"
-		}
-	    }
-	    return $OPT(maxlinelen)
-	}
-	bg* {
-	    ## 'bgerror' Brings up an error dialog
-	    set errorInfo [lindex $args 1]
-	    bgerror [lindex $args 0]
-	}
-	cl* {
-	    ## 'close' Closes the console
-	    ::tkcon::Destroy
-	}
-	cons* {
-	    ## 'console' - passes the args to the text widget of the console.
-	    set result [uplevel 1 $PRIV(console) $args]
-	    ::tkcon::ConstrainBuffer $PRIV(console) $OPT(buffer)
-	    return $result
-	}
-	congets {
-	    ## 'congets' a replacement for [gets stdin]
-	    # Use the 'gets' alias of 'tkcon_gets' command instead of
-	    # calling the *get* methods directly for best compatability
-	    if {[llength $args]} {
-		return -code error "wrong # args: must be \"tkcon congets\""
-	    }
-	    tkcon show
-	    set old [bind TkConsole <<TkCon_Eval>>]
-	    bind TkConsole <<TkCon_Eval>> { set ::tkcon::PRIV(wait) 0 }
-	    set w $PRIV(console)
-	    # Make sure to move the limit to get the right data
-	    $w mark set limit end-1c
-	    $w mark gravity limit left
-	    $w mark set insert end
-	    $w see end
-	    vwait ::tkcon::PRIV(wait)
-	    set line [::tkcon::CmdGet $w]
-	    $w insert end \n
-	    bind TkConsole <<TkCon_Eval>> $old
-	    return $line
-	}
-	exp* {
-	    ::tkcon::Expect [lindex $args 0]
-	}
-	getc* {
-	    ## 'getcommand' a replacement for [gets stdin]
-	    ## This forces a complete command to be input though
-	    if {[llength $args]} {
-		return -code error "wrong # args: must be \"tkcon getcommand\""
-	    }
-	    tkcon show
-	    set old [bind TkConsole <<TkCon_Eval>>]
-	    bind TkConsole <<TkCon_Eval>> { set ::tkcon::PRIV(wait) 0 }
-	    set w $PRIV(console)
-	    # Make sure to move the limit to get the right data
-	    $w mark set insert end
-	    $w mark set limit insert
-	    $w see end
-	    vwait ::tkcon::PRIV(wait)
-	    set line [::tkcon::CmdGet $w]
-	    $w insert end \n
-	    while {![info complete $line] || [regexp {[^\\]\\$} $line]} {
-		vwait ::tkcon::PRIV(wait)
-		set line [::tkcon::CmdGet $w]
-		$w insert end \n
-		$w see end
-	    }
-	    bind TkConsole <<TkCon_Eval>> $old
-	    return $line
-	}
-	get - gets {
-	    ## 'gets' - a replacement for [gets stdin]
-	    ## This pops up a text widget to be used for stdin (local grabbed)
-	    if {[llength $args]} {
-		return -code error "wrong # args: should be \"tkcon gets\""
-	    }
-	    set t $PRIV(base).gets
-	    if {![winfo exists $t]} {
-		toplevel $t
-		wm withdraw $t
-		catch {wm attributes $t -type dialog}
-		wm title $t "tkcon gets stdin request"
-		label $t.gets -text "\"gets stdin\" request:"
-		text $t.data -width 32 -height 5 -wrap none \
-			-xscrollcommand [list $t.sx set] \
-			-yscrollcommand [list $t.sy set] -borderwidth 1
-		scrollbar $t.sx -orient h -takefocus 0 -highlightthickness 0 \
-			-command [list $t.data xview]
-		scrollbar $t.sy -orient v -takefocus 0 -highlightthickness 0 \
-			-command [list $t.data yview]
-		button $t.ok -text "OK" -command {set ::tkcon::PRIV(grab) 1}
-		bind $t.ok <Return> { %W invoke }
-		grid $t.gets -		-sticky ew
-		grid $t.data $t.sy	-sticky news
-		grid $t.sx		-sticky ew
-		grid $t.ok   -		-sticky ew
-		grid columnconfig $t 0 -weight 1
-		grid rowconfig    $t 1 -weight 1
-		wm transient $t $PRIV(root)
-		wm geometry $t +[expr {([winfo screenwidth $t]-[winfo \
-			reqwidth $t]) / 2}]+[expr {([winfo \
-			screenheight $t]-[winfo reqheight $t]) / 2}]
-	    }
-	    $t.data delete 1.0 end
-	    wm deiconify $t
-	    raise $t
-	    grab $t
-	    focus $t.data
-	    vwait ::tkcon::PRIV(grab)
-	    grab release $t
-	    wm withdraw $t
-	    return [$t.data get 1.0 end-1c]
-	}
-	err* {
-	    ## Outputs stack caused by last error.
-	    ## error handling with pizazz (but with pizza would be nice too)
-	    if {[llength $args]==2} {
-		set app  [lindex $args 0]
-		set type [lindex $args 1]
-		if {[catch {::tkcon::EvalOther $app $type set errorInfo} info]} {
-		    set info "error getting info from $type $app:\n$info"
-		}
-	    } else {
-		set info $PRIV(errorInfo)
-	    }
-	    if {[string match {} $info]} { set info "errorInfo empty" }
-	    ## If args is empty, the -attach switch just ignores it
-	    $OPT(edit) -attach $args -type error -- $info
-	}
-	fi* {
-	    ## 'find' string
-	    ::tkcon::Find $PRIV(console) $args
-	}
-	fo* {
-	    ## 'font' ?fontname? - gets/sets the font of the console
-	    if {[llength $args]} {
-		if {[info exists PRIV(console)] && \
-			[winfo exists $PRIV(console)]} {
-		    $PRIV(console) config -font $args
-		    set OPT(font) [$PRIV(console) cget -font]
-		} else {
-		    set OPT(font) $args
-		}
-	    }
-	    return $OPT(font)
-	}
-	hid* - with* {
-	    ## 'hide' 'withdraw' - hides the console.
-	    if {[info exists PRIV(root)] && [winfo exists $PRIV(root)]} {
-		wm withdraw $PRIV(root)
-	    }
-	}
-	his* {
-	    ## 'history'
-	    set sub {\2}
-	    if {[string match -new* $args]} { append sub "\n"}
-	    set h [::tkcon::EvalSlave history]
-	    regsub -all "( *\[0-9\]+  |\t)(\[^\n\]*\n?)" $h $sub h
-	    return $h
-	}
-	ico* {
-	    ## 'iconify' - iconifies the console with 'iconify'.
-	    if {[info exists PRIV(root)] && [winfo exists $PRIV(root)]} {
-		wm iconify $PRIV(root)
-	    }
-	}
-	mas* - eval {
-	    ## 'master' - evals contents in master interpreter
-	    uplevel \#0 $args
-	}
-	result* {
-	    ## 'resultfilter' Sets/queries the result filter command
-	    if {[llength $args]} {
-		set OPT(resultfilter) $args
-	    }
-	    return $OPT(resultfilter)
-	}
-	set {
-	    ## 'set' - set (or get, or unset) simple vars (not whole arrays)
-	    ## from the master console interpreter
-	    ## possible formats:
-	    ##    tkcon set <var>
-	    ##    tkcon set <var> <value>
-	    ##    tkcon set <var> <interp> <var1> <var2> w
-	    ##    tkcon set <var> <interp> <var1> <var2> u
-	    ##    tkcon set <var> <interp> <var1> <var2> r
-	    if {[llength $args]==5} {
-		## This is for use w/ 'tkcon upvar' and only works with slaves
-		foreach {var i var1 var2 op} $args break
-		if {[string compare {} $var2]} { append var1 "($var2)" }
-		switch $op {
-		    u { uplevel \#0 [list unset $var] }
-		    w {
-			return [uplevel \#0 [list set $var \
-				[interp eval $i [list set $var1]]]]
-		    }
-		    r {
-			return [interp eval $i [list set $var1 \
-				[uplevel \#0 [list set $var]]]]
-		    }
-		}
-	    } elseif {[llength $args] == 1} {
-		upvar \#0 [lindex $args 0] var
-		if {[array exists var]} {
-		    return [array get var]
-		} else {
-		    return $var
-		}
-	    }
-	    return [uplevel \#0 set $args]
-	}
-	append {
-	    ## Modify a var in the master environment using append
-	    return [uplevel \#0 append $args]
-	}
-	lappend {
-	    ## Modify a var in the master environment using lappend
-	    return [uplevel \#0 lappend $args]
-	}
-	sh* - dei* {
-	    ## 'show|deiconify' - deiconifies the console.
-	    if {![info exists PRIV(root)]} {
-		# We are likely in some embedded console configuration.
-		# Make default setup reflect that.
-		set PRIV(showOnStartup) 0
-		set PRIV(protocol) {tkcon hide}
-		set PRIV(root) .tkcon
-		set OPT(exec) ""
-	    }
-	    if {![winfo exists $PRIV(root)]} {
-		eval [linsert $args 0 ::tkcon::Init]
-	    }
-	    # this may throw an error if toplevel is embedded
-	    catch {wm deiconify $PRIV(root); raise $PRIV(root)}
-	    focus -force $PRIV(console)
-	}
-	ti* {
-	    ## 'title' ?title? - gets/sets the console's title
-	    if {[llength $args]} {
-		return [wm title $PRIV(root) [join $args]]
-	    } else {
-		return [wm title $PRIV(root)]
-	    }
-	}
-	upv* {
-	    ## 'upvar' masterVar slaveVar
-	    ## link slave variable slaveVar to the master variable masterVar
-	    ## only works masters<->slave
-	    set masterVar [lindex $args 0]
-	    set slaveVar  [lindex $args 1]
-	    if {[info exists $masterVar]} {
-		interp eval $OPT(exec) \
-			[list set $slaveVar [set $masterVar]]
-	    } else {
-		catch {interp eval $OPT(exec) [list unset $slaveVar]}
-	    }
-	    interp eval $OPT(exec) \
-		    [list trace variable $slaveVar rwu \
-		    [list tkcon set $masterVar $OPT(exec)]]
-	    return
-	}
-	v* {
-	    return $PRIV(version)
-	}
-	default {
-	    ## tries to determine if the command exists, otherwise throws error
-	    set new ::tkcon::[string toupper \
-		    [string index $cmd 0]][string range $cmd 1 end]
-	    if {[llength [info command $new]]} {
-		uplevel \#0 $new $args
-	    } else {
-		return -code error "bad option \"$cmd\": must be\
-			[join [lsort [list attach close console destroy \
-			font hide iconify load main master new save show \
-			slave deiconify version title bgerror]] {, }]"
-	    }
-	}
-    }
-}
-
-##
-## Some procedures to make up for lack of built-in shell commands
-##
-
-## tkcon_puts -
-## This allows me to capture all stdout/stderr to the console window
-## This will be renamed to 'puts' at the appropriate time during init
-##
-# ARGS:	same as usual	
-# Outputs:	the string with a color-coded text tag
-## 
-proc tkcon_puts args {
-    set len [llength $args]
-    foreach {arg1 arg2 arg3} $args { break }
-
-    if {$len == 1} {
-	tkcon console insert output "$arg1\n" stdout
-    } elseif {$len == 2} {
-	if {![string compare $arg1 -nonewline]} {
-	    tkcon console insert output $arg2 stdout
-	} elseif {![string compare $arg1 stdout] \
-		|| ![string compare $arg1 stderr]} {
-	    tkcon console insert output "$arg2\n" $arg1
-	} else {
-	    set len 0
-	}
-    } elseif {$len == 3} {
-	if {![string compare $arg1 -nonewline] \
-		&& (![string compare $arg2 stdout] \
-		|| ![string compare $arg2 stderr])} {
-	    tkcon console insert output $arg3 $arg2
-	} elseif {(![string compare $arg1 stdout] \
-		|| ![string compare $arg1 stderr]) \
-		&& ![string compare $arg3 nonewline]} {
-	    tkcon console insert output $arg2 $arg1
-	} else {
-	    set len 0
-	}
-    } else {
-	set len 0
-    }
-
-    ## $len == 0 means it wasn't handled by tkcon above.
-    ##
-    if {$len == 0} {
-	global errorCode errorInfo
-	if {[catch "tkcon_tcl_puts $args" msg]} {
-	    regsub tkcon_tcl_puts $msg puts msg
-	    regsub -all tkcon_tcl_puts $errorInfo puts errorInfo
-	    return -code error $msg
-	}
-	return $msg
-    }
-
-    ## WARNING: This update should behave well because it uses idletasks,
-    ## however, if there are weird looping problems with events, or
-    ## hanging in waits, try commenting this out.
-    if {$len} {
-	tkcon console see output
-	update idletasks
-    }
-}
-
-## tkcon_gets -
-## This allows me to capture all stdin input without needing to stdin
-## This will be renamed to 'gets' at the appropriate time during init
-##
-# ARGS:		same as gets	
-# Outputs:	same as gets
-##
-proc tkcon_gets args {
-    set len [llength $args]
-    if {$len != 1 && $len != 2} {
-	return -code error \
-		"wrong # args: should be \"gets channelId ?varName?\""
-    }
-    if {[string compare stdin [lindex $args 0]]} {
-	return [uplevel 1 tkcon_tcl_gets $args]
-    }
-    set gtype [tkcon set ::tkcon::OPT(gets)]
-    if {$gtype == ""} { set gtype congets }
-    set data [tkcon $gtype]
-    if {$len == 2} {
-	upvar 1 [lindex $args 1] var
-	set var $data
-	return [string length $data]
-    }
-    return $data
-}
-
-## edit - opens a file/proc/var for reading/editing
-## 
-# Arguments:
-#   type	proc/file/var
-#   what	the actual name of the item
-# Returns:	nothing
-## 
-proc edit {args} {
-    variable ::tkcon::PRIV
-    variable ::tkcon::COLOR
-    variable ::tkcon::OPT
-
-    array set opts {-find {} -type {} -attach {} -wrap {none}}
-    while {[string match -* [lindex $args 0]]} {
-	switch -glob -- [lindex $args 0] {
-	    -f*	{ set opts(-find) [lindex $args 1] }
-	    -a*	{ set opts(-attach) [lindex $args 1] }
-	    -t*	{ set opts(-type) [lindex $args 1] }
-	    -w*	{ set opts(-wrap) [lindex $args 1] }
-	    --	{ set args [lreplace $args 0 0]; break }
-	    default {return -code error "unknown option \"[lindex $args 0]\""}
-	}
-	set args [lreplace $args 0 1]
-    }
-    # determine who we are dealing with
-    if {[llength $opts(-attach)]} {
-	foreach {app type} $opts(-attach) {break}
-    } else {
-	foreach {app type} [tkcon attach] {break}
-    }
-
-    set word [lindex $args 0]
-    if {$opts(-type) == {}} {
-	if {[llength [::tkcon::EvalOther $app $type info commands [list $word]]]} {
-	    set opts(-type) "proc"
-	} elseif {[llength [::tkcon::EvalOther $app $type info vars [list $word]]]} {
-	    set opts(-type) "var"
-	} elseif {[::tkcon::EvalOther $app $type file isfile [list $word]]} {
-	    set opts(-type) "file"
-	}
-    }
-    if {$opts(-type) == {}} {
-	return -code error "unrecognized type '$word'"
-    }
-
-    # Create unique edit window toplevel
-    set w $PRIV(base).__edit
-    set i 0
-    while {[winfo exists $w[incr i]]} {}
-    append w $i
-    toplevel $w
-    wm withdraw $w
-    if {[string length $word] > 20} {
-	wm title $w "[string range $word 0 16]... - tkcon Edit"
-    } else {
-	wm title $w "$word - tkcon Edit"
-    }
-
-    if {[package provide ctext] != ""} {
-	set txt [ctext $w.text]
-    } else {
-	set txt [text $w.text]
-    }
-    $w.text configure -wrap $opts(-wrap) \
-	-xscrollcommand [list $w.sx set] \
-	-yscrollcommand [list $w.sy set] \
-	-foreground $COLOR(stdin) \
-	-background $COLOR(bg) \
-	-insertbackground $COLOR(cursor) \
-	-font $::tkcon::OPT(font) -borderwidth 1 -highlightthickness 0 \
-	-undo 1
-    catch {
-	# 8.5+ stuff
-	set tabsp [expr {$OPT(tabspace) * [font measure $OPT(font) 0]}]
-	$w.text configure -tabs [list $tabsp left] -tabstyle wordprocessor
-    }
-
-    scrollbar $w.sx -orient h -command [list $w.text xview]
-    scrollbar $w.sy -orient v -command [list $w.text yview]
-
-    set menu [menu $w.mbar]
-    $w configure -menu $menu
-
-    ## File Menu
-    ##
-    set m [menu [::tkcon::MenuButton $menu File file]]
-    $m add command -label "Save As..."  -underline 0 \
-	-command [list ::tkcon::Save {} widget $w.text]
-    $m add command -label "Append To..."  -underline 0 \
-	-command [list ::tkcon::Save {} widget $w.text a+]
-    $m add separator
-    $m add command -label "Dismiss" -underline 0 -accel $PRIV(ACC)w \
-	-command [list destroy $w]
-    bind $w <$PRIV(CTRL)w>		[list destroy $w]
-    bind $w <Alt-w>		[list destroy $w]
-
-    ## Edit Menu
-    ##
-    set text $w.text
-    set m [menu [::tkcon::MenuButton $menu Edit edit]]
-    $m add command -label "Cut"   -underline 2 \
-	-command [list tk_textCut $text]
-    $m add command -label "Copy"  -underline 0 \
-	-command [list tk_textCopy $text]
-    $m add command -label "Paste" -underline 0 \
-	-command [list tk_textPaste $text]
-    $m add separator
-    $m add command -label "Find" -underline 0 \
-	-command [list ::tkcon::FindBox $text]
-
-    ## Send To Menu
-    ##
-    set m [menu [::tkcon::MenuButton $menu "Send To..." send]]
-    $m add command -label "Send To $app" -underline 0 \
-	-command "::tkcon::EvalOther [list $app] $type \
-		eval \[$w.text get 1.0 end-1c\]"
-    set other [tkcon attach]
-    if {[string compare $other [list $app $type]]} {
-	$m add command -label "Send To [lindex $other 0]" \
-	    -command "::tkcon::EvalOther $other \
-		    eval \[$w.text get 1.0 end-1c\]"
-    }
-
-    grid $w.text - $w.sy -sticky news
-    grid $w.sx - -sticky ew
-    grid columnconfigure $w 0 -weight 1
-    grid columnconfigure $w 1 -weight 1
-    grid rowconfigure $w 0 -weight 1
-
-    switch -glob -- $opts(-type) {
-	proc*	{
-	    $w.text insert 1.0 \
-		    [::tkcon::EvalOther $app $type dump proc [list $word]]
-	    after idle [::tkcon::Highlight $w.text tcl]
-	}
-	var*	{
-	    $w.text insert 1.0 \
-		    [::tkcon::EvalOther $app $type dump var [list $word]]
-	    after idle [::tkcon::Highlight $w.text tcl]
-	}
-	file	{
-	    $w.text insert 1.0 [::tkcon::EvalOther $app $type eval \
-		    [subst -nocommands {
-		set __tkcon(fid) [open {$word} r]
-		set __tkcon(data) [read \$__tkcon(fid)]
-		close \$__tkcon(fid)
-		after 1000 unset __tkcon
-		return \$__tkcon(data)
-	    }
-	    ]]
-	    after idle [::tkcon::Highlight $w.text \
-			    [string trimleft [file extension $word] .]]
-	}
-	error*	{
-	    $w.text insert 1.0 [join $args \n]
-	    after idle [::tkcon::Highlight $w.text error]
-	}
-	default	{
-	    $w.text insert 1.0 [join $args \n]
-	}
-    }
-    # prevent stuff above being "undoable" in newer Tk
-    catch { $w.text edit reset ; $w.text edit modified 0 }
-    wm deiconify $w
-    focus $w.text
-    if {[string compare $opts(-find) {}]} {
-	::tkcon::Find $w.text $opts(-find) -case 1
-    }
-}
-interp alias {} ::more {} ::edit
-interp alias {} ::less {} ::edit
-
-## echo
-## Relaxes the one string restriction of 'puts'
-# ARGS:	any number of strings to output to stdout
-##
-proc echo args { puts stdout [concat $args] }
-
-## clear - clears the buffer of the console (not the history though)
-## This is executed in the parent interpreter
-## 
-proc clear {{pcnt 100}} {
-    if {![regexp {^[0-9]*$} $pcnt] || $pcnt < 1 || $pcnt > 100} {
-	return -code error \
-		"invalid percentage to clear: must be 1-100 (100 default)"
-    } elseif {$pcnt == 100} {
-	tkcon console delete 1.0 end
-    } else {
-	set tmp [expr {$pcnt/100.0*[tkcon console index end]}]
-	tkcon console delete 1.0 "$tmp linestart"
-    }
-}
-
-## alias - akin to the csh alias command
-## If called with no args, then it dumps out all current aliases
-## If called with one arg, returns the alias of that arg (or {} if none)
-# ARGS:	newcmd	- (optional) command to bind alias to
-# 	args	- command and args being aliased
-## 
-proc alias {{newcmd {}} args} {
-    if {[string match {} $newcmd]} {
-	set res {}
-	foreach a [interp aliases] {
-	    lappend res [list $a -> [interp alias {} $a]]
-	}
-	return [join $res \n]
-    } elseif {![llength $args]} {
-	interp alias {} $newcmd
-    } else {
-	eval interp alias [list {} $newcmd {}] $args
-    }
-}
-
-## unalias - unaliases an alias'ed command
-# ARGS:	cmd	- command to unbind as an alias
-## 
-proc unalias {cmd} {
-    interp alias {} $cmd {}
-}
-
-## dump - outputs variables/procedure/widget info in source'able form.
-## Accepts glob style pattern matching for the names
-#
-# ARGS:	type	- type of thing to dump: must be variable, procedure, widget
-#
-# OPTS: -nocomplain
-#		don't complain if no items of the specified type are found
-#	-filter pattern
-#		specifies a glob filter pattern to be used by the variable
-#		method as an array filter pattern (it filters down for
-#		nested elements) and in the widget method as a config
-#		option filter pattern
-#	--	forcibly ends options recognition
-#
-# Returns:	the values of the requested items in a 'source'able form
-## 
-proc dump {type args} {
-    set whine 1
-    set code  ok
-    if {![llength $args]} {
-	## If no args, assume they gave us something to dump and
-	## we'll try anything
-	set args $type
-	set type any
-    }
-    while {[string match -* [lindex $args 0]]} {
-	switch -glob -- [lindex $args 0] {
-	    -n* { set whine 0; set args [lreplace $args 0 0] }
-	    -f* { set fltr [lindex $args 1]; set args [lreplace $args 0 1] }
-	    --  { set args [lreplace $args 0 0]; break }
-	    default {return -code error "unknown option \"[lindex $args 0]\""}
-	}
-    }
-    if {$whine && ![llength $args]} {
-	return -code error "wrong \# args: [lindex [info level 0] 0] type\
-		?-nocomplain? ?-filter pattern? ?--? pattern ?pattern ...?"
-    }
-    set res {}
-    switch -glob -- $type {
-	c* {
-	    # command
-	    # outputs commands by figuring out, as well as possible, what it is
-	    # this does not attempt to auto-load anything
-	    foreach arg $args {
-		if {[llength [set cmds [info commands $arg]]]} {
-		    foreach cmd [lsort $cmds] {
-			if {[lsearch -exact [interp aliases] $cmd] > -1} {
-			    append res "\#\# ALIAS:   $cmd =>\
-				    [interp alias {} $cmd]\n"
-			} elseif {
-			    [llength [info procs $cmd]] ||
-			    ([string match *::* $cmd] &&
-			    [llength [namespace eval [namespace qual $cmd] \
-				    info procs [namespace tail $cmd]]])
-			} {
-			    if {[catch {dump p -- $cmd} msg] && $whine} {
-				set code error
-			    }
-			    append res $msg\n
-			} else {
-			    append res "\#\# COMMAND: $cmd\n"
-			}
-		    }
-		} elseif {$whine} {
-		    append res "\#\# No known command $arg\n"
-		    set code error
-		}
-	    }
-	}
-	v* {
-	    # variable
-	    # outputs variables value(s), whether array or simple.
-	    if {![info exists fltr]} { set fltr * }
-	    foreach arg $args {
-		if {![llength [set vars [uplevel 1 info vars [list $arg]]]]} {
-		    if {[uplevel 1 info exists $arg]} {
-			set vars $arg
-		    } elseif {$whine} {
-			append res "\#\# No known variable $arg\n"
-			set code error
-			continue
-		    } else { continue }
-		}
-		foreach var [lsort $vars] {
-		    if {[uplevel 1 [list info locals $var]] == ""} {
-			# use the proper scope of the var, but namespace which
-			# won't id locals or some upvar'ed vars correctly
-			set new [uplevel 1 \
-				[list namespace which -variable $var]]
-			if {$new != ""} {
-			    set var $new
-			}
-		    }
-		    upvar 1 $var v
-		    if {[array exists v] || [catch {string length $v}]} {
-			set nst {}
-			append res "array set [list $var] \{\n"
-			if {[array size v]} {
-			    foreach i \
-				    [lsort -dictionary [array names v $fltr]] {
-				upvar 0 v\($i\) __a
-				if {[array exists __a]} {
-				    append nst "\#\# NESTED ARRAY ELEM: $i\n"
-				    append nst "upvar 0 [list $var\($i\)] __a;\
-					    [dump v -filter $fltr __a]\n"
-				} else {
-				    append res "    [list $i]\t[list $v($i)]\n"
-				}
-			    }
-			} else {
-			    ## empty array
-			    append res "    empty array\n"
-			    if {$var == ""} {
-				append nst "unset (empty)\n"
-			    } else {
-				append nst "unset [list $var](empty)\n"
-			    }
-			}
-			append res "\}\n$nst"
-		    } else {
-			append res [list set $var $v]\n
-		    }
-		}
-	    }
-	}
-	p* {
-	    # procedure
-	    foreach arg $args {
-		if {
-		    ![llength [set procs [info proc $arg]]] &&
-		    ([string match *::* $arg] &&
-		    [llength [set ps [namespace eval \
-			    [namespace qualifier $arg] \
-			    info procs [namespace tail $arg]]]])
-		} {
-		    set procs {}
-		    set namesp [namespace qualifier $arg]
-		    foreach p $ps {
-			lappend procs ${namesp}::$p
-		    }
-		}
-		if {[llength $procs]} {
-		    foreach p [lsort $procs] {
-			set as {}
-			foreach a [info args $p] {
-			    if {[info default $p $a tmp]} {
-				lappend as [list $a $tmp]
-			    } else {
-				lappend as $a
-			    }
-			}
-			append res [list proc $p $as [info body $p]]\n
-		    }
-		} elseif {$whine} {
-		    append res "\#\# No known proc $arg\n"
-		    set code error
-		}
-	    }
-	}
-	w* {
-	    # widget
-	    ## The user should have Tk loaded
-	    if {![llength [info command winfo]]} {
-		return -code error "winfo not present, cannot dump widgets"
-	    }
-	    if {![info exists fltr]} { set fltr .* }
-	    foreach arg $args {
-		if {[llength [set ws [info command $arg]]]} {
-		    foreach w [lsort $ws] {
-			if {[winfo exists $w]} {
-			    if {[catch {$w configure} cfg]} {
-				append res "\#\# Widget $w\
-					does not support configure method"
-				set code error
-			    } else {
-				append res "\#\# [winfo class $w]\
-					$w\n$w configure"
-				foreach c $cfg {
-				    if {[llength $c] != 5} continue
-				    ## Check to see that the option does
-				    ## not match the default, then check
-				    ## the item against the user filter
-				    if {[string compare [lindex $c 3] \
-					    [lindex $c 4]] && \
-					    [regexp -nocase -- $fltr $c]} {
-					append res " \\\n\t[list [lindex $c 0]\
-						[lindex $c 4]]"
-				    }
-				}
-				append res \n
-			    }
-			}
-		    }
-		} elseif {$whine} {
-		    append res "\#\# No known widget $arg\n"
-		    set code error
-		}
-	    }
-	}
-	a* {
-	    ## see if we recognize it, other complain
-	    if {[regexp {(var|com|proc|widget)} \
-		    [set types [uplevel 1 what $args]]]} {
-		foreach type $types {
-		    if {[regexp {(var|com|proc|widget)} $type]} {
-			append res "[uplevel 1 dump $type $args]\n"
-		    }
-		}
-	    } else {
-		set res "dump was unable to resolve type for \"$args\""
-		set code error
-	    }
-	}
-	default {
-	    return -code error "bad [lindex [info level 0] 0] option\
-		    \"$type\": must be variable, command, procedure,\
-		    or widget"
-	}
-    }
-    return -code $code [string trimright $res \n]
-}
-
-## idebug - interactive debugger
-#
-# idebug body ?level?
-#
-#	Prints out the body of the command (if it is a procedure) at the
-#	specified level.  <i>level</i> defaults to the current level.
-#
-# idebug break
-#
-#	Creates a breakpoint within a procedure.  This will only trigger
-#	if idebug is on and the id matches the pattern.  If so, TkCon will
-#	pop to the front with the prompt changed to an idebug prompt.  You
-#	are given the basic ability to observe the call stack an query/set
-#	variables or execute Tcl commands at any level.  A separate history
-#	is maintained in debugging mode.
-#
-# idebug echo|{echo ?id?} ?args?
-#
-#	Behaves just like "echo", but only triggers when idebug is on.
-#	You can specify an optional id to further restrict triggering.
-#	If no id is specified, it defaults to the name of the command
-#	in which the call was made.
-#
-# idebug id ?id?
-#
-#	Query or set the idebug id.  This id is used by other idebug
-#	methods to determine if they should trigger or not.  The idebug
-#	id can be a glob pattern and defaults to *.
-#
-# idebug off
-#
-#	Turns idebug off.
-#
-# idebug on ?id?
-#
-#	Turns idebug on.  If 'id' is specified, it sets the id to it.
-#
-# idebug puts|{puts ?id?} args
-#
-#	Behaves just like "puts", but only triggers when idebug is on.
-#	You can specify an optional id to further restrict triggering.
-#	If no id is specified, it defaults to the name of the command
-#	in which the call was made.
-#
-# idebug show type ?level? ?VERBOSE?
-#
-#	'type' must be one of vars, locals or globals.  This method
-#	will output the variables/locals/globals present in a particular
-#	level.  If VERBOSE is added, then it actually 'dump's out the
-#	values as well.  'level' defaults to the level in which this
-#	method was called.
-#
-# idebug trace ?level?
-#
-#	Prints out the stack trace from the specified level up to the top
-#	level.  'level' defaults to the current level.
-#
-##
-proc idebug {opt args} {
-    global IDEBUG
-
-    if {![info exists IDEBUG(on)]} {
-	array set IDEBUG { on 0 id * debugging 0 }
-    }
-    set level [expr {[info level]-1}]
-    switch -glob -- $opt {
-	on	{
-	    # id is just arg0 [bug #50]
-	    if {[llength $args]} { set IDEBUG(id) [lindex $args 0] }
-	    return [set IDEBUG(on) 1]
-	}
-	off	{ return [set IDEBUG(on) 0] }
-	id  {
-	    if {![llength $args]} {
-		return $IDEBUG(id)
-	    } else { return [set IDEBUG(id) [lindex $args 0]] }
-	}
-	break {
-	    if {!$IDEBUG(on) || $IDEBUG(debugging) || \
-		    ([llength $args] && \
-		    ![string match $IDEBUG(id) $args]) || [info level]<1} {
-		return
-	    }
-	    set IDEBUG(debugging) 1
-	    puts stderr "idebug at level \#$level: [lindex [info level -1] 0]"
-	    set tkcon [llength [info command tkcon]]
-	    if {$tkcon} {
-		tkcon master eval set ::tkcon::OPT(prompt2) \$::tkcon::OPT(prompt1)
-		tkcon master eval set ::tkcon::OPT(prompt1) \$::tkcon::OPT(debugPrompt)
-		set slave [tkcon set ::tkcon::OPT(exec)]
-		set event [tkcon set ::tkcon::PRIV(event)]
-		tkcon set ::tkcon::OPT(exec) [tkcon master interp create debugger]
-		tkcon set ::tkcon::PRIV(event) 1
-	    }
-	    set max $level
-	    while 1 {
-		set err {}
-		if {$tkcon} {
-		    # tkcon's overload of gets is advanced enough to not need
-		    # this, but we get a little better control this way.
-		    tkcon evalSlave set level $level
-		    tkcon prompt
-		    set line [tkcon getcommand]
-		    tkcon console mark set output end
-		} else {
-		    puts -nonewline stderr "(level \#$level) debug > "
-		    gets stdin line
-		    while {![info complete $line]} {
-			puts -nonewline "> "
-			append line "\n[gets stdin]"
-		    }
-		}
-		if {[string match {} $line]} continue
-		set key [regexp -inline {\S+} $line]
-		if {![regexp {^\s*\S+\s+([#-]?[0-9]+)} $line -> lvl]} {
-		    set lvl \#$level
-		}
-		set res {}; set c 0
-		switch -- $key {
-		    + {
-			## Allow for jumping multiple levels
-			if {$level < $max} {
-			    idebug trace [incr level] $level 0 VERBOSE
-			}
-		    }
-		    - {
-			## Allow for jumping multiple levels
-			if {$level > 1} {
-			    idebug trace [incr level -1] $level 0 VERBOSE
-			}
-		    }
-		    . { set c [catch {idebug trace $level $level 0 VERBOSE} res] }
-		    v { set c [catch {idebug show vars $lvl } res] }
-		    V { set c [catch {idebug show vars $lvl VERBOSE} res] }
-		    l { set c [catch {idebug show locals $lvl } res] }
-		    L { set c [catch {idebug show locals $lvl VERBOSE} res] }
-		    g { set c [catch {idebug show globals $lvl } res] }
-		    G { set c [catch {idebug show globals $lvl VERBOSE} res] }
-		    t { set c [catch {idebug trace 1 $max $level } res] }
-		    T { set c [catch {idebug trace 1 $max $level VERBOSE} res]}
-		    b { set c [catch {idebug body $lvl} res] }
-		    o { set res [set IDEBUG(on) [expr {!$IDEBUG(on)}]] }
-		    h - ?	{
-			puts stderr "    +		Move down in call stack
-    -		Move up in call stack
-    .		Show current proc name and params
-
-    v		Show names of variables currently in scope
-    V		Show names of variables currently in scope with values
-    l		Show names of local (transient) variables
-    L		Show names of local (transient) variables with values
-    g		Show names of declared global variables
-    G		Show names of declared global variables with values
-    t		Show a stack trace
-    T		Show a verbose stack trace
-
-    b		Show body of current proc
-    o		Toggle on/off any further debugging
-    c,q		Continue regular execution (Quit debugger)
-    h,?		Print this help
-    default	Evaluate line at current level (\#$level)"
-		    }
-		    c - q break
-		    default { set c [catch {uplevel \#$level $line} res] }
-		}
-		if {$tkcon} {
-		    tkcon set ::tkcon::PRIV(event) \
-			    [tkcon evalSlave eval history add [list $line]\
-			    \; history nextid]
-		}
-		if {$c} {
-		    puts stderr $res
-		} elseif {[string compare {} $res]} {
-		    puts $res
-		}
-	    }
-	    set IDEBUG(debugging) 0
-	    if {$tkcon} {
-		tkcon master interp delete debugger
-		tkcon master eval set ::tkcon::OPT(prompt1) \$::tkcon::OPT(prompt2)
-		tkcon set ::tkcon::OPT(exec) $slave
-		tkcon set ::tkcon::PRIV(event) $event
-		tkcon prompt
-	    }
-	}
-	bo* {
-	    if {[regexp {^([#-]?[0-9]+)} $args level]} {
-		return [uplevel $level {dump c -no [lindex [info level 0] 0]}]
-	    }
-	}
-	t* {
-	    if {[llength $args]<2} return
-	    set min [set max [set lvl $level]]
-	    set exp {^#?([0-9]+)? ?#?([0-9]+) ?#?([0-9]+)? ?(VERBOSE)?}
-	    if {![regexp $exp $args junk min max lvl verbose]} return
-	    for {set i $max} {
-		$i>=$min && ![catch {uplevel \#$i info level 0} info]
-	    } {incr i -1} {
-		if {$i==$lvl} {
-		    puts -nonewline stderr "* \#$i:\t"
-		} else {
-		    puts -nonewline stderr "  \#$i:\t"
-		}
-		set name [lindex $info 0]
-		if {[string compare VERBOSE $verbose] || \
-			![llength [info procs $name]]} {
-		    puts $info
-		} else {
-		    puts "proc $name {[info args $name]} { ... }"
-		    set idx 0
-		    foreach arg [info args $name] {
-			if {[string match args $arg]} {
-			    puts "\t$arg = [lrange $info [incr idx] end]"
-			    break
-			} else {
-			    puts "\t$arg = [lindex $info [incr idx]]"
-			}
-		    }
-		}
-	    }
-	}
-	s* {
-	    #var, local, global
-	    set level \#$level
-	    if {![regexp {^([vgl][^ ]*) ?([#-]?[0-9]+)? ?(VERBOSE)?} \
-		    $args junk type level verbose]} return
-	    switch -glob -- $type {
-		v* { set vars [uplevel $level {lsort [info vars]}] }
-		l* { set vars [uplevel $level {lsort [info locals]}] }
-		g* { set vars [lremove [uplevel $level {info vars}] \
-			[uplevel $level {info locals}]] }
-	    }
-	    if {[string match VERBOSE $verbose]} {
-		return [uplevel $level dump var -nocomplain $vars]
-	    } else {
-		return $vars
-	    }
-	}
-	e* - pu* {
-	    if {[llength $opt]==1 && [catch {lindex [info level -1] 0} id]} {
-		set id [lindex [info level 0] 0]
-	    } else {
-		set id [lindex $opt 1]
-	    }
-	    if {$IDEBUG(on) && [string match $IDEBUG(id) $id]} {
-		if {[string match e* $opt]} {
-		    puts [concat $args]
-		} else { eval puts $args }
-	    }
-	}
-	default {
-	    return -code error "bad [lindex [info level 0] 0] option \"$opt\",\
-		    must be: [join [lsort [list on off id break print body\
-		    trace show puts echo]] {, }]"
-	}
-    }
-}
-
-## observe - like trace, but not
-# ARGS:	opt	- option
-#	name	- name of variable or command
-##
-proc observe {opt name args} {
-    global tcl_observe
-    switch -glob -- $opt {
-	co* {
-	    if {[regexp {^(catch|lreplace|set|puts|for|incr|info|uplevel)$} \
-		    $name]} {
-		return -code error "cannot observe \"$name\":\
-			infinite eval loop will occur"
-	    }
-	    set old ${name}@
-	    while {[llength [info command $old]]} { append old @ }
-	    rename $name $old
-	    set max 4
-	    regexp {^[0-9]+} $args max
-	    # handle the observe'ing of 'proc'
-	    set proccmd "proc"
-	    if {[string match "proc" $name]} { set proccmd $old }
-	    ## idebug trace could be used here
-	    $proccmd $name args "
-	    for {set i \[info level\]; set max \[expr \[info level\]-$max\]} {
-		\$i>=\$max && !\[catch {uplevel \#\$i info level 0} info\]
-	    } {incr i -1} {
-		puts -nonewline stderr \"  \#\$i:\t\"
-		puts \$info
-	    }
-	    uplevel \[lreplace \[info level 0\] 0 0 $old\]
-	    "
-	    set tcl_observe($name) $old
-	}
-	cd* {
-	    if {[info exists tcl_observe($name)] && [catch {
-		rename $name {}
-		rename $tcl_observe($name) $name
-		unset tcl_observe($name)
-	    } err]} { return -code error $err }
-	}
-	ci* {
-	    ## What a useless method...
-	    if {[info exists tcl_observe($name)]} {
-		set i $tcl_observe($name)
-		set res "\"$name\" observes true command \"$i\""
-		while {[info exists tcl_observe($i)]} {
-		    append res "\n\"$name\" observes true command \"$i\""
-		    set i $tcl_observe($name)
-		}
-		return $res
-	    }
-	}
-	va* - vd* {
-	    set type [lindex $args 0]
-	    set args [lrange $args 1 end]
-	    if {![regexp {^[rwu]} $type type]} {
-		return -code error "bad [lindex [info level 0] 0] $opt type\
-			\"$type\", must be: read, write or unset"
-	    }
-	    if {![llength $args]} { set args observe_var }
-	    foreach c [uplevel 1 [list trace vinfo $name]] {
-		# don't double up on the traces
-		if {[list $type $args] == $c} { return }
-	    }
-	    uplevel 1 [list trace $opt $name $type $args]
-	}
-	vi* {
-	    uplevel 1 [list trace vinfo $name]
-	}
-	default {
-	    return -code error "bad [lindex [info level 0] 0] option\
-		    \"[lindex $args 0]\", must be: [join [lsort \
-		    [list command cdelete cinfo variable vdelete vinfo]] {, }]"
-	}
-    }
-}
-
-## observe_var - auxilary function for observing vars, called by trace
-## via observe
-# ARGS:	name	- variable name
-#	el	- array element name, if any
-#	op	- operation type (rwu)
-##
-proc observe_var {name el op} {
-    if {[string match u $op]} {
-	if {[string compare {} $el]} {
-	    puts "unset \"${name}($el)\""
-	} else {
-	    puts "unset \"$name\""
-	}
-    } else {
-	upvar 1 $name $name
-	if {[info exists ${name}($el)]} {
-	    puts [dump v ${name}($el)]
-	} else {
-	    puts [dump v $name]
-	}
-    }
-}
-
-## which - tells you where a command is found
-# ARGS:	cmd	- command name
-# Returns:	where command is found (internal / external / unknown)
-## 
-proc which cmd {
-    ## This tries to auto-load a command if not recognized
-    set types [uplevel 1 [list what $cmd 1]]
-    if {[llength $types]} {
-	set out {}
-	
-	foreach type $types {
-	    switch -- $type {
-		alias		{ set res "$cmd: aliased to [alias $cmd]" }
-		procedure	{ set res "$cmd: procedure" }
-		command		{ set res "$cmd: internal command" }
-		executable	{ lappend out [auto_execok $cmd] }
-		variable	{ lappend out "$cmd: $type" }
-	    }
-	    if {[info exists res]} {
-		global auto_index
-		if {[info exists auto_index($cmd)]} {
-		    ## This tells you where the command MIGHT have come from -
-		    ## not true if the command was redefined interactively or
-		    ## existed before it had to be auto_loaded.  This is just
-		    ## provided as a hint at where it MAY have come from
-		    append res " ($auto_index($cmd))"
-		}
-		lappend out $res
-		unset res
-	    }
-	}
-	return [join $out \n]
-    } else {
-	return -code error "$cmd: command not found"
-    }
-}
-
-## what - tells you what a string is recognized as
-# ARGS:	str	- string to id
-# Returns:	id types of command as list
-## 
-proc what {str {autoload 0}} {
-    set types {}
-    if {[llength [info commands $str]] || ($autoload && \
-	    [auto_load $str] && [llength [info commands $str]])} {
-	if {[lsearch -exact [interp aliases] $str] > -1} {
-	    lappend types "alias"
-	} elseif {
-	    [llength [info procs $str]] ||
-	    ([string match *::* $str] &&
-	    [llength [namespace eval [namespace qualifier $str] \
-		    info procs [namespace tail $str]]])
-	} {
-	    lappend types "procedure"
-	} else {
-	    lappend types "command"
-	}
-    }
-    if {[llength [uplevel 1 info vars $str]]} {
-	upvar 1 $str var
-	if {[array exists var]} {
-	    lappend types array variable
-	} else {
-	    lappend types scalar variable
-	}
-    }
-    if {[file isdirectory $str]} {
-	lappend types "directory"
-    }
-    if {[file isfile $str]} {
-	lappend types "file"
-    }
-    if {[llength [info commands winfo]] && [winfo exists $str]} {
-	lappend types "widget"
-    }
-    if {[string compare {} [auto_execok $str]]} {
-	lappend types "executable"
-    }
-    return $types
-}
-
-## dir - directory list
-# ARGS:	args	- names/glob patterns of directories to list
-# OPTS:	-all	- list hidden files as well (Unix dot files)
-#	-long	- list in full format "permissions size date filename"
-#	-full	- displays / after directories and link paths for links
-# Returns:	a directory listing
-## 
-proc dir {args} {
-    array set s {
-	all 0 full 0 long 0
-	0 --- 1 --x 2 -w- 3 -wx 4 r-- 5 r-x 6 rw- 7 rwx
-    }
-    while {[string match \-* [lindex $args 0]]} {
-	set str [lindex $args 0]
-	set args [lreplace $args 0 0]
-	switch -glob -- $str {
-	    -a* {set s(all) 1} -f* {set s(full) 1}
-	    -l* {set s(long) 1} -- break
-	    default {
-		return -code error "unknown option \"$str\",\
-			should be one of: -all, -full, -long"
-	    }
-	}
-    }
-    set sep [string trim [file join . .] .]
-    if {![llength $args]} { set args [list [pwd]] }
-    if {$::tcl_version >= 8.3} {
-	# Newer glob args allow safer dir processing.  The user may still
-	# want glob chars, but really only for file matching.
-	foreach arg $args {
-	    if {[file isdirectory $arg]} {
-		if {$s(all)} {
-		    lappend out [list $arg [lsort \
-			    [glob -nocomplain -directory $arg .* *]]]
-		} else {
-		    lappend out [list $arg [lsort \
-			    [glob -nocomplain -directory $arg *]]]
-		}
-	    } else {
-		set dir [file dirname $arg]
-		lappend out [list $dir$sep [lsort \
-			[glob -nocomplain -directory $dir [file tail $arg]]]]
-	    }
-	}
-    } else {
-	foreach arg $args {
-	    if {[file isdirectory $arg]} {
-		set arg [string trimright $arg $sep]$sep
-		if {$s(all)} {
-		    lappend out [list $arg [lsort [glob -nocomplain -- $arg.* $arg*]]]
-		} else {
-		    lappend out [list $arg [lsort [glob -nocomplain -- $arg*]]]
-		}
-	    } else {
-		lappend out [list [file dirname $arg]$sep \
-			[lsort [glob -nocomplain -- $arg]]]
-	    }
-	}
-    }
-    if {$s(long)} {
-	set old [clock scan {1 year ago}]
-	set fmt "%s%9ld %s %s\n"
-	foreach o $out {
-	    set d [lindex $o 0]
-	    append res $d:\n
-	    foreach f [lindex $o 1] {
-		file lstat $f st
-		set f [file tail $f]
-		if {$s(full)} {
-		    switch -glob $st(type) {
-			d* { append f $sep }
-			l* { append f "@ -> [file readlink $d$sep$f]" }
-			default { if {[file exec $d$sep$f]} { append f * } }
-		    }
-		}
-		if {[string match file $st(type)]} {
-		    set mode -
-		} else {
-		    set mode [string index $st(type) 0]
-		}
-		foreach j [split [format %03o [expr {$st(mode)&0777}]] {}] {
-		    append mode $s($j)
-		}
-		if {$st(mtime)>$old} {
-		    set cfmt {%b %d %H:%M}
-		} else {
-		    set cfmt {%b %d  %Y}
-		}
-		append res [format $fmt $mode $st(size) \
-			[clock format $st(mtime) -format $cfmt] $f]
-	    }
-	    append res \n
-	}
-    } else {
-	foreach o $out {
-	    set d [lindex $o 0]
-	    append res "$d:\n"
-	    set i 0
-	    foreach f [lindex $o 1] {
-		if {[string len [file tail $f]] > $i} {
-		    set i [string len [file tail $f]]
-		}
-	    }
-	    set i [expr {$i+2+$s(full)}]
-	    set j 80
-	    ## This gets the number of cols in the tkcon console widget
-	    if {[llength [info commands tkcon]]} {
-		set j [expr {[tkcon master set ::tkcon::OPT(cols)]/$i}]
-	    }
-	    set k 0
-	    foreach f [lindex $o 1] {
-		set f [file tail $f]
-		if {$s(full)} {
-		    switch -glob [file type $d$sep$f] {
-			d* { append f $sep }
-			l* { append f @ }
-			default { if {[file exec $d$sep$f]} { append f * } }
-		    }
-		}
-		append res [format "%-${i}s" $f]
-		if {$j == 0 || [incr k]%$j == 0} {
-		    set res [string trimright $res]\n
-		}
-	    }
-	    append res \n\n
-	}
-    }
-    return [string trimright $res]
-}
-interp alias {} ::ls {} ::dir -full
-
-## lremove - remove items from a list
-# OPTS:
-#   -all	remove all instances of each item
-#   -glob	remove all instances matching glob pattern
-#   -regexp	remove all instances matching regexp pattern
-# ARGS:	l	a list to remove items from
-#	args	items to remove (these are 'join'ed together)
-##
-proc lremove {args} {
-    array set opts {-all 0 pattern -exact}
-    while {[string match -* [lindex $args 0]]} {
-	switch -glob -- [lindex $args 0] {
-	    -a*	{ set opts(-all) 1 }
-	    -g*	{ set opts(pattern) -glob }
-	    -r*	{ set opts(pattern) -regexp }
-	    --	{ set args [lreplace $args 0 0]; break }
-	    default {return -code error "unknown option \"[lindex $args 0]\""}
-	}
-	set args [lreplace $args 0 0]
-    }
-    set l [lindex $args 0]
-    foreach i [join [lreplace $args 0 0]] {
-	if {[set ix [lsearch $opts(pattern) $l $i]] == -1} continue
-	set l [lreplace $l $ix $ix]
-	if {$opts(-all)} {
-	    while {[set ix [lsearch $opts(pattern) $l $i]] != -1} {
-		set l [lreplace $l $ix $ix]
-	    }
-	}
-    }
-    return $l
-}
-
-if {!$::tkcon::PRIV(WWW)} {;
-
-## Unknown changed to get output into tkcon window
-# unknown:
-# Invoked automatically whenever an unknown command is encountered.
-# Works through a list of "unknown handlers" that have been registered
-# to deal with unknown commands.  Extensions can integrate their own
-# handlers into the 'unknown' facility via 'unknown_handler'.
-#
-# If a handler exists that recognizes the command, then it will
-# take care of the command action and return a valid result or a
-# Tcl error.  Otherwise, it should return "-code continue" (=2)
-# and responsibility for the command is passed to the next handler.
-#
-# Arguments:
-# args -	A list whose elements are the words of the original
-#		command, including the command name.
-
-proc unknown args {
-    global unknown_handler_order unknown_handlers errorInfo errorCode
-
-    #
-    # Be careful to save error info now, and restore it later
-    # for each handler.  Some handlers generate their own errors
-    # and disrupt handling.
-    #
-    set savedErrorCode $errorCode
-    set savedErrorInfo $errorInfo
-
-    if {![info exists unknown_handler_order] || \
-	    ![info exists unknown_handlers]} {
-	set unknown_handlers(tcl) tcl_unknown
-	set unknown_handler_order tcl
-    }
-
-    foreach handler $unknown_handler_order {
-        set status [catch {uplevel 1 $unknown_handlers($handler) $args} result]
-
-        if {$status == 1} {
-            #
-            # Strip the last five lines off the error stack (they're
-            # from the "uplevel" command).
-            #
-            set new [split $errorInfo \n]
-            set new [join [lrange $new 0 [expr {[llength $new]-6}]] \n]
-            return -code $status -errorcode $errorCode \
-                -errorinfo $new $result
-
-        } elseif {$status != 4} {
-            return -code $status $result
-        }
-
-        set errorCode $savedErrorCode
-        set errorInfo $savedErrorInfo
-    }
-
-    set name [lindex $args 0]
-    return -code error "invalid command name \"$name\""
-}
-
-# tcl_unknown:
-# Invoked when a Tcl command is invoked that doesn't exist in the
-# interpreter:
-#
-#	1. See if the autoload facility can locate the command in a
-#	   Tcl script file.  If so, load it and execute it.
-#	2. If the command was invoked interactively at top-level:
-#	    (a) see if the command exists as an executable UNIX program.
-#		If so, "exec" the command.
-#	    (b) see if the command requests csh-like history substitution
-#		in one of the common forms !!, !<number>, or ^old^new.  If
-#		so, emulate csh's history substitution.
-#	    (c) see if the command is a unique abbreviation for another
-#		command.  If so, invoke the command.
-#
-# Arguments:
-# args -	A list whose elements are the words of the original
-#		command, including the command name.
-
-proc tcl_unknown args {
-    global auto_noexec auto_noload env unknown_pending tcl_interactive
-    global errorCode errorInfo
-
-    # If the command word has the form "namespace inscope ns cmd"
-    # then concatenate its arguments onto the end and evaluate it.
-
-    set cmd [lindex $args 0]
-    if {[regexp "^:*namespace\[ \t\n\]+inscope" $cmd] \
-	    && [llength $cmd] == 4} {
-        set arglist [lrange $args 1 end]
-	set ret [catch {uplevel 1 $cmd $arglist} result]
-        if {$ret == 0} {
-            return $result
-        } else {
-	    return -code $ret -errorcode $errorCode $result
-        }
-    }
-
-    # Save the values of errorCode and errorInfo variables, since they
-    # may get modified if caught errors occur below.  The variables will
-    # be restored just before re-executing the missing command.
-
-    set savedErrorCode $errorCode
-    set savedErrorInfo $errorInfo
-    set name [lindex $args 0]
-    if {![info exists auto_noload]} {
-	#
-	# Make sure we're not trying to load the same proc twice.
-	#
-	if {[info exists unknown_pending($name)]} {
-	    return -code error "self-referential recursion in \"unknown\" for command \"$name\""
-	}
-	set unknown_pending($name) pending
-	if {[llength [info args auto_load]]==1} {
-	    set ret [catch {auto_load $name} msg]
-	} else {
-	    set ret [catch {auto_load $name [uplevel 1 {namespace current}]} msg]
-	}
-	unset unknown_pending($name)
-	if {$ret} {
-	    return -code $ret -errorcode $errorCode \
-		    "error while autoloading \"$name\": $msg"
-	}
-	if {![array size unknown_pending]} { unset unknown_pending }
-	if {$msg} {
-	    set errorCode $savedErrorCode
-	    set errorInfo $savedErrorInfo
-	    set code [catch {uplevel 1 $args} msg]
-	    if {$code ==  1} {
-		#
-		# Strip the last five lines off the error stack (they're
-		# from the "uplevel" command).
-		#
-
-		set new [split $errorInfo \n]
-		set new [join [lrange $new 0 [expr {[llength $new]-6}]] \n]
-		return -code error -errorcode $errorCode \
-			-errorinfo $new $msg
-	    } else {
-		return -code $code $msg
-	    }
-	}
-    }
-    if {[info level] == 1 && [string match {} [info script]] \
-	    && [info exists tcl_interactive] && $tcl_interactive} {
-	if {![info exists auto_noexec]} {
-	    set new [auto_execok $name]
-	    if {[string compare {} $new]} {
-		set errorCode $savedErrorCode
-		set errorInfo $savedErrorInfo
-		if {[info exists ::tkcon::EXPECT] && $::tkcon::EXPECT && [package provide Expect] != ""} {
-		    return [tkcon expect [concat $new [lrange $args 1 end]]]
-		} else {
-		    return [uplevel 1 exec $new [lrange $args 1 end]]
-		}
-		#return [uplevel exec >&@stdout <@stdin $new [lrange $args 1 end]]
-	    }
-	}
-	set errorCode $savedErrorCode
-	set errorInfo $savedErrorInfo
-	##
-	## History substitution moved into ::tkcon::EvalCmd
-	##
-	if {[string compare $name "::"] == 0} {
-	    set name ""
-	}
-	if {$ret != 0} {
-	    return -code $ret -errorcode $errorCode \
-		"error in unknown while checking if \"$name\" is a unique command abbreviation: $msg"
-	}
-	set cmds [info commands $name*]
-	if {[llength $cmds] == 1} {
-	    return [uplevel 1 [lreplace $args 0 0 $cmds]]
-	}
-	if {[llength $cmds]} {
-	    if {$name == ""} {
-		return -code error "empty command name \"\""
-	    } else {
-		return -code error \
-			"ambiguous command name \"$name\": [lsort $cmds]"
-	    }
-	}
-	## We've got nothing so far
-	## Check and see if Tk wasn't loaded, but it appears to be a Tk cmd
-	if {![uplevel \#0 info exists tk_version]} {
-	    lappend tkcmds bell bind bindtags button \
-		    canvas checkbutton clipboard destroy \
-		    entry event focus font frame grab grid image \
-		    label labelframe listbox lower menu menubutton message \
-		    option pack panedwindow place radiobutton raise \
-		    scale scrollbar selection send spinbox \
-		    text tk tkwait toplevel winfo wm
-	    if {[lsearch -exact $tkcmds $name] >= 0 && \
-		    [tkcon master tk_messageBox -icon question -parent . \
-		    -title "Load Tk?" -type retrycancel -default retry \
-		    -message "This appears to be a Tk command, but Tk\
-		    has not yet been loaded.  Shall I retry the command\
-		    with loading Tk first?"] == "retry"} {
-		return [uplevel 1 "load {} Tk; $args"]
-	    }
-	}
-    }
-    return -code continue
-}
-
-} ; # end exclusionary code for WWW
-
-proc ::tkcon::Bindings {} {
-    variable PRIV
-    global tcl_platform tk_version
-
-    #-----------------------------------------------------------------------
-    # Elements of tk::Priv that are used in this file:
-    #
-    # mouseMoved -	Non-zero means the mouse has moved a significant
-    #			amount since the button went down (so, for example,
-    #			start dragging out a selection).
-    #-----------------------------------------------------------------------
-
-    ## Get all Text bindings into TkConsole
-    foreach ev [bind Text] { bind TkConsole $ev [bind Text $ev] }
-    ## We really didn't want the newline insertion
-    bind TkConsole <Control-Key-o> {}
-
-    ## in 8.6b3, the virtual events <<NextLine>> and <<PrevLine>> 
-    #  mess up our history feature
-    bind TkConsole <<NextLine>> {}
-    bind TkConsole <<PrevLine>> {}
-
-    ## Now make all our virtual event bindings
-    set bindings {
-	<<TkCon_Exit>>		<$PRIV(CTRL)-q>
-	<<TkCon_New>>		<$PRIV(CTRL)-N>
-	<<TkCon_NewTab>>	<$PRIV(CTRL)-T>
-	<<TkCon_NextTab>>	<Control-Key-Tab>
-	<<TkCon_PrevTab>>	<Control-Shift-Key-Tab>
-	<<TkCon_Close>>		<$PRIV(CTRL)-w>
-	<<TkCon_About>>		<$PRIV(CTRL)-A>
-	<<TkCon_Find>>		<$PRIV(CTRL)F>
-	<<TkCon_Slave>>		<$PRIV(CTRL)Key-1>
-	<<TkCon_Master>>	<$PRIV(CTRL)Key-2>
-	<<TkCon_Main>>		<$PRIV(CTRL)Key-3>
-	<<TkCon_Expand>>	<Key-Tab>
-	<<TkCon_ExpandFile>>	<Key-Escape>
-	<<TkCon_ExpandProc>>	<Control-P>
-	<<TkCon_ExpandVar>>	<Control-V>
-	<<TkCon_Tab>>		<Control-i>
-	<<TkCon_Tab>>		<Alt-i>
-	<<TkCon_Newline>>	<Control-o>
-	<<TkCon_Newline>>	<Alt-o>
-	<<TkCon_Newline>>	<Control-Key-Return>
-	<<TkCon_Newline>>	<Control-Key-KP_Enter>
-	<<TkCon_Eval>>		<Return>
-	<<TkCon_Eval>>		<KP_Enter>
-	<<TkCon_Clear>>		<Control-l>
-	<<TkCon_Previous>>	<Up>
-	<<TkCon_PreviousImmediate>>	<Control-p>
-	<<TkCon_PreviousSearch>>	<Control-r>
-	<<TkCon_Next>>		<Down>
-	<<TkCon_NextImmediate>>	<Control-n>
-	<<TkCon_NextSearch>>	<Control-s>
-	<<TkCon_Transpose>>	<Control-t>
-	<<TkCon_ClearLine>>	<Control-u>
-	<<TkCon_SaveCommand>>	<Control-z>
-    }
-    if {$PRIV(AQUA)} {
-	lappend bindings <<TkCon_Popup>> <Control-Button-1> \
-	    <<TkCon_Popup>> <Button-2>
-    } else {
-	lappend bindings <<TkCon_Popup>> <Button-3>
-    }
-    foreach {ev key} [subst -nocommand -noback $bindings] {
-	event add $ev $key
-	## Make sure the specific key won't be defined
-	bind TkConsole $key {}
-    }
-
-    ## Make the ROOT bindings
-    bind $PRIV(root) <<TkCon_Exit>>	exit
-    bind $PRIV(root) <<TkCon_New>>	{ ::tkcon::New }
-    bind $PRIV(root) <<TkCon_NewTab>>	{ ::tkcon::NewTab }
-    bind $PRIV(root) <<TkCon_NextTab>>	{ ::tkcon::GotoTab 1 ; break }
-    bind $PRIV(root) <<TkCon_PrevTab>>	{ ::tkcon::GotoTab -1 ; break }
-    bind $PRIV(root) <<TkCon_Close>>	{ ::tkcon::Destroy }
-    bind $PRIV(root) <<TkCon_About>>	{ ::tkcon::About }
-    bind $PRIV(root) <<TkCon_Find>>	{ ::tkcon::FindBox $::tkcon::PRIV(console) }
-    bind $PRIV(root) <<TkCon_Slave>>	{
-	::tkcon::Attach {}
-	::tkcon::RePrompt "\n" [::tkcon::CmdGet $::tkcon::PRIV(console)]
-    }
-    bind $PRIV(root) <<TkCon_Master>>	{
-	if {[string compare {} $::tkcon::PRIV(name)]} {
-	    ::tkcon::Attach $::tkcon::PRIV(name)
-	} else {
-	    ::tkcon::Attach Main
-	}
-	::tkcon::RePrompt "\n" [::tkcon::CmdGet $::tkcon::PRIV(console)]
-    }
-    bind $PRIV(root) <<TkCon_Main>>	{
-	::tkcon::Attach Main
-	::tkcon::RePrompt "\n" [::tkcon::CmdGet $::tkcon::PRIV(console)]
-    }
-    bind $PRIV(root) <<TkCon_Popup>> {
-	::tkcon::PopupMenu %X %Y
-    }
-
-    ## Menu items need null TkConsolePost bindings to avoid the TagProc
-    ##
-    foreach ev [bind $PRIV(root)] {
-	bind TkConsolePost $ev {
-	    # empty
-	}
-    }
-
-
-    # ::tkcon::ClipboardKeysyms --
-    # This procedure is invoked to identify the keys that correspond to
-    # the copy, cut, and paste functions for the clipboard.
-    #
-    # Arguments:
-    # copy -	Name of the key (keysym name plus modifiers, if any,
-    #		such as "Meta-y") used for the copy operation.
-    # cut -		Name of the key used for the cut operation.
-    # paste -	Name of the key used for the paste operation.
-
-    proc ::tkcon::ClipboardKeysyms {copy cut paste} {
-	bind TkConsole <$copy>	{::tkcon::Copy %W}
-	bind TkConsole <$cut>	{::tkcon::Cut %W}
-	bind TkConsole <$paste>	{::tkcon::Paste %W}
-    }
-
-    proc ::tkcon::GetSelection {w} {
-	if {
-	    ![catch {selection get -displayof $w -type UTF8_STRING} txt] ||
-	    ![catch {selection get -displayof $w} txt] ||
-	    ![catch {selection get -displayof $w -selection CLIPBOARD} txt]
-	} {
-	    return $txt
-	}
-	return -code error "could not find default selection"
-    }
-
-    proc ::tkcon::Cut w {
-	if {[string match $w [selection own -displayof $w]]} {
-	    clipboard clear -displayof $w
-	    catch {
-		set txt [selection get -displayof $w]
-		clipboard append -displayof $w $txt
-		if {[$w compare sel.first >= limit]} {
-		    $w delete sel.first sel.last
-		}
-	    }
-	}
-    }
-    proc ::tkcon::Copy w {
-	if {[string match $w [selection own -displayof $w]]} {
-	    clipboard clear -displayof $w
-	    catch {
-		set txt [selection get -displayof $w]
-		clipboard append -displayof $w $txt
-	    }
-	}
-    }
-    proc ::tkcon::Paste w {
-	if {![catch {GetSelection $w} txt]} {
-	    catch {
-		if {[$w compare sel.first >= limit]} {
-		    $w delete sel.first sel.last
-		}
-	    }
-	    if {[$w compare insert < limit]} { $w mark set insert end }
-	    $w insert insert $txt
-	    $w see insert
-	    if {[string match *\n* $txt]} { ::tkcon::Eval $w }
-	}
-    }
-
-    ## Redefine for TkConsole what we need
-    ##
-    event delete <<Paste>> <$PRIV(CTRL)V>
-    ::tkcon::ClipboardKeysyms <Copy> <Cut> <Paste>
-
-    bind TkConsole <Insert> {
-	catch { ::tkcon::Insert %W [::tkcon::GetSelection %W] }
-    }
-
-    bind TkConsole <Triple-1> {+
-	catch {
-	    eval %W tag remove sel [%W tag nextrange prompt sel.first sel.last]
-	    eval %W tag remove sel sel.last-1c
-	    %W mark set insert sel.first
-	}
-    }
-
-    ## binding editor needed
-    ## binding <events> for .tkconrc
-
-    bind TkConsole <<TkCon_ExpandFile>> {
-	if {[%W compare insert > limit]} {::tkcon::Expand %W path}
-	break ; # could check "%K" == "Tab"
-    }
-    bind TkConsole <<TkCon_ExpandProc>> {
-	if {[%W compare insert > limit]} {::tkcon::Expand %W proc}
-	break ; # could check "%K" == "Tab"
-    }
-    bind TkConsole <<TkCon_ExpandVar>> {
-	if {[%W compare insert > limit]} {::tkcon::Expand %W var}
-	break ; # could check "%K" == "Tab"
-    }
-    bind TkConsole <<TkCon_Expand>> {
-	if {[%W compare insert > limit]} {::tkcon::Expand %W}
-	break ; # could check "%K" == "Tab"
-    }
-    bind TkConsole <<TkCon_Tab>> {
-	if {[%W compare insert >= limit]} {
-	    ::tkcon::Insert %W \t
-	}
-    }
-    bind TkConsole <<TkCon_Newline>> {
-	if {[%W compare insert >= limit]} {
-	    ::tkcon::Insert %W \n
-	}
-    }
-    bind TkConsole <<TkCon_Eval>> {
-	::tkcon::Eval %W
-    }
-    bind TkConsole <Delete> {
-	if {[llength [%W tag nextrange sel 1.0 end]] \
-		&& [%W compare sel.first >= limit]} {
-	    %W delete sel.first sel.last
-	} elseif {[%W compare insert >= limit]} {
-	    %W delete insert
-	    %W see insert
-	}
-    }
-    bind TkConsole <BackSpace> {
-	if {[llength [%W tag nextrange sel 1.0 end]] \
-		&& [%W compare sel.first >= limit]} {
-	    %W delete sel.first sel.last
-	} elseif {[%W compare insert != 1.0] && [%W compare insert > limit]} {
-	    %W delete insert-1c
-	    %W see insert
-	}
-    }
-    bind TkConsole <Control-h> [bind TkConsole <BackSpace>]
-
-    bind TkConsole <KeyPress> {
-	::tkcon::Insert %W %A
-    }
-
-    bind TkConsole <Control-a> {
-	if {[%W compare {limit linestart} == {insert linestart}]} {
-	    tk::TextSetCursor %W limit
-	} else {
-	    tk::TextSetCursor %W {insert linestart}
-	}
-    }
-    bind TkConsole <Key-Home> [bind TkConsole <Control-a>]
-    bind TkConsole <Control-d> {
-	if {[%W compare insert < limit]} break
-	%W delete insert
-    }
-    bind TkConsole <Control-k> {
-	if {[%W compare insert < limit]} break
-	if {[%W compare insert == {insert lineend}]} {
-	    %W delete insert
-	} else {
-	    %W delete insert {insert lineend}
-	}
-    }
-    bind TkConsole <<TkCon_Clear>> {
-	## Clear console buffer, without losing current command line input
-	set ::tkcon::PRIV(tmp) [::tkcon::CmdGet %W]
-	clear
-	::tkcon::Prompt {} $::tkcon::PRIV(tmp)
-    }
-    bind TkConsole <<TkCon_Previous>> {
-	if {[%W compare {insert linestart} != {limit linestart}]} {
-	    tk::TextSetCursor %W [tk::TextUpDownLine %W -1]
-	} else {
-	    ::tkcon::Event -1
-	}
-    }
-    bind TkConsole <<TkCon_Next>> {
-	if {[%W compare {insert linestart} != {end-1c linestart}]} {
-	    tk::TextSetCursor %W [tk::TextUpDownLine %W 1]
-	} else {
-	    ::tkcon::Event 1
-	}
-    }
-    bind TkConsole <<TkCon_NextImmediate>>  { ::tkcon::Event 1 }
-    bind TkConsole <<TkCon_PreviousImmediate>> { ::tkcon::Event -1 }
-    bind TkConsole <<TkCon_PreviousSearch>> {
-	::tkcon::Event -1 [::tkcon::CmdGet %W]
-    }
-    bind TkConsole <<TkCon_NextSearch>>	    {
-	::tkcon::Event 1 [::tkcon::CmdGet %W]
-    }
-    bind TkConsole <<TkCon_Transpose>>	{
-	## Transpose current and previous chars
-	if {[%W compare insert > "limit+1c"]} { tk::TextTranspose %W }
-    }
-    bind TkConsole <<TkCon_ClearLine>> {
-	## Clear command line (Unix shell staple)
-	%W delete limit end
-    }
-    bind TkConsole <<TkCon_SaveCommand>> {
-	## Save command buffer (swaps with current command)
-	set ::tkcon::PRIV(tmp) $::tkcon::PRIV(cmdsave)
-	set ::tkcon::PRIV(cmdsave) [::tkcon::CmdGet %W]
-	if {[string match {} $::tkcon::PRIV(cmdsave)]} {
-	    set ::tkcon::PRIV(cmdsave) $::tkcon::PRIV(tmp)
-	} else {
-	    %W delete limit end-1c
-	}
-	::tkcon::Insert %W $::tkcon::PRIV(tmp)
-	%W see end
-    }
-    catch {bind TkConsole <Key-Page_Up>   { tk::TextScrollPages %W -1 }}
-    catch {bind TkConsole <Key-Prior>     { tk::TextScrollPages %W -1 }}
-    catch {bind TkConsole <Key-Page_Down> { tk::TextScrollPages %W 1 }}
-    catch {bind TkConsole <Key-Next>      { tk::TextScrollPages %W 1 }}
-    bind TkConsole <Alt-d> {
-	if {[%W compare insert >= limit]} {
-	    %W delete insert {insert wordend}
-	}
-    }
-    bind TkConsole <Alt-BackSpace> {
-	if {[%W compare {insert -1c wordstart} >= limit]} {
-	    %W delete {insert -1c wordstart} insert
-	}
-    }
-    bind TkConsole <Alt-Delete> {
-	if {[%W compare insert >= limit]} {
-	    %W delete insert {insert wordend}
-	}
-    }
-    bind TkConsole <ButtonRelease-2> {
-	if {
-	    (!$tk::Priv(mouseMoved) || $tk_strictMotif) &&
-	    ![catch {::tkcon::GetSelection %W} ::tkcon::PRIV(tmp)]
-	} {
-	    if {[%W compare @%x,%y < limit]} {
-		%W insert end $::tkcon::PRIV(tmp)
-	    } else {
-		%W insert @%x,%y $::tkcon::PRIV(tmp)
-	    }
-	    if {[string match *\n* $::tkcon::PRIV(tmp)]} {::tkcon::Eval %W}
-	}
-    }
-
-    ##
-    ## End TkConsole bindings
-    ##
-
-    ##
-    ## Bindings for doing special things based on certain keys
-    ##
-    bind TkConsolePost <Key-parenright> {
-	if {$::tkcon::OPT(lightbrace) && $::tkcon::OPT(blinktime)>99 && \
-		[string compare \\ [%W get insert-2c]]} {
-	    ::tkcon::MatchPair %W \( \) limit
-	}
-	set ::tkcon::PRIV(StatusCursor) [%W index insert]
-    }
-    bind TkConsolePost <Key-bracketright> {
-	if {$::tkcon::OPT(lightbrace) && $::tkcon::OPT(blinktime)>99 && \
-		[string compare \\ [%W get insert-2c]]} {
-	    ::tkcon::MatchPair %W \[ \] limit
-	}
-	set ::tkcon::PRIV(StatusCursor) [%W index insert]
-    }
-    bind TkConsolePost <Key-braceright> {
-	if {$::tkcon::OPT(lightbrace) && $::tkcon::OPT(blinktime)>99 && \
-		[string compare \\ [%W get insert-2c]]} {
-	    ::tkcon::MatchPair %W \{ \} limit
-	}
-	set ::tkcon::PRIV(StatusCursor) [%W index insert]
-    }
-    bind TkConsolePost <Key-quotedbl> {
-	if {$::tkcon::OPT(lightbrace) && $::tkcon::OPT(blinktime)>99 && \
-		[string compare \\ [%W get insert-2c]]} {
-	    ::tkcon::MatchQuote %W limit
-	}
-	set ::tkcon::PRIV(StatusCursor) [%W index insert]
-    }
-
-    bind TkConsolePost <KeyPress> {
-	if {[winfo exists "%W"]} {
-	    if {$::tkcon::OPT(lightcmd) && [string compare {} %A]} {
-		::tkcon::TagProc %W
-	    }
-	    set ::tkcon::PRIV(StatusCursor) [%W index insert]
-	}
-    }
-
-    bind TkConsolePost <Button-1> {
-	set ::tkcon::PRIV(StatusCursor) [%W index insert]
-    }
-    bind TkConsolePost <B1-Motion> {
-	set ::tkcon::PRIV(StatusCursor) [%W index insert]
-    }
-
-}
-
-##
-# ::tkcon::PopupMenu - what to do when the popup menu is requested
-##
-proc ::tkcon::PopupMenu {X Y} {
-    variable PRIV
-    variable OPT
-
-    set w $PRIV(console)
-    if {[string compare $w [winfo containing $X $Y]]} {
-	tk_popup $PRIV(popup) $X $Y
-	return
-    }
-    set x [expr {$X-[winfo rootx $w]}]
-    set y [expr {$Y-[winfo rooty $w]}]
-    if {[llength [set tags [$w tag names @$x,$y]]]} {
-	if {[lsearch -exact $tags "proc"] >= 0} {
-	    lappend type "proc"
-	    foreach {first last} [$w tag prevrange proc @$x,$y] {
-		set word [$w get $first $last]; break
-	    }
-	}
-	if {[lsearch -exact $tags "var"] >= 0} {
-	    lappend type "var"
-	    foreach {first last} [$w tag prevrange var @$x,$y] {
-		set word [$w get $first $last]; break
-	    }
-	}
-    }
-    if {![info exists type]} {
-	set exp "(^|\[^\\\\\]\[ \t\n\r\])"
-	set exp2 "\[\[\\\\\\?\\*\]"
-	set i [$w search -backwards -regexp $exp @$x,$y "@$x,$y linestart"]
-	if {[string compare {} $i]} {
-	    if {![string match *.0 $i]} {append i +2c}
-	    if {[string compare {} \
-		    [set j [$w search -regexp $exp $i "$i lineend"]]]} {
-		append j +1c
-	    } else {
-		set j "$i lineend"
-	    }
-	    regsub -all $exp2 [$w get $i $j] {\\\0} word
-	    set word [string trim $word {\"$[]{}',?#*}]
-	    if {[llength [EvalAttached [list info commands $word]]]} {
-		lappend type "proc"
-	    }
-	    if {[llength [EvalAttached [list info vars $word]]]} {
-		lappend type "var"
-	    }
-	    if {[EvalAttached [list file isfile $word]]} {
-		lappend type "file"
-	    }
-	}
-    }
-    if {![info exists type] || ![info exists word]} {
-	tk_popup $PRIV(popup) $X $Y
-	return
-    }
-    $PRIV(context) delete 0 end
-    $PRIV(context) add command -label "$word" -state disabled
-    $PRIV(context) add separator
-    set app [Attach]
-    if {[lsearch $type proc] != -1} {
-	$PRIV(context) add command -label "View Procedure" \
-		-command [list $OPT(edit) -attach $app -type proc -- $word]
-    }
-    if {[lsearch $type var] != -1} {
-	$PRIV(context) add command -label "View Variable" \
-		-command [list $OPT(edit) -attach $app -type var -- $word]
-    }
-    if {[lsearch $type file] != -1} {
-	$PRIV(context) add command -label "View File" \
-		-command [list $OPT(edit) -attach $app -type file -- $word]
-    }
-    tk_popup $PRIV(context) $X $Y
-}
-
-## ::tkcon::TagProc - tags a procedure in the console if it's recognized
-## This procedure is not perfect.  However, making it perfect wastes
-## too much CPU time...
-##
-proc ::tkcon::TagProc w {
-    set exp "\[^\\\\\]\[\[ \t\n\r\;{}\"\$\]"
-    set i [$w search -backwards -regexp $exp insert-1c limit-1c]
-    if {[string compare {} $i]} {append i +2c} else {set i limit}
-    regsub -all "\[\[\\\\\\?\\*\]" [$w get $i "insert-1c wordend"] {\\\0} c
-    if {[llength [EvalAttached [list info commands $c]]]} {
-	$w tag add proc $i "insert-1c wordend"
-    } else {
-	$w tag remove proc $i "insert-1c wordend"
-    }
-    if {[llength [EvalAttached [list info vars $c]]]} {
-	$w tag add var $i "insert-1c wordend"
-    } else {
-	$w tag remove var $i "insert-1c wordend"
-    }
-}
-
-## ::tkcon::MatchPair - blinks a matching pair of characters
-## c2 is assumed to be at the text index 'insert'.
-## This proc is really loopy and took me an hour to figure out given
-## all possible combinations with escaping except for escaped \'s.
-## It doesn't take into account possible commenting... Oh well.  If
-## anyone has something better, I'd like to see/use it.  This is really
-## only efficient for small contexts.
-# ARGS:	w	- console text widget
-# 	c1	- first char of pair
-# 	c2	- second char of pair
-# Calls:	::tkcon::Blink
-## 
-proc ::tkcon::MatchPair {w c1 c2 {lim 1.0}} {
-    if {[string compare {} [set ix [$w search -back $c1 insert $lim]]]} {
-	while {
-	    [string match {\\} [$w get $ix-1c]] &&
-	    [string compare {} [set ix [$w search -back $c1 $ix-1c $lim]]]
-	} {}
-	set i1 insert-1c
-	while {[string compare {} $ix]} {
-	    set i0 $ix
-	    set j 0
-	    while {[string compare {} [set i0 [$w search $c2 $i0 $i1]]]} {
-		append i0 +1c
-		if {[string match {\\} [$w get $i0-2c]]} continue
-		incr j
-	    }
-	    if {!$j} break
-	    set i1 $ix
-	    while {$j && [string compare {} \
-		    [set ix [$w search -back $c1 $ix $lim]]]} {
-		if {[string match {\\} [$w get $ix-1c]]} continue
-		incr j -1
-	    }
-	}
-	if {[string match {} $ix]} { set ix [$w index $lim] }
-    } else { set ix [$w index $lim] }
-    if {$::tkcon::OPT(blinkrange)} {
-	Blink $w $ix [$w index insert]
-    } else {
-	Blink $w $ix $ix+1c [$w index insert-1c] [$w index insert]
-    }
-}
-
-## ::tkcon::MatchQuote - blinks between matching quotes.
-## Blinks just the quote if it's unmatched, otherwise blinks quoted string
-## The quote to match is assumed to be at the text index 'insert'.
-# ARGS:	w	- console text widget
-# Calls:	::tkcon::Blink
-## 
-proc ::tkcon::MatchQuote {w {lim 1.0}} {
-    set i insert-1c
-    set j 0
-    while {[string compare [set i [$w search -back \" $i $lim]] {}]} {
-	if {[string match {\\} [$w get $i-1c]]} continue
-	if {!$j} {set i0 $i}
-	incr j
-    }
-    if {$j&1} {
-	if {$::tkcon::OPT(blinkrange)} {
-	    Blink $w $i0 [$w index insert]
-	} else {
-	    Blink $w $i0 $i0+1c [$w index insert-1c] [$w index insert]
-	}
-    } else {
-	Blink $w [$w index insert-1c] [$w index insert]
-    }
-}
-
-## ::tkcon::Blink - blinks between n index pairs for a specified duration.
-# ARGS:	w	- console text widget
-# 	i1	- start index to blink region
-# 	i2	- end index of blink region
-# 	dur	- duration in usecs to blink for
-# Outputs:	blinks selected characters in $w
-## 
-proc ::tkcon::Blink {w args} {
-    eval [list $w tag add blink] $args
-    after $::tkcon::OPT(blinktime) [list $w] tag remove blink $args
-    return
-}
-
-
-## ::tkcon::Insert
-## Insert a string into a text console at the point of the insertion cursor.
-## If there is a selection in the text, and it covers the point of the
-## insertion cursor, then delete the selection before inserting.
-# ARGS:	w	- text window in which to insert the string
-# 	s	- string to insert (usually just a single char)
-# Outputs:	$s to text widget
-## 
-proc ::tkcon::Insert {w s} {
-    if {[string match {} $s] || [string match disabled [$w cget -state]]} {
-	return
-    }
-    variable EXP
-    if {[info exists EXP(spawn_id)]} {
-	exp_send -i $EXP(spawn_id) -- $s
-	return
-    }
-    if {[$w comp insert < limit]} {
-	$w mark set insert end
-    }
-    if {[llength [$w tag ranges sel]] && \
-	    [$w comp sel.first <= insert] && [$w comp sel.last >= insert]} {
-	$w delete sel.first sel.last
-    }
-    $w insert insert $s
-    $w see insert
-}
-
-## ::tkcon::Expand - 
-# ARGS:	w	- text widget in which to expand str
-# 	type	- type of expansion (path / proc / variable)
-# Calls:	::tkcon::Expand(Pathname|Procname|Variable)
-# Outputs:	The string to match is expanded to the longest possible match.
-#		If ::tkcon::OPT(showmultiple) is non-zero and the user longest
-#		match equaled the string to expand, then all possible matches
-#		are output to stdout.  Triggers bell if no matches are found.
-# Returns:	number of matches found
-## 
-proc ::tkcon::Expand {w {type ""}} {
-    set exp "\[^\\\\\]\[\[ \t\n\r\\\{\"$\]"
-    set tmp [$w search -backwards -regexp $exp insert-1c limit-1c]
-    if {[string compare {} $tmp]} {append tmp +2c} else {set tmp limit}
-    set str [$w get $tmp insert]
-    # Expand procs can return "break" to indicate not to try further
-    # matches, otherwise "continue" says "I got nothing, continue on"
-    # We can ignore return codes from the specific expand type checks
-    switch -glob $type {
-	pa* { set code [catch {ExpandPathname $str} res] }
-	pr* { set code [catch {ExpandProcname $str} res] }
-	v*  { set code [catch {ExpandVariable $str} res] }
-	default {
-	    # XXX could be extended to allow the results of all matches
-	    # XXX to be amalgamted ... may be confusing to user
-	    set res {}
-	    foreach t $::tkcon::OPT(expandorder) {
-		set code [catch {Expand$t $str} res]
-		if {$code == 0 || $code == 3} { break }
-		set res {}
-	    }
-	}
-    }
-    set len [llength $res]
-    if {$len} {
-	$w delete $tmp insert
-	$w insert $tmp [lindex $res 0]
-	if {$len > 1} {
-	    if {$::tkcon::OPT(showmultiple) && \
-		    ![string compare [lindex $res 0] $str]} {
-		puts stdout [lsort [lreplace $res 0 0]]
-	    }
-	}
-    } else { bell }
-    return [incr len -1]
-}
-
-## ::tkcon::ExpandPathname - expand a file pathname based on $str
-## This is based on UNIX file name conventions
-# ARGS:	str	- partial file pathname to expand
-# Calls:	::tkcon::ExpandBestMatch
-# Returns:	list containing longest unique match followed by all the
-#		possible further matches
-## 
-proc ::tkcon::ExpandPathname str {
-
-    # require at least a single character, otherwise continue
-    if {$str eq ""} {return -code continue}
-
-    set pwd [EvalAttached pwd]
-    # Cause a string like {C:/Program\ Files/} to become "C:/Program Files/"
-    regsub -all {\\([][ ])} $str {\1} str
-    if {[catch {EvalAttached [list cd [file dirname $str]]} err]} {
-	return -code error $err
-    }
-    set dir [file tail $str]
-    ## Check to see if it was known to be a directory and keep the trailing
-    ## slash if so (file tail cuts it off)
-    if {[string match */ $str]} { append dir / }
-    # Create a safely glob-able name
-    regsub -all {([][])} $dir {\\\1} safedir
-    if {[catch {lsort [EvalAttached [list glob $safedir*]]} m]} {
-	set match {}
-    } else {
-	if {[llength $m] > 1} {
-	    global tcl_platform
-	    if {[string match windows $tcl_platform(platform)]} {
-		## Windows is screwy because it's case insensitive
-		set tmp [ExpandBestMatch [string tolower $m] \
-			[string tolower $dir]]
-		## Don't change case if we haven't changed the word
-		if {[string length $dir]==[string length $tmp]} {
-		    set tmp $dir
-		}
-	    } else {
-		set tmp [ExpandBestMatch $m $dir]
-	    }
-	    if {[string match */* $str]} {
-		set tmp [string trimright [file dirname $str] /]/$tmp
-	    }
-	    regsub -all {([^\\])([][ ])} $tmp {\1\\\2} tmp
-	    set match [linsert $m 0 $tmp]
-	} else {
-	    ## This may look goofy, but it handles spaces in path names
-	    eval append match $m
-	    if {[file isdirectory $match]} {append match /}
-	    if {[string match */* $str]} {
-		set match [string trimright [file dirname $str] /]/$match
-	    }
-	    regsub -all {([^\\])([][ ])} $match {\1\\\2} match
-	    ## Why is this one needed and the ones below aren't!!
-	    set match [list $match]
-	}
-    }
-    EvalAttached [list cd $pwd]
-    return -code [expr {$match eq "" ? "continue" : "break"}] $match
-}
-
-## ::tkcon::ExpandProcname - expand a tcl proc name based on $str
-# ARGS:	str	- partial proc name to expand
-# Calls:	::tkcon::ExpandBestMatch
-# Returns:	list containing longest unique match followed by all the
-#		possible further matches
-##
-proc ::tkcon::ExpandProcname str {
-
-    # require at least a single character, otherwise continue
-    if {$str eq ""} {return -code continue}
-
-    set match [EvalAttached [list info commands $str*]]
-    if {[llength $match] == 0} {
-	set ns [EvalAttached \
-		"namespace children \[namespace current\] [list $str*]"]
-	if {[llength $ns]==1} {
-	    set match [EvalAttached [list info commands ${ns}::*]]
-	} else {
-	    set match $ns
-	}
-    }
-    if {[llength $match] > 1} {
-	regsub -all {([^\\]) } [ExpandBestMatch $match $str] {\1\\ } str
-	set match [linsert $match 0 $str]
-    } else {
-	regsub -all {([^\\]) } $match {\1\\ } match
-    }
-    return -code [expr {$match eq "" ? "continue" : "break"}] $match
-}
-
-## ::tkcon::ExpandMethodname - expand an NSF/XOTcl method name based on $str
-# ARGS:	str	- partial proc name to expand
-# Calls:	::tkcon::ExpandBestMatch
-# Returns:	list containing longest unique match followed by all the
-#		possible further matches
-##
-proc ::tkcon::ExpandMethodname str {
-
-    # In a first step, obtain the typed-in cmd from the console
-    set typedCmd [::tkcon::CmdGet $::tkcon::PRIV(console)]
-    set obj [lindex $typedCmd 0]
-    if {$obj eq $typedCmd} {
-	# just a single word, can't be a method expansion
-        return -code continue
-    }
-    # Get the full string after the object
-    set sub [string trimleft [string range $typedCmd [string length [list $obj]] end]]
-    if {[EvalAttached [list info exists ::nsf::version]]} {
-	# Next Scripting Framework is loaded
-	if {![EvalAttached [list ::nsf::object::exists $obj]]} {return -code continue}
-	if {[string match ::* $sub]} {
-	    # NSF allows dispatch of unregistered methods via absolute
-	    # paths
-	    set cmd "concat \[info commands $sub*\] \[namespace children \[namespace qualifiers $sub\] $sub*\]"
-	} else {
-	    set cmd [list $obj ::nsf::methods::object::info::lookupmethods -callprotection public -path -- $sub*]
-	}
-    } elseif {[EvalAttached [list info exists ::xotcl::version]]} {
-	# XOTcl < 2.* is loaded
-	if {![EvalAttached [list ::xotcl::Object isobject $obj]]} {return -code continue}
-	set cmd [list $obj info methods $sub*]
-    } else {
-	# No NSF/XOTcl loaded
-        return -code continue
-    }
-
-    set match [EvalAttached $cmd]
-    if {[llength $match] > 1} {
-	regsub -all {([^\\]) } [ExpandBestMatch $match $str] {\1\\ } bestMatch
-	if {$str eq "" && [string match "* " $bestMatch]} {
-	    set match [linsert $match 0 ""]
-	} else {
-	    regsub -all {\\ } $bestMatch { } bestMatch
-	    set match [linsert $match 0 [lindex $bestMatch end]]
-	}
-    } else {
-	set match [lindex [lindex $match 0] end]
-    }
-    return -code break $match
-}
-
-## ::tkcon::ExpandVariable - expand a tcl variable name based on $str
-# ARGS:	str	- partial tcl var name to expand
-# Calls:	::tkcon::ExpandBestMatch
-# Returns:	list containing longest unique match followed by all the
-#		possible further matches
-## 
-proc ::tkcon::ExpandVariable str {
-
-    # require at least a single character, otherwise continue
-    if {$str eq ""} {return -code continue}
-
-    if {[regexp {([^\(]*)\((.*)} $str junk ary str]} {
-	## Looks like they're trying to expand an array.
-	set match [EvalAttached [list array names $ary $str*]]
-	if {[llength $match] > 1} {
-	    set vars $ary\([ExpandBestMatch $match $str]
-	    foreach var $match {lappend vars $ary\($var\)}
-	    return $vars
-	} elseif {[llength $match] == 1} {
-	    set match $ary\($match\)
-	}
-	## Space transformation avoided for array names.
-    } else {
-	set match [EvalAttached [list info vars $str*]]
-	if {[llength $match] > 1} {
-	    regsub -all {([^\\]) } [ExpandBestMatch $match $str] {\1\\ } str
-	    set match [linsert $match 0 $str]
-	} else {
-	    regsub -all {([^\\]) } $match {\1\\ } match
-	}
-    }
-    return -code [expr {$match eq "" ? "continue" : "break"}] $match
-}
-
-## ::tkcon::ExpandBestMatch2 - finds the best unique match in a list of names
-## Improves upon the speed of the below proc only when $l is small
-## or $e is {}.  $e is extra for compatibility with proc below.
-# ARGS:	l	- list to find best unique match in
-# Returns:	longest unique match in the list
-## 
-proc ::tkcon::ExpandBestMatch2 {l {e {}}} {
-    set s [lindex $l 0]
-    if {[llength $l]>1} {
-	set i [expr {[string length $s]-1}]
-	foreach l $l {
-	    while {$i>=0 && [string first $s $l]} {
-		set s [string range $s 0 [incr i -1]]
-	    }
-	}
-    }
-    return $s
-}
-
-## ::tkcon::ExpandBestMatch - finds the best unique match in a list of names
-## The extra $e in this argument allows us to limit the innermost loop a
-## little further.  This improves speed as $l becomes large or $e becomes long.
-# ARGS:	l	- list to find best unique match in
-# 	e	- currently best known unique match
-# Returns:	longest unique match in the list
-## 
-proc ::tkcon::ExpandBestMatch {l {e {}}} {
-    set ec [lindex $l 0]
-    if {[llength $l]>1} {
-	set e  [string length $e]; incr e -1
-	set ei [string length $ec]; incr ei -1
-	foreach l $l {
-	    while {$ei>=$e && [string first $ec $l]} {
-		set ec [string range $ec 0 [incr ei -1]]
-	    }
-	}
-    }
-    return $ec
-}
-
-# Here is a group of functions that is only used when Tkcon is
-# executed in a safe interpreter. It provides safe versions of
-# missing functions. For example:
-#
-# - "tk appname" returns "tkcon.tcl" but cannot be set
-# - "toplevel" is equivalent to 'frame', only it is automatically
-#   packed.
-# - The 'source', 'load', 'open', 'file' and 'exit' functions are
-#   mapped to corresponding functions in the parent interpreter.
-#
-# Further on, Tk cannot be really loaded. Still the safe 'load'
-# provedes a speciall case. The Tk can be divided into 4 groups,
-# that each has a safe handling procedure.
-#
-# - "::tkcon::SafeItem" handles commands like 'button', 'canvas' ......
-#   Each of these functions has the window name as first argument.
-# - "::tkcon::SafeManage" handles commands like 'pack', 'place', 'grid',
-#   'winfo', which can have multiple window names as arguments.
-# - "::tkcon::SafeWindow" handles all windows, such as '.'. For every
-#   window created, a new alias is formed which also is handled by
-#   this function.
-# - Other (e.g. bind, bindtag, image), which need their own function.
-#
-## These functions courtesy Jan Nijtmans
-##
-if {![llength [info commands tk]]} {
-    proc tk {option args} {
-	if {![string match app* $option]} {
-	    error "wrong option \"$option\": should be appname"
-	}
-	return "tkcon.tcl"
-    }
-}
-
-if {![llength [info command toplevel]]} {
-    proc toplevel {name args} {
-	eval [linsert $args 0 frame $name]
-	grid $name -sticky news
-    }
-}
-
-proc ::tkcon::SafeSource {i f} {
-    set fd [open $f r]
-    set r [read $fd]
-    close $fd
-    if {[catch {interp eval $i $r} msg]} {
-	error $msg
-    }
-}
-
-proc ::tkcon::SafeOpen {i f {m r}} {
-    set fd [open $f $m]
-    interp transfer {} $fd $i
-    return $fd
-}
-
-proc ::tkcon::SafeLoad {i f p} {
-    global tk_version tk_patchLevel tk_library auto_path
-    if {[string compare $p Tk]} {
-	load $f $p $i
-    } else {
-	foreach command {button canvas checkbutton entry frame label
-	listbox message radiobutton scale scrollbar spinbox text toplevel} {
-	    $i alias $command ::tkcon::SafeItem $i $command
-	}
-	$i alias image ::tkcon::SafeImage $i
-	foreach command {pack place grid destroy winfo} {
-	    $i alias $command ::tkcon::SafeManage $i $command
-	}
-	if {[llength [info command event]]} {
-	    $i alias event ::tkcon::SafeManage $i $command
-	}
-	frame .${i}_dot -width 300 -height 300 -relief raised
-	pack .${i}_dot -side left
-	$i alias tk tk
-	$i alias bind ::tkcon::SafeBind $i
-	$i alias bindtags ::tkcon::SafeBindtags $i
-	$i alias . ::tkcon::SafeWindow $i {}
-	foreach var {tk_version tk_patchLevel tk_library auto_path} {
-	    $i eval [list set $var [set $var]]
-	}
-	$i eval {
-	    package provide Tk $tk_version
-	    if {[lsearch -exact $auto_path $tk_library] < 0} {
-		lappend auto_path $tk_library
-	    }
-	}
-	return ""
-    }
-}
-
-proc ::tkcon::SafeSubst {i a} {
-    set arg1 ""
-    foreach {arg value} $a {
-	if {![string compare $arg -textvariable] ||
-	![string compare $arg -variable]} {
-	    set newvalue "[list $i] $value"
-	    global $newvalue
-	    if {[interp eval $i info exists $value]} {
-		set $newvalue [interp eval $i set $value]
-	    } else {
-		catch {unset $newvalue}
-	    }
-	    $i eval trace variable $value rwu \{[list tkcon set $newvalue $i]\}
-	    set value $newvalue
-	} elseif {![string compare $arg -command]} {
-	    set value [list $i eval $value]
-	}
-	lappend arg1 $arg $value
-    }
-    return $arg1
-}
-
-proc ::tkcon::SafeItem {i command w args} {
-    set args [::tkcon::SafeSubst $i $args]
-    set code [catch "$command [list .${i}_dot$w] $args" msg]
-    $i alias $w ::tkcon::SafeWindow $i $w
-    regsub -all .${i}_dot $msg {} msg
-    return -code $code $msg
-}
-
-proc ::tkcon::SafeManage {i command args} {
-    set args1 ""
-    foreach arg $args {
-	if {[string match . $arg]} {
-	    set arg .${i}_dot
-	} elseif {[string match .* $arg]} {
-	    set arg ".${i}_dot$arg"
-	}
-	lappend args1 $arg
-    }
-    set code [catch "$command $args1" msg]
-    regsub -all .${i}_dot $msg {} msg
-    return -code $code $msg
-}
-
-#
-# FIX: this function doesn't work yet if the binding starts with '+'.
-#
-proc ::tkcon::SafeBind {i w args} {
-    if {[string match . $w]} {
-	set w .${i}_dot
-    } elseif {[string match .* $w]} {
-	set w ".${i}_dot$w"
-    }
-    if {[llength $args] > 1} {
-	set args [list [lindex $args 0] \
-		"[list $i] eval [list [lindex $args 1]]"]
-    }
-    set code [catch "bind $w $args" msg]
-    if {[llength $args] <2 && $code == 0} {
-	set msg [lindex $msg 3]
-    }
-    return -code $code $msg
-}
-
-proc ::tkcon::SafeImage {i option args} {
-    set code [catch "image $option $args" msg]
-    if {[string match cr* $option]} {
-	$i alias $msg $msg
-    }
-    return -code $code $msg
-}
-
-proc ::tkcon::SafeBindtags {i w {tags {}}} {
-    if {[string match . $w]} {
-	set w .${i}_dot
-    } elseif {[string match .* $w]} {
-	set w ".${i}_dot$w"
-    }
-    set newtags {}
-    foreach tag $tags {
-	if {[string match . $tag]} {
-	    lappend newtags .${i}_dot
-	} elseif {[string match .* $tag]} {
-	    lappend newtags ".${i}_dot$tag"
-	} else {
-	    lappend newtags $tag
-	}
-    }
-    if {[string match $tags {}]} {
-	set code [catch {bindtags $w} msg]
-	regsub -all \\.${i}_dot $msg {} msg
-    } else {
-	set code [catch {bindtags $w $newtags} msg]
-    }
-    return -code $code $msg
-}
-
-proc ::tkcon::SafeWindow {i w option args} {
-    if {[string match conf* $option] && [llength $args] > 1} {
-	set args [::tkcon::SafeSubst $i $args]
-    } elseif {[string match itemco* $option] && [llength $args] > 2} {
-	set args "[list [lindex $args 0]] [::tkcon::SafeSubst $i [lrange $args 1 end]]"
-    } elseif {[string match cr* $option]} {
-	if {[llength $args]%2} {
-	    set args "[list [lindex $args 0]] [::tkcon::SafeSubst $i [lrange $args 1 end]]"
-	} else {
-	    set args [::tkcon::SafeSubst $i $args]
-	}
-    } elseif {[string match bi* $option] && [llength $args] > 2} {
-	set args [list [lindex $args 0] [lindex $args 1] "[list $i] eval [list [lindex $args 2]]"]
-    }
-    set code [catch ".${i}_dot$w $option $args" msg]
-    if {$code} {
-	regsub -all .${i}_dot $msg {} msg
-    } elseif {[string match conf* $option] || [string match itemco* $option]} {
-	if {[llength $args] == 1} {
-	    switch -- $args {
-		-textvariable - -variable {
-		    set msg "[lrange $msg 0 3] [list [lrange [lindex $msg 4] 1 end]]"
-		}
-		-command - updatecommand {
-		    set msg "[lrange $msg 0 3] [list [lindex [lindex $msg 4] 2]]"
-		}
-	    }
-	} elseif {[llength $args] == 0} {
-	    set args1 ""
-	    foreach el $msg {
-		switch -- [lindex $el 0] {
-		    -textvariable - -variable {
-			set el "[lrange $el 0 3] [list [lrange [lindex $el 4] 1 end]]"
-		    }
-		    -command - updatecommand {
-			set el "[lrange $el 0 3] [list [lindex [lindex $el 4] 2]]"
-		    }
-		}
-		lappend args1 $el
-	    }
-	    set msg $args1
-	}
-    } elseif {[string match cg* $option] || [string match itemcg* $option]} {
-	switch -- $args {
-	    -textvariable - -variable {
-		set msg [lrange $msg 1 end]
-	    }
-	    -command - updatecommand {
-		set msg [lindex $msg 2]
-	    }
-	}
-    } elseif {[string match bi* $option]} {
-	if {[llength $args] == 2 && $code == 0} {
-	    set msg [lindex $msg 2]
-	}
-    }
-    return -code $code $msg
-}
-
-proc ::tkcon::RetrieveFilter {host} {
-    variable PRIV
-    set result {}
-    if {[info exists PRIV(proxy)]} {
-	if {![regexp "^(localhost|127\.0\.0\.1)" $host]} {
-	    set result [lrange [split [lindex $PRIV(proxy) 0] :] 0 1]
-	}
-    }
-    return $result
-}
-
-proc ::tkcon::RetrieveAuthentication {} {
-    package require Tk
-    if {[catch {package require base64}]} {
-        if {[catch {package require Trf}]} {
-            error "base64 support not available"
-        } else {
-            set local64 "base64 -mode enc"
-        }
-    } else {
-        set local64 "base64::encode"
-    }
-
-    set dlg [toplevel .auth]
-    catch {wm attributes $dlg -type dialog}
-    wm title $dlg "Authenticating Proxy Configuration"
-    set f1 [frame ${dlg}.f1]
-    set f2 [frame ${dlg}.f2]
-    button $f2.b -text "OK" -command "destroy $dlg"
-    pack $f2.b -side right
-    label $f1.l2 -text "Username"
-    label $f1.l3 -text "Password"
-    entry $f1.e2 -textvariable "[namespace current]::conf_userid"
-    entry $f1.e3 -textvariable "[namespace current]::conf_passwd" -show *
-    grid $f1.l2 -column 0 -row 0 -sticky e
-    grid $f1.l3 -column 0 -row 1 -sticky e
-    grid $f1.e2 -column 1 -row 0 -sticky news
-    grid $f1.e3 -column 1 -row 1 -sticky news
-    grid columnconfigure $f1 1 -weight 1
-    pack $f2 -side bottom -fill x
-    pack $f1 -side top -anchor n -fill both -expand 1
-    tkwait window $dlg
-    set result {}
-    if {[info exists [namespace current]::conf_userid]} {
-	set data [subst $[namespace current]::conf_userid]
-	append data : [subst $[namespace current]::conf_passwd]
-	set data [$local64 $data]
-	set result [list "Proxy-Authorization" "Basic $data"]
-    }
-    unset [namespace current]::conf_passwd
-    return $result
-}
-
-proc ::tkcon::Retrieve {} {
-    # A little bit'o'magic to grab the latest tkcon from CVS and
-    # save it locally.  It doesn't support proxies though...
-    variable PRIV
-
-    set defExt ""
-    if {[string match "windows" $::tcl_platform(platform)]} {
-	set defExt ".tcl"
-    }
-    set file [tk_getSaveFile -title "Save Latest tkcon to ..." \
-	    -defaultextension $defExt \
-	    -initialdir  [file dirname $PRIV(SCRIPT)] \
-	    -initialfile [file tail $PRIV(SCRIPT)] \
-	    -parent $PRIV(root) \
-	    -filetypes {{"Tcl Files" {.tcl .tk}} {"All Files" {*.*}}}]
-    if {[string compare $file ""]} {
-	package require http 2
-	set headers {}
-	if {[info exists PRIV(proxy)]} {
-	    ::http::config -proxyfilter [namespace origin RetrieveFilter]
-	    if {[lindex $PRIV(proxy) 1] != {}} {
-		set headers [RetrieveAuthentication]
-	    }
-	}
-	set token [::http::geturl $PRIV(HEADURL) \
-		-headers $headers -timeout 30000]
-	::http::wait $token
-	set code [catch {
-	    set ncode [::http::ncode $token]
-	    set i 0
-	    while {(($ncode >= 301) && ($ncode <= 307)) && [incr i] < 5} {
-		# redirect to meta Location
-		array set meta [::http::meta $token]
-		::http::cleanup $token
-		if {![info exists meta(Location)]} { break }
-		set url $meta(Location)
-		if {![string match "http*" $url]
-		    && [regexp {https?://[^/]+} $PRIV(HEADURL) srvr]} {
-		    # attach the same http server info
-		    set url $srvr/$url
-		}
-		set token [::http::geturl $url -headers $headers -timeout 30000]
-		::http::wait $token
-		set ncode [::http::ncode $token]
-	    }
-	    if {$ncode != 200} {
-		return "expected http return code 200, received $ncode"
-	    }
-	    set status [::http::status $token]
-	    if {$status == "ok"} {
-		set data [::http::data $token]
-		regexp {Id: tkcon.tcl,v (\d+\.\d+)} $data -> rcsVersion
-		regexp {VERSION\s+"(\d+\.\d+[^\"]*)"} $data -> tkconVersion
-		if {(![info exists rcsVersion] || ![info exists tkconVersion])
-		    && [tk_messageBox -type yesno -icon warning \
-			    -parent $PRIV(root) \
-			    -title "Invalid tkcon source code" \
-			    -message "Source code retrieved does not appear\
-			to be correct.\nContinue with save to \"$file\"?"] \
-			== "no"} {
-		    return "invalid tkcon source code retrieved"
-		}
-		set fid [open $file w]
-		# We don't want newline mode to change
-		fconfigure $fid -translation binary
-		puts -nonewline $fid $data
-		close $fid
-	    } else {
-		return "expected http status ok, received $status"
-	    }
-	} err]
-	::http::cleanup $token
-	if {$code == 2} {
-	    tk_messageBox -type ok -icon info -parent $PRIV(root) \
-		    -title "Failed to retrieve source" \
-		    -message "Failed to retrieve latest tkcon source:\n$err\n$PRIV(HEADURL)"
-	} elseif {$code} {
-	    return -code error $err
-	} else {
-	    if {![info exists rcsVersion]}   { set rcsVersion   "UNKNOWN" }
-	    if {![info exists tkconVersion]} { set tkconVersion "UNKNOWN" }
-	    if {[tk_messageBox -type yesno -icon info -parent $PRIV(root) \
-		    -title "Retrieved tkcon v$tkconVersion, RCS $rcsVersion" \
-		    -message "Successfully retrieved tkcon v$tkconVersion,\
-		    RCS $rcsVersion.  Shall I resource (not restart) this\
-		    version now?"] == "yes"} {
-		set PRIV(SCRIPT) $file
-		set PRIV(version) $tkconVersion.$rcsVersion
-		::tkcon::Resource
-	    }
-	}
-    }
-}
-
-## 'send' package that handles multiple communication variants
-##
-# Try using Tk send first, then look for a winsend interp,
-# then try dde and finally have a go at comm
-namespace eval ::send {}
-proc ::send::send {args} {
-    set winfoInterpCmd [list ::winfo interps]
-    array set opts [list displayof {} async 0]
-    while {[string match -* [lindex $args 0]]} {
-	switch -exact -- [lindex $args 0] {
-	    -displayof {
-		set opts(displayof) [Pop args 1]
-		lappend winfoInterpCmd -displayof $opts(displayof)
-	    }
-	    -async     { set opts(async) 1 }
-	    -- { Pop args ; break }
-	    default {
-		return -code error "bad option \"[lindex $args 0]\":\
-		    should be -displayof, -async or --"
-	    }
-	}
-	Pop args
-    }
-    set app [Pop args]
-
-    if {[llength [info commands ::winfo]]
-	&& [lsearch -exact [eval $winfoInterpCmd] $app] > -1} {
-	set cmd [list ::send]
-	if {$opts(async) == 1} {lappend cmd -async}
-	if {$opts(displayof) != {}} {lappend cmd -displayof $opts(displayof)}
-	lappend cmd $app
-	eval $cmd $args
-    } elseif {[llength [info commands ::winsend]]
-	      && [lsearch -exact [::winsend interps] $app] > -1} {
-	eval [list ::winsend send $app] $args
-    } elseif {[llength [info commands ::dde]]
-	      && [lsearch -exact [dde services TclEval {}] \
-		      [list TclEval $app]] > -1} {
-	eval [list ::dde eval $app] $args
-    } elseif {[package provide comm] != {}
-	      && [regexp {^[0-9]+$} [lindex $app 0]]} {
-	#if {$opts(displayof) != {} && [llength $app] == 1} {
-	#    lappend app $opts(displayof)
-	#}
-	eval [list ::comm::comm send $app] $args
-    } else {
-	return -code error "bad interp: \"$app\" could not be found"
-    }
-}
-
-proc ::send::interps {args} {
-    set winfoInterpCmd [list ::winfo interps]
-    array set opts [list displayof {}]
-    while {[string match -* [lindex $args 0]]} {
-	switch -exact -- [lindex $args 0] {
-	    -displayof {
-		set opts(displayof) [Pop args 1]
-		lappend winfoInterpCmd -displayof $opts(displayof)
-	    }
-	    --	       { Pop args ; break }
-	    default {
-		return -code error "bad option \"[lindex $args 0]\":\
-		    should be -displayof or --"
-	    }
-	}
-	Pop args
-    }
-
-    set interps {}
-    if {[llength [info commands ::winfo]]} {
-	set interps [concat $interps [eval $winfoInterpCmd]]
-    }
-    if {[llength [info commands ::winsend]]} {
-	set interps [concat $interps [::winsend interps]]
-    }
-    if {[llength [info commands ::dde]]} {
-	set servers {}
-	foreach server [::dde services TclEval {}] {
-	    lappend servers [lindex $server 1]
-	}
-	set interps [concat $interps $servers]
-    }
-    if {[package provide comm] != {}} {
-	set interps [concat $interps [::comm::comm interps]]
-    }
-    return $interps
-}
-
-proc ::send::appname {args} {
-    set appname {}
-    if {[llength [info commands ::tk]]} {
-	set appname [eval ::tk appname $args]
-    }
-    if {[llength [info commands ::winsend]]} {
-	set appname [concat $appname [eval ::winsend appname $args]]
-    }
-    if {[llength [info commands ::dde]]} {
-	set appname [concat $appname [eval ::dde servername $args]]
-    }
-    # comm? can set port num and local/global interface.
-    return [lsort -unique $appname]
-}
-
-proc ::send::Pop {varname {nth 0}} {
-    upvar $varname args
-    set r [lindex $args $nth]
-    set args [lreplace $args $nth $nth]
-    return $r
-}
-##
-## end 'send' package
-
-## special case 'tk appname' in Tcl plugin
-if {$::tkcon::PRIV(WWW)} {
-    rename tk ::tkcon::_tk
-    proc tk {cmd args} {
-	if {$cmd == "appname"} {
-	    return "tkcon/WWW"
-	} else {
-	    return [uplevel 1 ::tkcon::_tk [list $cmd] $args]
-	}
-    }
-}
-
-## ::tkcon::Resource - re'source's this script into current console
-## Meant primarily for my development of this program.  It follows
-## links until the ultimate source is found.
-##
-proc ::tkcon::Resource {} {
-    uplevel \#0 {
-	if {[catch {source -rsrc tkcon}]} { source $::tkcon::PRIV(SCRIPT) }
-    }
-    Bindings
-    InitSlave $::tkcon::OPT(exec)
-}
-
-## Initialize only if we haven't yet, and do other stuff that prepares to
-## run.  It only actually inits (and runs) tkcon if it is the main script.
-##
-proc ::tkcon::AtSource {} {
-    variable PRIV
-
-    # the info script assumes we always call this while being sourced
-    set PRIV(SCRIPT) [info script]
-    if {!$PRIV(WWW) && [string length $PRIV(SCRIPT)]} {
-	if {[info tclversion] >= 8.4} {
-	    set PRIV(SCRIPT) [file normalize $PRIV(SCRIPT)]
-	} else {
-	    # we use a catch here because some wrap apps choke on 'file type'
-	    # because TclpLstat wasn't wrappable until 8.4.
-	    catch {
-		while {[string match link [file type $PRIV(SCRIPT)]]} {
-		    set link [file readlink $PRIV(SCRIPT)]
-		    if {[string match relative [file pathtype $link]]} {
-			set PRIV(SCRIPT) \
-			    [file join [file dirname $PRIV(SCRIPT)] $link]
-		    } else {
-			set PRIV(SCRIPT) $link
-		    }
-		}
-		catch {unset link}
-		if {[string match relative [file pathtype $PRIV(SCRIPT)]]} {
-		    set PRIV(SCRIPT) [file join [pwd] $PRIV(SCRIPT)]
-		}
-	    }
-	}
-    }
-    # normalize argv0 if it was tkcon to ensure that we'll be able
-    # to load slaves correctly.
-    if {[info exists ::argv0] && [info script] == $::argv0} {
-	set ::argv0 $PRIV(SCRIPT)
-    }
-
-    if {(![info exists PRIV(root)] || ![winfo exists $PRIV(root)]) \
-	    && ([info exists ::argv0] && $PRIV(SCRIPT) == $::argv0)} {
-	global argv
-	if {[info exists argv]} {
-	    eval ::tkcon::Init $argv
-	} else {
-	    ::tkcon::Init
-	}
-    }
-}
-tkcon::AtSource
-
-package provide tkcon $::tkcon::VERSION
author	William Joye <wjoye@cfa.harvard.edu>	2019-01-08 20:15:33 (GMT)
committer	William Joye <wjoye@cfa.harvard.edu>	2019-01-08 20:15:33 (GMT)
commit	38d941c01b73c1d0611976e4cb9d361592ff30bd (patch)
tree	18dc8ae526baafc21c4200c29979434b64898fca /tkcon
parent	4750a6186365f1457eea083102108b8c2a4d5936 (diff)
download	blt-38d941c01b73c1d0611976e4cb9d361592ff30bd.zip blt-38d941c01b73c1d0611976e4cb9d361592ff30bd.tar.gz blt-38d941c01b73c1d0611976e4cb9d361592ff30bd.tar.bz2