#!../mofe --f
# sample script to demonstrate combo boxes (requires Motif 2.0)

if [string match "" [info command XmComboBox]] {
  XmLabel w topLevel labelString "This script requires Motif 2.0!"
} else {
  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