set-view-nh.tcl