Update snit_widget_sample.tcl