tcltk - tk 用代码碎片proj.*

Posted 2020-11-26 gcxokoa

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}