push button tcl tk

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

pack .pb \
 -padx 12 \
 -pady 12

posted @ 2011-05-03 21:57  greencolor  阅读(152)  评论(0)  编辑  收藏  举报