Posted to tcl by colin at Fri Aug 10 01:46:56 GMT 2012view pretty

variable dir "MOOP"

proc ss {} {
    set dir MOOP1
    source sourced.tcl
}
source sourced.tcl
ss