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

  1.  
  2. set ::PKGIDXFILE [info script]
  3. set dir [file dirname $::PKGIDXFILE]
  4. if {$::tcl_platform(platform) eq "windows"} {
  5. set ::g(HOME) [file join [file normalize $::env(LOCALAPPDATA)] tcl]
  6. } else {
  7. set ::g(HOME) [file normalize ~/tcl]
  8. }
  9. lappend ::auto_path [file join $::g(HOME) teapot]
  10.  
  11. proc installDir {d1 d2} {
  12.  
  13. puts [format {%*sCreating %s} [expr {4 * [info level]}] {} [file tail $d2]]
  14. file delete -force -- $d2
  15. file mkdir $d2
  16.  
  17. foreach ftail [glob -directory $d1 -nocomplain -tails *] {
  18. set f [file join $d1 $ftail]
  19. if {[file isdirectory $f] && [string compare CVS $ftail]} {
  20. installDir $f [file join $d2 $ftail]
  21. } elseif {[file isfile $f]} {
  22. file copy -force $f [file join $d2 $ftail]
  23. if {$::tcl_platform(platform) eq {unix}} {
  24. file attributes [file join $d2 $ftail] -permissions 0644
  25. } else {
  26. file attributes [file join $d2 $ftail] -readonly 1
  27. }
  28. }
  29. }
  30.  
  31. if {$::tcl_platform(platform) eq {unix}} {
  32. file attributes $d2 -permissions 0755
  33. } else {
  34. file attributes $d2 -readonly 1
  35. }
  36. }
  37.  
  38. lappend ::PATHSTACK $dir
  39. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/dde]]
  40. source [file join $PKGDIR pkgIndex.tcl]
  41. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/http]]
  42. 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}}}]
  43. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/http1.0]]
  44. 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}}}]
  45. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/msgcat]]
  46. package ifneeded msgcat 1.6.1 [list source [file join $PKGDIR msgcat.tcl]]
  47. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/opt]]
  48. package ifneeded opt 0.4.6 [list source [file join $PKGDIR optparse.tcl]]
  49. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/platform]]
  50. package ifneeded platform 1.0.14 [list source [file join $PKGDIR platform.tcl]]
  51.  
  52. package ifneeded platform::shell 1.1.4 [list source [file join $PKGDIR shell.tcl]]
  53. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/reg]]
  54. source [file join $PKGDIR pkgIndex.tcl]
  55. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tcl/tcltest]]
  56. package ifneeded tcltest 2.4.1 [list source [file join $PKGDIR tcltest.tcl]]
  57. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] boot/tk/ttk]]
  58. package ifneeded ttk::theme::vista 1.0 [list source [file join $PKGDIR vistaTheme.tcl]]
  59. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] modules/dirt]]
  60. package ifneeded dirt 0.1 [list source [file join $PKGDIR index.tcl]]
  61. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] modules/pheme]]
  62. package ifneeded pheme_random 0.1 [list source [file join $PKGDIR pheme_random.tcl]]
  63. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] modules/stemmer]]
  64. package ifneeded stem 1.0 [list source [file join $PKGDIR porter.tcl]]
  65. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] tcllib/tepam]]
  66. package ifneeded tepam 0.5.2 [list source [file join $PKGDIR tepam.tcl]]
  67.  
  68. package ifneeded tepam::doc_gen 0.1.1 [list source [file join $PKGDIR tepam_doc_gen.tcl]]
  69. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3]]
  70. source [file join $PKGDIR pkgIndex.tcl]
  71. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/cmdline]]
  72. package ifneeded cmdline 1.4 [list source [file join $PKGDIR cmdline.tcl]]
  73. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/codebale]]
  74. package ifneeded codebale::autodoc 0.1 [list source [file join $PKGDIR autodoc.tcl]]
  75. package ifneeded codebale 0.3 [list source [file join $PKGDIR index.tcl]]
  76. package ifneeded http::wget 0.1 [list source [file join $PKGDIR urlget.tcl]]
  77. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/cron]]
  78. package ifneeded cron 1.1 [list source [file join $PKGDIR cron.tcl]]
  79. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/fileutil]]
  80. package ifneeded fileutil::decode 0.2 [list source [file join $PKGDIR decode.tcl]]
  81. package ifneeded fileutil 1.14.8 [list source [file join $PKGDIR fileutil.tcl]]
  82. package ifneeded fileutil::multi 0.1 [list source [file join $PKGDIR multi.tcl]]
  83. package ifneeded fileutil::multi::op 0.5.3 [list source [file join $PKGDIR multiop.tcl]]
  84. package ifneeded fileutil::traverse 0.4.3 [list source [file join $PKGDIR traverse.tcl]]
  85. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/hershey]]
  86. package ifneeded hershey 1.0 [list source [file join $PKGDIR hersheyPkg.tcl]]
  87. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/listutil]]
  88. package ifneeded listutil 1.8 [list source [file join $PKGDIR listutil.tcl]]
  89. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/llama]]
  90. package ifneeded llama 0.1 [list source [file join $PKGDIR index.tcl]]
  91. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/nettool]]
  92. package ifneeded nettool::available_ports 0.1 [list source [file join $PKGDIR available_ports.tcl]]
  93. package ifneeded nettool 0.3 [list source [file join $PKGDIR index.tcl]]
  94. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/nettool/platform/unix]]
  95. package ifneeded nettool::unix 0.1 [list source [file join $PKGDIR generic.tcl]]
  96. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/nettool/scripts]]
  97. package ifneeded nettool::available_ports 0.1 [list source [file join $PKGDIR build_services.tcl]]
  98. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/odie]]
  99. package ifneeded odie 0.3 [list source [file join $PKGDIR index.tcl]]
  100. package ifneeded irm::units 0.3 [list source [file join $PKGDIR units.tcl]]
  101. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/ohai]]
  102. package ifneeded ohai 0.1 [list source [file join $PKGDIR index.tcl]]
  103. package ifneeded wibble 0.4.3 [list source [file join $PKGDIR wibble.tcl]]
  104. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/practcl]]
  105. package ifneeded practcl 0.2 [list source [file join $PKGDIR practcl.tcl]]
  106. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/processman]]
  107. package ifneeded odie::processman 0.3 [list source [file join $PKGDIR processman.tcl]]
  108. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/sqltools]]
  109. package ifneeded odie::sqliteTools 0.1 [list source [file join $PKGDIR sqlite.tcl]]
  110. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/the_db]]
  111. package ifneeded the_db 0.1 [list source [file join $PKGDIR index.tcl]]
  112. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/odielibc2.3/webshed]]
  113. package ifneeded webshed::community 0.1 [list source [file join $PKGDIR community.tcl]]
  114. package ifneeded vhost::dictionary 0.1 [list source [file join $PKGDIR dictionary.tcl]]
  115. package ifneeded html-style 1.4 [list source [file join $PKGDIR html-elements.tcl]]
  116. package ifneeded webshed 0.1 [list source [file join $PKGDIR index.tcl]]
  117. package ifneeded taourl-mailman 0.1 [list source [file join $PKGDIR mailman.tcl]]
  118. package ifneeded taourl-podcast 0.1 [list source [file join $PKGDIR podcast.tcl]]
  119. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib]]
  120. source [file join $PKGDIR pkgIndex.tcl]
  121. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/cmdline]]
  122. package ifneeded cmdline 1.5 [list source [file join $PKGDIR cmdline.tcl]]
  123. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/cron]]
  124. package ifneeded cron 2.0 [list source [file join $PKGDIR cron.tcl]]
  125. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/devtools]]
  126. package ifneeded tcllib::testutils 1.2 [list source [file join $PKGDIR testutilities.tcl]]
  127. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/dicttool]]
  128. package ifneeded dicttool 1.1 [list source [file join $PKGDIR dicttool.tcl]]
  129. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/fileutil]]
  130. package ifneeded fileutil 1.15 [list source [file join $PKGDIR fileutil.tcl]]
  131.  
  132. package ifneeded fileutil::traverse 0.6 [list source [file join $PKGDIR traverse.tcl]]
  133.  
  134. package ifneeded fileutil::multi 0.1 [list source [file join $PKGDIR multi.tcl]]
  135.  
  136. package ifneeded fileutil::multi::op 0.5.3 [list source [file join $PKGDIR multiop.tcl]]
  137.  
  138. package ifneeded fileutil::decode 0.2.1 [list source [file join $PKGDIR decode.tcl]]
  139. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/listutil]]
  140. package ifneeded listutil 1.9 [list source [file join $PKGDIR listutil.tcl]]
  141. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/nettool]]
  142. package ifneeded nettool 0.5.2 [list source [file join $PKGDIR nettool.tcl]]
  143. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/nettool/scripts]]
  144. package ifneeded nettool::available_ports 0.1 [list source [file join $PKGDIR build_services.tcl]]
  145. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/oodialect]]
  146. package ifneeded oo::dialect 0.3.2 [list source [file join $PKGDIR oodialect.tcl]]
  147. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/oometa]]
  148. package ifneeded oo::meta 0.7.1 [list source [file join $PKGDIR oometa.tcl]]
  149.  
  150. package ifneeded oo::option 0.3 [list source [file join $PKGDIR oooption.tcl]]
  151. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/processman]]
  152. package ifneeded odie::processman 0.5 [list source [file join $PKGDIR processman.tcl]]
  153.  
  154. package ifneeded processman 0.5 [list source [file join $PKGDIR processman.tcl]]
  155. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/sha1]]
  156. package ifneeded sha256 1.0.3 [list source [file join $PKGDIR sha256.tcl]]
  157.  
  158. package ifneeded sha1 2.0.3 [list source [file join $PKGDIR sha1.tcl]]
  159.  
  160. package ifneeded sha1 1.1.1 [list source [file join $PKGDIR sha1v1.tcl]]
  161. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/tao]]
  162. package ifneeded tao 9.10 [list source [file join $PKGDIR index.tcl]]
  163. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/tao-mvc]]
  164. package ifneeded tao-mvc 0.1 [list source [file join $PKGDIR mvc.tcl]]
  165. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/tao-onion]]
  166. package ifneeded tao-onion 0.1 [list source [file join $PKGDIR onion.tcl]]
  167. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/tao-physics]]
  168. package ifneeded tao-physics 0.1 [list source [file join $PKGDIR index.tcl]]
  169. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/tao-sqlite]]
  170. package ifneeded ::tao::helpdoc 0.1 [list source [file join $PKGDIR yggdrasil.tcl]]
  171.  
  172. package ifneeded tao-sqlite 0.5 [list source [file join $PKGDIR index.tcl]]
  173. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/taotk]]
  174. package ifneeded taotk 1.1 [list source [file join $PKGDIR index.tcl]]
  175.  
  176. package ifneeded irm::balloon 0.2 [list source [file join $PKGDIR balloon.tcl]]
  177.  
  178. package ifneeded scrollFrame 1.1 [list source [file join $PKGDIR meta scrollframe.tcl]]
  179.  
  180. package ifneeded tao::sqlitecon 0.1 [list source [file join $PKGDIR classic/widget sqlitecon.tcl]]
  181. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/taotk/meta]]
  182. package ifneeded scrollFrame 1.1 [list source [file join $PKGDIR scrollframe.tcl]]
  183. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/taotk/widget]]
  184. package ifneeded tao::sqlitecon 0.1 [list source [file join $PKGDIR sqlitecon.tcl]]
  185. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/taotk-canvas3d]]
  186. package ifneeded taotk-canvas3d 0.1 [list source [file join $PKGDIR index.tcl]]
  187. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/taotk-form]]
  188. package ifneeded taotk-form 2.0 [list source [file join $PKGDIR index.tcl]]
  189. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/taotk-html]]
  190. package ifneeded taotk-html 0.1 [list source [file join $PKGDIR index.tcl]]
  191. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/taotk-layout]]
  192. package ifneeded taotk-layout 0.1 [list source [file join $PKGDIR index.tcl]]
  193. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/tool]]
  194. package ifneeded tool 0.7 [list source [file join $PKGDIR index.tcl]]
  195. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/tool-ui]]
  196. package ifneeded tool-ui 0.2 [list source [file join $PKGDIR index.tcl]]
  197. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/udpcluster]]
  198. package ifneeded nameserv::cluster 0.2.5 {package require udpcluster ; package provide nameserv::cluster 0.2.5}
  199.  
  200. package ifneeded udpcluster 0.3.3 [list source [file join $PKGDIR udpcluster.tcl]]
  201. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/virtchannel_base]]
  202. package ifneeded tcl::chan::cat 1.0.2 [list source [file join $PKGDIR cat.tcl]]
  203.  
  204. package ifneeded tcl::chan::facade 1.0.1 [list source [file join $PKGDIR facade.tcl]]
  205.  
  206. package ifneeded tcl::chan::fifo 1 [list source [file join $PKGDIR fifo.tcl]]
  207.  
  208. package ifneeded tcl::chan::fifo2 1 [list source [file join $PKGDIR fifo2.tcl]]
  209.  
  210. package ifneeded tcl::chan::halfpipe 1 [list source [file join $PKGDIR halfpipe.tcl]]
  211.  
  212. package ifneeded tcl::chan::memchan 1.0.4 [list source [file join $PKGDIR memchan.tcl]]
  213.  
  214. package ifneeded tcl::chan::null 1 [list source [file join $PKGDIR null.tcl]]
  215.  
  216. package ifneeded tcl::chan::nullzero 1 [list source [file join $PKGDIR nullzero.tcl]]
  217.  
  218. package ifneeded tcl::chan::random 1 [list source [file join $PKGDIR random.tcl]]
  219.  
  220. package ifneeded tcl::chan::std 1.0.1 [list source [file join $PKGDIR std.tcl]]
  221.  
  222. package ifneeded tcl::chan::string 1.0.3 [list source [file join $PKGDIR string.tcl]]
  223.  
  224. package ifneeded tcl::chan::textwindow 1 [list source [file join $PKGDIR textwindow.tcl]]
  225.  
  226. package ifneeded tcl::chan::variable 1.0.4 [list source [file join $PKGDIR variable.tcl]]
  227.  
  228. package ifneeded tcl::chan::zero 1 [list source [file join $PKGDIR zero.tcl]]
  229.  
  230. package ifneeded tcl::randomseed 1 [list source [file join $PKGDIR randseed.tcl]]
  231. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/virtchannel_core]]
  232. package ifneeded tcl::chan::core 1 [list source [file join $PKGDIR core.tcl]]
  233.  
  234. package ifneeded tcl::chan::events 1 [list source [file join $PKGDIR events.tcl]]
  235.  
  236. package ifneeded tcl::transform::core 1 [list source [file join $PKGDIR transformcore.tcl]]
  237. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/virtchannel_transform]]
  238. package ifneeded tcl::transform::adler32 1 [list source [file join $PKGDIR adler32.tcl]]
  239.  
  240. package ifneeded tcl::transform::base64 1 [list source [file join $PKGDIR base64.tcl]]
  241.  
  242. package ifneeded tcl::transform::counter 1 [list source [file join $PKGDIR counter.tcl]]
  243.  
  244. package ifneeded tcl::transform::crc32 1 [list source [file join $PKGDIR crc32.tcl]]
  245.  
  246. package ifneeded tcl::transform::hex 1 [list source [file join $PKGDIR hex.tcl]]
  247.  
  248. package ifneeded tcl::transform::identity 1 [list source [file join $PKGDIR identity.tcl]]
  249.  
  250. package ifneeded tcl::transform::limitsize 1 [list source [file join $PKGDIR limitsize.tcl]]
  251.  
  252. package ifneeded tcl::transform::observe 1 [list source [file join $PKGDIR observe.tcl]]
  253.  
  254. package ifneeded tcl::transform::otp 1 [list source [file join $PKGDIR otp.tcl]]
  255.  
  256. package ifneeded tcl::transform::rot 1 [list source [file join $PKGDIR rot.tcl]]
  257.  
  258. package ifneeded tcl::transform::spacer 1 [list source [file join $PKGDIR spacer.tcl]]
  259.  
  260. package ifneeded tcl::transform::zlib 1.0.1 [list source [file join $PKGDIR zlib.tcl]]
  261. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/taolib/yggdrasil]]
  262. package ifneeded tao-yggdrasil 0.1 [list source [file join $PKGDIR yggdrasil.tcl]]
  263. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/Tkhtml3.0]]
  264. package ifneeded hv3 0.1 [list source [file join $PKGDIR hv3-0.1.tm]]
  265. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib]]
  266. source [file join $PKGDIR pkgIndex.tcl]
  267. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/autoscroll]]
  268. package ifneeded autoscroll 1.1 [list source [file join $PKGDIR autoscroll.tcl]]
  269. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/canvas]]
  270. package ifneeded canvas::sqmap 0.3.1 [list source [file join $PKGDIR canvas_sqmap.tcl]]
  271.  
  272. package ifneeded canvas::zoom 0.2.1 [list source [file join $PKGDIR canvas_zoom.tcl]]
  273.  
  274. package ifneeded canvas::drag 0.1 [list source [file join $PKGDIR canvas_drag.tcl]]
  275.  
  276. package ifneeded canvas::edit::points 0.1 [list source [file join $PKGDIR canvas_epoints.tcl]]
  277.  
  278. package ifneeded canvas::edit::polyline 0.1 [list source [file join $PKGDIR canvas_epolyline.tcl]]
  279.  
  280. package ifneeded canvas::edit::quadrilateral 0.1 [list source [file join $PKGDIR canvas_equad.tcl]]
  281.  
  282. package ifneeded canvas::gradient 0.2 [list source [file join $PKGDIR canvas_gradient.tcl]]
  283.  
  284. package ifneeded canvas::highlight 0.1 [list source [file join $PKGDIR canvas_highlight.tcl]]
  285.  
  286. package ifneeded canvas::mvg 1 [list source [file join $PKGDIR canvas_mvg.tcl]]
  287.  
  288. package ifneeded canvas::snap 1.0.1 [list source [file join $PKGDIR canvas_snap.tcl]]
  289.  
  290. package ifneeded canvas::tag 0.1 [list source [file join $PKGDIR canvas_tags.tcl]]
  291.  
  292. package ifneeded canvas::track::lines 0.1 [list source [file join $PKGDIR canvas_trlines.tcl]]
  293. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/chatwidget]]
  294. package ifneeded chatwidget 1.1.0 [list source [file join $PKGDIR chatwidget.tcl]]
  295. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/controlwidget]]
  296. package ifneeded controlwidget 0.1 [list source [file join $PKGDIR controlwidget.tcl]]
  297.  
  298. package ifneeded meter 1.0 [list source [file join $PKGDIR vertical_meter.tcl]]
  299.  
  300. package ifneeded led 1.0 [list source [file join $PKGDIR led.tcl]]
  301.  
  302. package ifneeded rdial 0.7 [list source [file join $PKGDIR rdial.tcl]]
  303.  
  304. package ifneeded tachometer 0.1 [list source [file join $PKGDIR tachometer.tcl]]
  305.  
  306. package ifneeded voltmeter 0.1 [list source [file join $PKGDIR voltmeter.tcl]]
  307.  
  308. package ifneeded radioMatrix 1.0 [list source [file join $PKGDIR radioMatrix.tcl]]
  309.  
  310. package ifneeded bindDown 1.0 [list source [file join $PKGDIR bindDown.tcl]]
  311. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/crosshair]]
  312. package ifneeded crosshair 1.2 [list source [file join $PKGDIR crosshair.tcl]]
  313. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/ctext]]
  314. package ifneeded ctext 3.3 [list source [file join $PKGDIR ctext.tcl]]
  315. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/cursor]]
  316. package ifneeded cursor 0.3.1 [list source [file join $PKGDIR cursor.tcl]]
  317. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/datefield]]
  318. package ifneeded datefield 0.2 [list source [file join $PKGDIR datefield.tcl]]
  319. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/diagrams]]
  320. package ifneeded diagram::navigation 1 [list source [file join $PKGDIR navigation.tcl]]
  321.  
  322. package ifneeded diagram::direction 1 [list source [file join $PKGDIR direction.tcl]]
  323.  
  324. package ifneeded diagram::element 1 [list source [file join $PKGDIR element.tcl]]
  325.  
  326. package ifneeded diagram::attribute 1 [list source [file join $PKGDIR attributes.tcl]]
  327.  
  328. package ifneeded diagram::point 1 [list source [file join $PKGDIR point.tcl]]
  329.  
  330. package ifneeded diagram::core 1 [list source [file join $PKGDIR core.tcl]]
  331.  
  332. package ifneeded diagram::basic 1.0.1 [list source [file join $PKGDIR basic.tcl]]
  333.  
  334. package ifneeded diagram 1 [list source [file join $PKGDIR diagram.tcl]]
  335.  
  336. package ifneeded diagram::application 1.2 [list source [file join $PKGDIR application.tcl]]
  337. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/getstring]]
  338. package ifneeded getstring 0.1 [list source [file join $PKGDIR tk_getString.tcl]]
  339. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/history]]
  340. package ifneeded history 0.1 [list source [file join $PKGDIR history.tcl]]
  341. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/ico]]
  342. package ifneeded ico 0.3.2 [list source [file join $PKGDIR ico0.tcl]]
  343.  
  344. package ifneeded ico 1.1 [list source [file join $PKGDIR ico.tcl]]
  345. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/ipentry]]
  346. package ifneeded ipentry 0.3 [list source [file join $PKGDIR ipentry.tcl]]
  347. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/khim]]
  348. package ifneeded khim 1.0.1 [list source [file join $PKGDIR khim.tcl]]
  349. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/mentry]]
  350. package ifneeded mentry 3.7 \
  351. [list source [file join $PKGDIR mentry.tcl]]
  352.  
  353. package ifneeded mentry_tile 3.7 \
  354. [list source [file join $PKGDIR mentry_tile.tcl]]
  355.  
  356. package ifneeded Mentry 3.7 \
  357. [list package require -exact mentry 3.7]
  358.  
  359. package ifneeded Mentry_tile 3.7 \
  360. [list package require -exact mentry_tile 3.7]
  361.  
  362. package ifneeded mentry::common 3.7 \
  363. "namespace eval ::mentry { proc DIR {} {return [list $PKGDIR]} } ;\
  364. source [list [file join $PKGDIR mentryPublic.tcl]]"
  365. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/menubar]]
  366. package ifneeded menubar::node 0.5 [list source [file join $PKGDIR node.tcl]]
  367.  
  368. package ifneeded menubar::tree 0.5 [list source [file join $PKGDIR tree.tcl]]
  369.  
  370. package ifneeded menubar 0.5 [list source [file join $PKGDIR menubar.tcl]]
  371.  
  372. package ifneeded menubar::debug 0.5 [list source [file join $PKGDIR debug.tcl]]
  373. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/ntext]]
  374. package ifneeded ntext 1.0b1 [list source [file join $PKGDIR ntext.tcl]]
  375. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/plotchart]]
  376. package ifneeded Plotchart 2.4.1 [list source [file join $PKGDIR plotchart.tcl]]
  377.  
  378. package ifneeded xyplot 1.0.1 [list source [file join $PKGDIR xyplot.tcl]]
  379.  
  380. package ifneeded plotanim 0.2 [list source [file join $PKGDIR plotanim.tcl]]
  381. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/style]]
  382. package ifneeded style 0.3 [list source [file join $PKGDIR style.tcl]]
  383.  
  384. package ifneeded style::as 1.4.1 [list source [file join $PKGDIR as.tcl]]
  385.  
  386. package ifneeded style::lobster 0.2 [list source [file join $PKGDIR lobster.tcl]]
  387. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/swaplist]]
  388. package ifneeded swaplist 0.2 [list source [file join $PKGDIR swaplist.tcl]]
  389. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/tablelist]]
  390. package ifneeded tablelist 5.18 \
  391. [list source [file join $PKGDIR tablelist.tcl]]
  392.  
  393. package ifneeded tablelist_tile 5.18 \
  394. [list source [file join $PKGDIR tablelist_tile.tcl]]
  395.  
  396. package ifneeded Tablelist 5.18 \
  397. [list package require -exact tablelist 5.18]
  398.  
  399. package ifneeded Tablelist_tile 5.18 \
  400. [list package require -exact tablelist_tile 5.18]
  401.  
  402. package ifneeded tablelist::common 5.18 \
  403. "namespace eval ::tablelist { proc DIR {} {return [list $PKGDIR]} } ;\
  404. source [list [file join $PKGDIR tablelistPublic.tcl]]"
  405. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/tkpiechart]]
  406. package ifneeded tkpiechart 6.6 [list source [file join $PKGDIR tkpiechart.tcl]]
  407. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/tooltip]]
  408. package ifneeded tooltip 1.4.6 [list source [file join $PKGDIR tooltip.tcl]]
  409.  
  410. package ifneeded tipstack 1.0.1 [list source [file join $PKGDIR tipstack.tcl]]
  411. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/wcb]]
  412. package ifneeded wcb 3.5 [list source [file join $PKGDIR wcb.tcl]]
  413.  
  414. package ifneeded Wcb 3.5 { package require -exact wcb 3.5 }
  415. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/widget]]
  416. source [file join $PKGDIR pkgIndex.tcl]
  417. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/widgetl]]
  418. package ifneeded widget::listsimple 0.1.1 [list source [file join $PKGDIR listsimple.tcl]]
  419.  
  420. package ifneeded widget::listentry 0.1.1 [list source [file join $PKGDIR listentry.tcl]]
  421. set dir [set PKGDIR [file join [lindex $::PATHSTACK end] zvfs/lib/tklib/widgetv]]
  422. package ifneeded widget::validator 0.1 [list source [file join $PKGDIR validator.tcl]]
  423.  
  424. set dir [lindex $::PATHSTACK end]
  425. set ::PATHSTACK [lrange $::PATHSTACK 0 end-1]
  426.  
  427.  
  428. # Advertise statically linked packages
  429. foreach {pkg script} [array get ::kitpkg] {
  430. eval $script
  431. }
  432.