Posted to tcl by hypnotoad at Fri Oct 13 01:34:14 GMT 2017view pretty

set ::PKGIDXFILE [info script]
set dir [file dirname $::PKGIDXFILE]
if {$::tcl_platform(platform) eq "windows"} {
  set ::g(HOME) [file join [file normalize $::env(LOCALAPPDATA)] tcl]
} else {
  set ::g(HOME) [file normalize ~/tcl]
}
lappend ::auto_path [file join $::g(HOME) teapot]

proc installDir {d1 d2} {

  puts [format {%*sCreating %s} [expr {4 * [info level]}] {} [file tail $d2]]
  file delete -force -- $d2
  file mkdir $d2

  foreach ftail [glob -directory $d1 -nocomplain -tails *] {
    set f [file join $d1 $ftail]
    if {[file isdirectory $f] && [string compare CVS $ftail]} {
      installDir $f [file join $d2 $ftail]
    } elseif {[file isfile $f]} {
	    file copy -force $f [file join $d2 $ftail]
	    if {$::tcl_platform(platform) eq {unix}} {
        file attributes [file join $d2 $ftail] -permissions 0644
	    } else {
        file attributes [file join $d2 $ftail] -readonly 1
	    }
    }
  }

  if {$::tcl_platform(platform) eq {unix}} {
    file attributes $d2 -permissions 0755
  } else {
    file attributes $d2 -readonly 1
  }
}

lappend ::PATHSTACK $dir
  set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/dde]]
source [file join $PKGDIR pkgIndex.tcl]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/http]]
package ifneeded http 2.8.11 [list tclPkgSetup $PKGDIR http 2.8.11 {{http.tcl source {::http::config ::http::formatQuery ::http::geturl ::http::reset ::http::wait ::http::register ::http::unregister ::http::mapReply}}}]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/http1.0]]
package ifneeded http 1.0 [list tclPkgSetup $PKGDIR http 1.0 {{http.tcl source {httpCopyDone httpCopyStart httpEof httpEvent httpFinish httpMapReply httpProxyRequired http_code http_config http_data http_formatQuery http_get http_reset http_size http_status http_wait}}}]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/msgcat]]
package ifneeded msgcat 1.6.1 [list source [file join $PKGDIR msgcat.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/opt]]
package ifneeded opt 0.4.6 [list source [file join $PKGDIR optparse.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/platform]]
package ifneeded platform        1.0.14 [list source [file join $PKGDIR platform.tcl]]

package ifneeded platform::shell 1.1.4 [list source [file join $PKGDIR shell.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/reg]]
source [file join $PKGDIR pkgIndex.tcl]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/tcltest]]
package ifneeded tcltest 2.4.1 [list source [file join $PKGDIR tcltest.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tk/ttk]]
package ifneeded ttk::theme::vista 1.0 [list source [file join $PKGDIR vistaTheme.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] modules/dirt]]
package ifneeded dirt 0.1 [list source [file join $PKGDIR index.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] modules/pheme]]
package ifneeded pheme_random 0.1 [list source [file join $PKGDIR pheme_random.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] modules/stemmer]]
package ifneeded stem 1.0 [list source [file join $PKGDIR porter.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] tcllib/tepam]]
package ifneeded tepam          0.5.2 [list source [file join $PKGDIR tepam.tcl]]

