# ---------------------------------------------------------------------- | |
# 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" |