【tcltk - tk】 procproj.*

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]
}

done.