#! ../mofe --f
# sample script to demonstrate combo boxes (requires Motif 2.0)
scriptNeeds XmComboBox "This Script requires Motif 2.0!"

mergeResources topLevel *DROP_DOWN_LIST.matchBehavior QUICK_NAVIGATE
XmRowColumn rc topLevel
foreach t {COMBO_BOX DROP_DOWN_COMBO_BOX DROP_DOWN_LIST} {
  XmLabel $t: rc
  XmComboBox $t rc arrowSpacing 5 comboBoxType $t \
      selectionCallback "sV info labelString {%s selected in $t}"
  sV $t*List itemCount 4 items {we like to test} visibleItemCount 4
} 
XmLabel info rc labelString " "
realize