tcl tk

package require Tk

button .b \
    -text "Hello, world" \
    -command { destroy . }
pack .b