wm title . "Optionmenu Example"

##
##	supporting procedure
##
proc selectProc {} {

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

	return

}; # end selectProc proc


##=========================================================
##	Create an optionmenu iwidget
##=========================================================
##
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
}

##
##	post configure the menu
##
.om delete 1 2
.om sort ascending
.om select Linux
.om configure \
	-cyclicon true