package ifneeded tepam::doc_gen 0.1.1 [list source [file join $PKGDIR tepam_doc_gen.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3]]
source [file join $PKGDIR pkgIndex.tcl]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/cmdline]]
package ifneeded cmdline 1.4 [list source [file join $PKGDIR cmdline.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/codebale]]
package ifneeded codebale::autodoc 0.1 [list source [file join $PKGDIR autodoc.tcl]]
package ifneeded codebale 0.3 [list source [file join $PKGDIR index.tcl]]
package ifneeded http::wget 0.1 [list source [file join $PKGDIR urlget.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/cron]]
package ifneeded cron 1.1 [list source [file join $PKGDIR cron.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/fileutil]]
package ifneeded fileutil::decode 0.2 [list source [file join $PKGDIR decode.tcl]]
package ifneeded fileutil 1.14.8 [list source [file join $PKGDIR fileutil.tcl]]
package ifneeded fileutil::multi 0.1 [list source [file join $PKGDIR multi.tcl]]
package ifneeded fileutil::multi::op 0.5.3 [list source [file join $PKGDIR multiop.tcl]]
package ifneeded fileutil::traverse 0.4.3 [list source [file join $PKGDIR traverse.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/hershey]]
package ifneeded hershey 1.0 [list source [file join $PKGDIR hersheyPkg.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/listutil]]
package ifneeded listutil 1.8 [list source [file join $PKGDIR listutil.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/llama]]
package ifneeded llama 0.1 [list source [file join $PKGDIR index.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/nettool]]
package ifneeded nettool::available_ports 0.1 [list source [file join $PKGDIR available_ports.tcl]]
package ifneeded nettool 0.3 [list source [file join $PKGDIR index.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/nettool/platform/unix]]
package ifneeded nettool::unix 0.1 [list source [file join $PKGDIR generic.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/nettool/scripts]]
package ifneeded nettool::available_ports 0.1 [list source [file join $PKGDIR build_services.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/odie]]
package ifneeded odie 0.3 [list source [file join $PKGDIR index.tcl]]
package ifneeded irm::units 0.3 [list source [file join $PKGDIR units.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/ohai]]
package ifneeded ohai 0.1 [list source [file join $PKGDIR index.tcl]]
package ifneeded wibble 0.4.3 [list source [file join $PKGDIR wibble.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/practcl]]
package ifneeded practcl 0.2 [list source [file join $PKGDIR practcl.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/processman]]
package ifneeded odie::processman 0.3 [list source [file join $PKGDIR processman.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/sqltools]]
package ifneeded odie::sqliteTools 0.1 [list source [file join $PKGDIR sqlite.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/the_db]]
package ifneeded the_db 0.1 [list source [file join $PKGDIR index.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/webshed]]
package ifneeded webshed::community 0.1 [list source [file join $PKGDIR community.tcl]]
package ifneeded vhost::dictionary 0.1 [list source [file join $PKGDIR dictionary.tcl]]
package ifneeded html-style 1.4 [list source [file join $PKGDIR html-elements.tcl]]
package ifneeded webshed 0.1 [list source [file join $PKGDIR index.tcl]]
package ifneeded taourl-mailman 0.1 [list source [file join $PKGDIR mailman.tcl]]
package ifneeded taourl-podcast 0.1 [list source [file join $PKGDIR podcast.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib]]
source [file join $PKGDIR pkgIndex.tcl]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/cmdline]]
package ifneeded cmdline 1.5 [list source [file join $PKGDIR cmdline.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/cron]]
package ifneeded cron 2.0 [list source [file join $PKGDIR cron.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/devtools]]
package ifneeded tcllib::testutils 1.2 [list source [file join $PKGDIR testutilities.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/dicttool]]
package ifneeded dicttool 1.1 [list source [file join $PKGDIR dicttool.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/fileutil]]
package ifneeded fileutil 1.15 [list source [file join $PKGDIR fileutil.tcl]]

package ifneeded fileutil::traverse 0.6 [list source [file join $PKGDIR traverse.tcl]]

package ifneeded fileutil::multi     0.1   [list source [file join $PKGDIR multi.tcl]]

package ifneeded fileutil::multi::op 0.5.3 [list source [file join $PKGDIR multiop.tcl]]

package ifneeded fileutil::decode    0.2.1 [list source [file join $PKGDIR decode.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/listutil]]
package ifneeded listutil 1.9 [list source [file join $PKGDIR listutil.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/nettool]]
package ifneeded nettool 0.5.2 [list source [file join $PKGDIR nettool.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/nettool/scripts]]
package ifneeded nettool::available_ports 0.1 [list source [file join $PKGDIR build_services.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/oodialect]]
package ifneeded oo::dialect 0.3.2 [list source [file join $PKGDIR oodialect.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/oometa]]
package ifneeded oo::meta 0.7.1 [list source [file join $PKGDIR oometa.tcl]]

package ifneeded oo::option 0.3 [list source [file join $PKGDIR oooption.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/processman]]
package ifneeded odie::processman 0.5 [list source [file join $PKGDIR processman.tcl]]

package ifneeded processman 0.5 [list source [file join $PKGDIR processman.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/sha1]]
package ifneeded sha256 1.0.3 [list source [file join $PKGDIR sha256.tcl]]

package ifneeded sha1   2.0.3 [list source [file join $PKGDIR sha1.tcl]]

