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, Jul 29, 14:21 (3 h, 37 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
2838463
Default Alt Text
init.tcl (318 B)

Event Timeline