"      NAME     CalendarView
       AUTHOR   Alexis.Rzewski@mci.com
       URL      
       FUNCTION helps user select a date in a calendar dialog view
       ST-VERSIONS      VisualAge 4.0
       PREREQUISITES    (none)
       CONFLICTS        (none known)
       DISTRIBUTION     world
       VERSION  1.0
       DATE     02-Mar-98

SUMMARY

Implements a dialog-like calendar window with an OK and Cancel button.  
Two comboboxes allow the user to pick a month and year.
A table with each row as a week of seven days allows the user to pick the day of month.

To hook this to a consumer application, add something like the following to the application
that opens the calendar window and is notified with a Date instance when the OK button
is pressed:

finalInitialize
        super finalInitialize.
        self settlementCalendarButton abtWhen: #clicked perform: (#openSettlementCalendar asMessageTo: self).

openSettlementCalendar
        | calendarView |
        calendarView := CalendarView new.
        calendarView 
                abtWhenPrimitive: #value:
                perform: (DirectedMessage new
                                receiver: self;
                                selector: #settlementDate:;
                                arguments: (Array with: nil)).
        calendarView openWindow.

settlementDate: aDate
        (self subpartNamed: 'Settlement Calendar Textfield') object: aDate

                                Alexis Rzewski
"!