Tcl/Tk - příklad
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