#!../mofe --f
# sample script to demonstrate a spin box (requires Motif 2.0)

if [string match "" [info command XmSpinBox]] {
  XmLabel w topLevel labelString "This script requires Motif 2.0!"
} else {
  set date [exec date "+%y %m %d %H %M"]
  set year [lindex $date 0]
  if {$year<94} {set year 20$year} else {set year 19$year}

  mergeResources topLevel *orientation HORIZONTAL *packing PACK_TIGHT
  XmRowColumn p topLevel  orientation vertical
   XmRowColumn rc p

    XmFrame f1 rc; XmRowColumn rcf1 f1 
    XmLabel date rcf1 labelString "Date:"
    XmSpinBox sb1  rcf1 
     XmTextField day sb1 spinBoxChildType NUMERIC \
	 minimumValue 1 maximumValue 31 columns 3 \
	 position [expr [lindex $date 2]-1]
     XmTextField month sb1 \
	 values {January February March April May June July August 
	         September October November December } \
	 numValues 12 columns 12 position [expr [lindex $date 1]-1]
     XmTextField year sb1 spinBoxChildType NUMERIC \
	 minimumValue 1992 maximumValue 2020 columns 5 \
	 position [expr $year-1992]

    XmFrame f2 rc; XmRowColumn rcf2 f2 
    XmLabel time rcf2 labelString "Time:"
    XmSpinBox sb2  rcf2
     XmTextField hour sb2 spinBoxChildType NUMERIC \
	 minimumValue 0 maximumValue 23 columns 3 \
	 position [lindex $date 3]
     XmLabel : sb2
     XmTextField minute sb2 spinBoxChildType NUMERIC \
	 minimumValue 0 maximumValue 59 columns 3 \
	 position [lindex $date 4]

   XmRowColumn rc2 p 
    XmPushButton setd rc2 labelString "Set Date"
    XmPushButton quit rc2  labelString "Quit" activateCallback quit

}
realize
