set-response-visibility.tcl