itcl/iwidgets/demos/optionmenu

   1 # ----------------------------------------------------------------------
   2 #  DEMO: optionmenu in [incr Widgets]
   3 # ----------------------------------------------------------------------
   4 package require Iwidgets 4.0
   5
   6 iwidgets::optionmenu .cb -labeltext "Font:" -labelpos w -command {
   7     puts "selected: [.cb get]"
   8 }
   9 pack .cb
  10
  11 .cb insert end Ariel Courier Helvetica Knarly Lucida \
  12     Rumpus Symbol Times "Zapf Dingbats"