option menu tcl tk

proc selectProc {} {

 set os [.om get]
 puts "The OS chosen is $os"

 return

}; # end selectProc proc

iwidgets::optionmenu .om \
 -labeltext "Operating Systems:" \
 -command selectProc

pack .om \
 -padx 10 \
 -pady 10

##
## Insert items into the list
##
foreach o {SunOS HP/UX AIX OS/2 Windows DOS Linux VMS} {
 .om insert end $o
}

.om sort ascending
.om select Linux
.om configure \
 -cyclicon true

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