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}