label .x1 -text "ここんにちは"
pack .x1

button .b1 -text "Quit" -command { exit }
pack .b1