blob: d74a0bfb19c11b9325ab2ef91055bfb2f58ac08a [file] [log] [blame]
# ----------------------------------------------------------------------
# DEMO: optionmenu in [incr Widgets]
# ----------------------------------------------------------------------
package require Iwidgets 4.0
iwidgets::optionmenu .cb -labeltext "Font:" -labelpos w -command {
puts "selected: [.cb get]"
}
pack .cb
.cb insert end Ariel Courier Helvetica Knarly Lucida \
Rumpus Symbol Times "Zapf Dingbats"