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
7 namespace import tlc
::*
10 if {[file exists loglevels_class
]} {
11 tlc
::Baselog::load_classmap loglevels_class
13 if {[file exists loglevels_func
]} {
14 tlc
::Baselog::load_hotfuncs loglevels_func
17 proc start_console
{} {
19 Console
console -enable 1 -appname "tlc_test"