(a)
set CloseBtn @302,404

(b)
send_xevents $CloseBtn click 1

(c)
proc CloseBtn {} {
  send_xevents @302,404 click 1
}
CloseBtn

Example 1: (a) Sample output; (b) invoking the button in (a); (c) "prettifying" the script.