tlc-base.tcl

   1 package require Tcl 8.4
   2 package require Itcl 3.1
   3
   4 namespace eval ::tlc {
   5         namespace export *
   6
   7         variable version        0.78.0
   8
   9         variable log
  10         set log(threshold)      20
  11 }
  12
  13 source [file join $::tlc::library scripts intersect3.tcl]
  14 lappend auto_path [file join $::tlc::library scripts]
  15
  16 tlc::Uri tlc::uri
  17
  18 package provide TLC-base $::tlc::version
  19
  20 namespace import -force itcl::*
  21
  22