From: Jeff Hobbs Date: Tue, 5 Sep 2006 22:25:19 +0000 (+0000) Subject: * pkgIndex.tcl: sample pkgIndex.tcl that allows using tkcon as a X-Git-Tag: tkcon-2-5~14 X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=1c3b469b28aabf8217d41ba879fa680f0fca5fbe;p=tkcon * pkgIndex.tcl: sample pkgIndex.tcl that allows using tkcon as a package. --- diff --git a/ChangeLog b/ChangeLog index 57c12ce..441f4c9 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2006-09-05 Jeff Hobbs + * 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 diff --git a/pkgIndex.tcl b/pkgIndex.tcl new file mode 100644 index 0000000..4c932eb --- /dev/null +++ b/pkgIndex.tcl @@ -0,0 +1,11 @@ +# 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.4 [list source [file join $dir tkcon.tcl]]