toggle-open-close.tcl