push button tcl tk
iwidgets::pushbutton .pb \
-text "Go ahead, hit me..." \
-command {puts OUCH!!} \
-defaultring 1
pack .pb \
-padx 12 \
-pady 12
iwidgets::pushbutton .pb \
-text "Go ahead, hit me..." \
-command {puts OUCH!!} \
-defaultring 1
pack .pb \
-padx 12 \
-pady 12