push button tcl tk

iwidgets::pushbutton .pb \
 -text "Go ahead, hit me..." \
 -command {puts OUCH!!} \
 -defaultring 1

pack .pb \
 -padx 12 \
 -pady 12