tree-frame.tcl