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 }