wm title . "Calendar Example"

##=========================================================
##	Create a calendar iwidget
##=========================================================
##
iwidgets::calendar .cal \
  -startday monday \
  -days "M T W T F S S" \
  -outline black \
  -weekendbackground #CCCCCC \
  -width 250 \
  -height 200

pack .cal -expand yes -fill both

##
## Select yesterday as the date on the widget
##
.cal select yesterday

##
## get the selected date and display it
##
puts "Yesterday was: [.cal get]"