package ifneeded sha1   1.1.1 [list source [file join $PKGDIR sha1v1.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/tao]]
package ifneeded tao 9.10 [list source [file join $PKGDIR index.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/tao-mvc]]
package ifneeded tao-mvc 0.1 [list source [file join $PKGDIR mvc.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/tao-onion]]
package ifneeded tao-onion 0.1 [list source [file join $PKGDIR onion.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/tao-physics]]
package ifneeded tao-physics 0.1 [list source [file join $PKGDIR index.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/tao-sqlite]]
package ifneeded ::tao::helpdoc 0.1 [list source [file join $PKGDIR yggdrasil.tcl]]

package ifneeded tao-sqlite 0.5 [list source [file join $PKGDIR index.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/taotk]]
package ifneeded taotk 1.1 [list source [file join $PKGDIR index.tcl]]

package ifneeded irm::balloon 0.2 [list source [file join $PKGDIR balloon.tcl]]

package ifneeded scrollFrame 1.1 [list source [file join $PKGDIR meta scrollframe.tcl]]

package ifneeded tao::sqlitecon 0.1 [list source [file join $PKGDIR classic/widget sqlitecon.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/taotk/meta]]
package ifneeded scrollFrame 1.1 [list source [file join $PKGDIR scrollframe.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/taotk/widget]]
package ifneeded tao::sqlitecon 0.1 [list source [file join $PKGDIR sqlitecon.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/taotk-canvas3d]]
package ifneeded taotk-canvas3d 0.1 [list source [file join $PKGDIR index.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/taotk-form]]
package ifneeded taotk-form 2.0 [list source [file join $PKGDIR index.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/taotk-html]]
package ifneeded taotk-html 0.1 [list source [file join $PKGDIR index.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/taotk-layout]]
package ifneeded taotk-layout 0.1 [list source [file join $PKGDIR index.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/tool]]
package ifneeded tool 0.7 [list source [file join $PKGDIR index.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/tool-ui]]
package ifneeded tool-ui 0.2 [list source [file join $PKGDIR index.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/udpcluster]]
package ifneeded nameserv::cluster 0.2.5   {package require udpcluster ; package provide nameserv::cluster 0.2.5}

package ifneeded udpcluster 0.3.3  [list source [file join $PKGDIR udpcluster.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/virtchannel_base]]
package ifneeded tcl::chan::cat 1.0.2      [list source [file join $PKGDIR cat.tcl]]

package ifneeded tcl::chan::facade 1.0.1   [list source [file join $PKGDIR facade.tcl]]

package ifneeded tcl::chan::fifo 1         [list source [file join $PKGDIR fifo.tcl]]

package ifneeded tcl::chan::fifo2 1        [list source [file join $PKGDIR fifo2.tcl]]

package ifneeded tcl::chan::halfpipe 1     [list source [file join $PKGDIR halfpipe.tcl]]

package ifneeded tcl::chan::memchan 1.0.4  [list source [file join $PKGDIR memchan.tcl]]

package ifneeded tcl::chan::null 1         [list source [file join $PKGDIR null.tcl]]

package ifneeded tcl::chan::nullzero 1     [list source [file join $PKGDIR nullzero.tcl]]

package ifneeded tcl::chan::random 1       [list source [file join $PKGDIR random.tcl]]

package ifneeded tcl::chan::std 1.0.1      [list source [file join $PKGDIR std.tcl]]

package ifneeded tcl::chan::string 1.0.3   [list source [file join $PKGDIR string.tcl]]

package ifneeded tcl::chan::textwindow 1   [list source [file join $PKGDIR textwindow.tcl]]

package ifneeded tcl::chan::variable 1.0.4 [list source [file join $PKGDIR variable.tcl]]

package ifneeded tcl::chan::zero 1         [list source [file join $PKGDIR zero.tcl]]

package ifneeded tcl::randomseed 1         [list source [file join $PKGDIR randseed.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/virtchannel_core]]
package ifneeded tcl::chan::core 1   [list source [file join $PKGDIR core.tcl]]

package ifneeded tcl::chan::events 1 [list source [file join $PKGDIR events.tcl]]

package ifneeded tcl::transform::core 1 [list source [file join $PKGDIR transformcore.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/virtchannel_transform]]
package ifneeded tcl::transform::adler32 1     [list source [file join $PKGDIR adler32.tcl]]

package ifneeded tcl::transform::base64 1      [list source [file join $PKGDIR base64.tcl]]

package ifneeded tcl::transform::counter 1     [list source [file join $PKGDIR counter.tcl]]

package ifneeded tcl::transform::crc32 1       [list source [file join $PKGDIR crc32.tcl]]

package ifneeded tcl::transform::hex 1         [list source [file join $PKGDIR hex.tcl]]

