patch to button.tcl