Page MenuHomeDevCentral

init.tcl
No OneTemporary

init.tcl

# Procs to mock
proc bind {type flags cmdOrMask {procName ""}} {}
proc unbind {type flags cmdOrMask procname} {}
# Tests config
set dir [info script]
if {$dir == ""} {
set dir [pwd]
append dir "/scripts"
} {
set dir [file dirname [file dirname [file normalize $dir]]]
}
# Standard procedures
source $dir/Core.tcl

File Metadata

Mime Type
text/plain
Expires
Tue, May 13, 16:57 (1 d, 4 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
2579994
Default Alt Text
init.tcl (318 B)

Event Timeline