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
|