wm title . "Dateentry Example"

##=========================================================
##	Create a few dateentry iwidgets
##=========================================================
##
iwidgets::dateentry .birth \
  -labeltext "Birthday:" \
  -outline black \
  -weekendbackground "#CCCCCC" \
  -startday monday \
  -days "M T W T F S S"

iwidgets::dateentry .ann \
  -labeltext "Anniversary:" \
  -outline black \
  -weekendbackground "#CCCCCC" \
  -startday monday \
  -days "M T W T F S S"

iwidgets::dateentry .today \
  -labeltext "Today:" \
  -outline black \
  -weekendbackground "#CCCCCC" \
  -startday monday \
  -days "M T W T F S S"

pack .birth .ann .today

iwidgets::Labeledwidget::alignlabels .birth .ann .today

##
##	Show an initial date
##
.birth show 1/1/2000
.ann show 1/1/2000