#! ../mofe --f
# sample script to demonstrate various modes of XmScale (requires Motif 2.0)
scriptNeeds XmNotebook "This script requires Motif 2.0!"

mergeResources topLevel *slider.showArrows EACH_SIDE
XmRowColumn rc topLevel orientation horizontal
foreach mode {slider thermometer} {
  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