set-view.tcl