package ifneeded tcl::transform::identity 1    [list source [file join $PKGDIR identity.tcl]]

package ifneeded tcl::transform::limitsize 1   [list source [file join $PKGDIR limitsize.tcl]]

package ifneeded tcl::transform::observe 1     [list source [file join $PKGDIR observe.tcl]]

package ifneeded tcl::transform::otp 1         [list source [file join $PKGDIR otp.tcl]]

package ifneeded tcl::transform::rot 1         [list source [file join $PKGDIR rot.tcl]]

package ifneeded tcl::transform::spacer 1      [list source [file join $PKGDIR spacer.tcl]]

package ifneeded tcl::transform::zlib 1.0.1    [list source [file join $PKGDIR zlib.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/yggdrasil]]
package ifneeded tao-yggdrasil 0.1 [list source [file join $PKGDIR yggdrasil.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/Tkhtml3.0]]
package ifneeded hv3 0.1 [list source [file join $PKGDIR hv3-0.1.tm]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib]]
source [file join $PKGDIR pkgIndex.tcl]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/autoscroll]]
package ifneeded autoscroll 1.1 [list source [file join $PKGDIR autoscroll.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/canvas]]
package ifneeded canvas::sqmap 0.3.1 [list source [file join $PKGDIR canvas_sqmap.tcl]]

package ifneeded canvas::zoom  0.2.1 [list source [file join $PKGDIR canvas_zoom.tcl]]

package ifneeded canvas::drag                0.1   [list source [file join $PKGDIR canvas_drag.tcl]]

package ifneeded canvas::edit::points        0.1   [list source [file join $PKGDIR canvas_epoints.tcl]]

package ifneeded canvas::edit::polyline      0.1   [list source [file join $PKGDIR canvas_epolyline.tcl]]

package ifneeded canvas::edit::quadrilateral 0.1   [list source [file join $PKGDIR canvas_equad.tcl]]

package ifneeded canvas::gradient            0.2   [list source [file join $PKGDIR canvas_gradient.tcl]]

package ifneeded canvas::highlight           0.1   [list source [file join $PKGDIR canvas_highlight.tcl]]

package ifneeded canvas::mvg                 1     [list source [file join $PKGDIR canvas_mvg.tcl]]

package ifneeded canvas::snap                1.0.1 [list source [file join $PKGDIR canvas_snap.tcl]]

package ifneeded canvas::tag                 0.1   [list source [file join $PKGDIR canvas_tags.tcl]]

package ifneeded canvas::track::lines        0.1   [list source [file join $PKGDIR canvas_trlines.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/chatwidget]]
package ifneeded chatwidget 1.1.0 [list source [file join $PKGDIR chatwidget.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/controlwidget]]
package ifneeded controlwidget 0.1 [list source [file join $PKGDIR controlwidget.tcl]]

package ifneeded meter         1.0 [list source [file join $PKGDIR vertical_meter.tcl]]

package ifneeded led           1.0 [list source [file join $PKGDIR led.tcl]]

package ifneeded rdial         0.7 [list source [file join $PKGDIR rdial.tcl]]

package ifneeded tachometer    0.1 [list source [file join $PKGDIR tachometer.tcl]]

package ifneeded voltmeter     0.1 [list source [file join $PKGDIR voltmeter.tcl]]

package ifneeded radioMatrix   1.0 [list source [file join $PKGDIR radioMatrix.tcl]]

package ifneeded bindDown      1.0 [list source [file join $PKGDIR bindDown.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/crosshair]]
package ifneeded crosshair 1.2 [list source [file join $PKGDIR crosshair.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/ctext]]
package ifneeded ctext 3.3 [list source [file join $PKGDIR ctext.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/cursor]]
package ifneeded cursor 0.3.1 [list source [file join $PKGDIR cursor.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/datefield]]
package ifneeded datefield 0.2 [list source [file join $PKGDIR datefield.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/diagrams]]
package ifneeded diagram::navigation  1 [list source [file join $PKGDIR navigation.tcl]]

package ifneeded diagram::direction   1 [list source [file join $PKGDIR direction.tcl]]

package ifneeded diagram::element     1 [list source [file join $PKGDIR element.tcl]]

package ifneeded diagram::attribute   1 [list source [file join $PKGDIR attributes.tcl]]

package ifneeded diagram::point       1 [list source [file join $PKGDIR point.tcl]]

package ifneeded diagram::core        1 [list source [file join $PKGDIR core.tcl]]

