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

if [string match "" [info command XmScaleSetTicks]] {
  XmLabel w topLevel labelString "This script requires Motif 2.0!"
} else {
  mergeResources topLevel *slider.showArrows EACH_SIDE
  set modes "slider thermometer"
  XmRowColumn rc topLevel orientation horizontal
  foreach mode $modes {
    XmScale $mode rc slidingMode $mode titleString $mode height 600 \
	showValue near_border value 20 editable true 
    XmScaleSetTicks $mode 10 1 4 15 10 5
  } 
}
realize