wm title . "Query" button .yes -text Yes -command { exit 0 } button .no -text No -command { exit 1 } pack .yes -side left pack .no -side right