package ifneeded diagram::basic   1.0.1 [list source [file join $PKGDIR basic.tcl]]

package ifneeded diagram              1 [list source [file join $PKGDIR diagram.tcl]]

package ifneeded diagram::application 1.2 [list source [file join $PKGDIR application.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/getstring]]
package ifneeded getstring 0.1 [list source [file join $PKGDIR tk_getString.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/history]]
package ifneeded history 0.1 [list source [file join $PKGDIR history.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/ico]]
package ifneeded ico 0.3.2 [list source [file join $PKGDIR ico0.tcl]]

package ifneeded ico 1.1 [list source [file join $PKGDIR ico.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/ipentry]]
package ifneeded ipentry 0.3 [list source [file join $PKGDIR ipentry.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/khim]]
package ifneeded khim 1.0.1 [list source [file join $PKGDIR khim.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/mentry]]
package ifneeded mentry         3.7 \
	[list source [file join $PKGDIR mentry.tcl]]

package ifneeded mentry_tile    3.7 \
	[list source [file join $PKGDIR mentry_tile.tcl]]

package ifneeded Mentry         3.7 \
	[list package require -exact mentry      3.7]

package ifneeded Mentry_tile    3.7 \
	[list package require -exact mentry_tile 3.7]

package ifneeded mentry::common 3.7 \
	"namespace eval ::mentry { proc DIR {} {return [list $PKGDIR]} } ;\
	 source [list [file join $PKGDIR mentryPublic.tcl]]"
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/menubar]]
package ifneeded menubar::node 0.5 [list source [file join $PKGDIR node.tcl]]

package ifneeded menubar::tree 0.5 [list source [file join $PKGDIR tree.tcl]]

package ifneeded menubar 0.5 [list source [file join $PKGDIR menubar.tcl]]

package ifneeded menubar::debug 0.5 [list source [file join $PKGDIR debug.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/ntext]]
package ifneeded ntext 1.0b1 [list source [file join $PKGDIR ntext.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/plotchart]]
package ifneeded Plotchart 2.4.1 [list source [file join $PKGDIR plotchart.tcl]]

package ifneeded xyplot    1.0.1 [list source [file join $PKGDIR xyplot.tcl]]

package ifneeded plotanim    0.2 [list source [file join $PKGDIR plotanim.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/style]]
package ifneeded style 0.3 [list source [file join $PKGDIR style.tcl]]

package ifneeded style::as 1.4.1 [list source [file join $PKGDIR as.tcl]]

package ifneeded style::lobster 0.2 [list source [file join $PKGDIR lobster.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/swaplist]]
package ifneeded swaplist 0.2 [list source [file join $PKGDIR swaplist.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/tablelist]]
package ifneeded tablelist         5.18 \
	[list source [file join $PKGDIR tablelist.tcl]]

package ifneeded tablelist_tile    5.18 \
	[list source [file join $PKGDIR tablelist_tile.tcl]]

package ifneeded Tablelist         5.18 \
	[list package require -exact tablelist	    5.18]

package ifneeded Tablelist_tile    5.18 \
	[list package require -exact tablelist_tile 5.18]

package ifneeded tablelist::common 5.18 \
        "namespace eval ::tablelist { proc DIR {} {return [list $PKGDIR]} } ;\
	 source [list [file join $PKGDIR tablelistPublic.tcl]]"
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/tkpiechart]]
package ifneeded tkpiechart 6.6 [list source [file join $PKGDIR tkpiechart.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/tooltip]]
package ifneeded tooltip  1.4.6 [list source [file join $PKGDIR tooltip.tcl]]

package ifneeded tipstack 1.0.1 [list source [file join $PKGDIR tipstack.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/wcb]]
package ifneeded wcb 3.5 [list source [file join $PKGDIR wcb.tcl]]

package ifneeded Wcb 3.5 { package require -exact wcb 3.5 }
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/widget]]
source [file join $PKGDIR pkgIndex.tcl]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/widgetl]]
package ifneeded widget::listsimple 0.1.1 [list source [file join $PKGDIR listsimple.tcl]]

package ifneeded widget::listentry  0.1.1 [list source [file join $PKGDIR listentry.tcl]]
set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/widgetv]]
package ifneeded widget::validator 0.1 [list source [file join $PKGDIR validator.tcl]]

set dir [lindex $::PATHSTACK end]
set ::PATHSTACK [lrange $::PATHSTACK 0 end-1]


# Advertise statically linked packages
foreach {pkg script} [array get ::kitpkg] {
  eval $script
}