[dingnuts]

You only need two Tcl statements, shown here on one line for the sake of this pissing contest:

button .b -text "Do Nothing" -command {exit}; pack .b