【tcltk - tk 用代码碎片】proj.*

标签：ble   碎片   reload   filename   coding   foreach   tin   inf   odi   

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}

【tcltk - tk 用代码碎片】proj.*

标签：ble   碎片   reload   filename   coding   foreach   tin   inf   odi   

原文地址：https://www.cnblogs.com/GCxokoA/p/12237623.html