#! ../mofe --f
set year  [exec date +%Y]
set month [exec date +%m]

proc setMonth {month year} { sV month labelString [exec cal $month $year] }

XmRowColumn rc topLevel orientation HORIZONTAL
  XmFrame frame rc
  XmLabel month frame alignment ALIGNMENT_BEGINNING \
      fontList -*-courier-bold-r-*--18-* 
XmScrolledList months rc \
      items { January February March April May June July 
              August September October November December} \
      itemCount 12 \
      browseSelectionCallback "setMonth %p $year" \
      fontList -*-times-medium-r-*--18-* 
XmListSelectPos months $month true
XmListSetPos months $month
realize

