-- /ivy/binding/calendar/calBrowser.mesa
-- Last edited by: Binding, August 16, 1984 2:53:32 pm PDT
DIRECTORY
Calendar USING [ ZoomLevel, Date],
Hickory USING [ Reason, EventList],
RopeSets USING [ RopeSet]
;
CalBrowser: CEDAR DEFINITIONS = BEGIN
DisplayEvents: PRIVATE --INTERNAL--PROCEDURE [ zoom: Calendar.ZoomLevel, date: Calendar.Date];
displays the events of the current date depending on the zoom level that is indicated.
HickoryChange: PRIVATE --INTERNAL-- PROCEDURE [ reason: Hickory.Reason, oldEvl, newEvl: Hickory.EventList, data: RopeSets.RopeSet];
having updated calStorage, we now update the viewers of the browser...
oldEvl is the list of all events that were erased from calStorage and newEvl is the stuff
that now is new in calStorage..
END.