create-view.tcl