tcl.8.6.10 tk.8.6.10
proc proj.filename {} {return main.tcl}
proc proj.relaunch {} {
exec [info nameofexecutable] [proj.filename] &
}
proc proj.clear {} {
foreach x [info commands .*] {
if {$x eq {.}} {continue}
destroy $x
}
}
proc proj.reload {} {
proj.clear
source -encoding utf-8 [proj.filename]
}
proc proj.filename {} {return dev_notes.tcl}proc proj.relaunch {} { exec [info nameofexecutable] [proj.filename] &}proc proj.clear {} { foreach x [info commands .*] { if {$x eq {.}} {continue} destroy $x }}proc proj.reload {} { proj.clear source -encoding utf-8 proj.filename}