#!../mofe --f
# This script shows how to handle option menues in Wafe.
# Gustaf Neumann                 Mohegan Lake, Jul 23, 1994

XmRowColumn rc topLevel
XmSimpleOptionMenu days rc
foreach day {Monday Tuesday Wednesday Thursday Friday Saturday Sunday} {
  XmPushButtonGadget $day [gV days subMenuId]
}
XmPushButton Quit rc activateCallback {
  puts stderr "... and the day was [gV [gV days menuHistory] labelString]"
  quit
}
realize
