Posted to tcl by apn at Thu Oct 01 14:36:34 GMT 2009view raw

  1. package require starkit
  2. starkit::startup
  3. if {[package vcompare [package require Tcl] 8.4]} {
  4. foreach path [::tcl::tm::path list] {
  5. ::tcl::tm::remove $path
  6. }
  7. ::tcl::tm::path add [file join $starkit::topdir lib]
  8. }
  9. starkit::autoextend [file join $starkit::topdir lib tcllib]
  10.