examples/boilerplate.tcl

   1 set auto_path   [concat [file join [lrange [file split [pwd]] 0 end-1]] $auto_path]
   2 if {[info exists no_tk]} {
   3         package require TLC-base
   4 } else {
   5         package require TTLC
   6 }
   7 namespace import tlc::*
   8 eval [go_home]
   9
  10 if {[file exists loglevels_class]} {
  11         tlc::Baselog::load_classmap loglevels_class
  12 }
  13 if {[file exists loglevels_func]} {
  14         tlc::Baselog::load_hotfuncs loglevels_func
  15 }
  16
  17 proc start_console {} {
  18         update
  19         Console console -enable 1 -appname "tlc_test"
  20 }