DIRECTORYBasicTime USING [nullGMT],Menus USING [MenuEntry],Rope USING [ROPE],Tempus USING [Packed, PackedSeconds, Seconds],ViewerClasses USING [Viewer];RememberPrivate: CEDAR DEFINITIONS= BEGINROPE: TYPE = Rope.ROPE;Packed: TYPE = Tempus.Packed;PackedSeconds: TYPE = Tempus.PackedSeconds;Seconds: TYPE = Tempus.Seconds;Viewer: TYPE = ViewerClasses.Viewer;Event: TYPE = REF EventRecord;EventRecord: TYPE = RECORD[  -- find out how to make this opaquetext: ROPE,timeToStartNotification: PackedSeconds _ [0],trueTimeToStartNotification: PackedSeconds _ [0],newStartTime: BOOL _ TRUE,justPretending: BOOL _ FALSE,restoreTrueTimes: BOOL _ FALSE,blink: BOOL _ FALSE,destroyed: BOOL _ FALSE,repeat: ROPE, nextNotification: PackedSeconds _ [0], -- cache for use with repeat so don't have to compute each timetrueNextNotification: PackedSeconds _ [0],leadTime: Seconds _ 0,  -- saved separately from timeToStartNotification so can write it back out  untilTime: Seconds _ 0,durationTime: Tempus.Seconds _ 0,getSeriousAfter: Tempus.Seconds _ 0,message: ROPE _ NIL,viewer: Viewer _ NIL,iconLabel: ROPE,iconFlavor: ROPE  -- no point in constructing flavor until you need it.];IconLabelType: TYPE = {prev, next, this, none};EnterEventMinder: PRIVATE PROC [itIsNow: Packed, itIsLater: Packed _ BasicTime.nullGMT];itIsNow: PRIVATE Tempus.Packed;Save:  PRIVATE PROC;AddEvent: PRIVATE PROC [event: Event];walnutUser: PRIVATE BOOL;peanutUser: PRIVATE BOOL;reminderButtons: Menus.MenuEntry;END.  ˜  RememberPrivate.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.Last Edited by: Teitelman, June 29, 1983 1:09 pmLast Edited by: Pier, March 13, 1984 6:11:12 pm PSTRick Beach, April 4, 1985 4:24:37 pm PSTpretend it is now for the purposes of posting reminders. If a second time is specified (itIsLater), look for a range of reminders to display between itIsNow and itIsLater.determines now both for the purposes of posting reminders and also registration of events. Change Log:Edited on March 13, 1984 6:11:12 pm PST, by Pierchanges to: EnterEventMinder to take an early and a later time and display a range of events, DIRECTORY Ê¦  –"cedar" style˜ codešœÏc™Kšœ
Ïmœ1™<Kšœ0™0K™3K™(—K˜ šÏk	˜	Kšœ
Ÿœ˜KšœŸœ˜KšœŸœŸœ˜KšœŸœ"˜.KšœŸœ
˜—K˜ KšÐblœŸ˜"šœŸ˜K˜ KšŸœŸœŸœ˜KšœŸœ˜KšœŸœ˜+Kšœ	Ÿœ˜KšœŸœ˜$K˜ KšœŸœŸœ˜šœŸœŸœ#˜@KšœŸœ˜Kšœ-˜-Kšœ1˜1KšœŸœŸœ˜KšœŸœŸœ˜KšœŸœŸœ˜KšœŸœŸœ˜KšœŸœŸœ˜KšœŸœ˜Kšœ'?˜fKšœ*˜*KšœK˜cKšœ˜Kšœ!˜!Kšœ$˜$Kšœ	ŸœŸœ˜KšœŸœ˜KšœŸœ˜KšœŸœ5˜GKšœ˜—K˜ KšœŸœ˜/K˜ šÏnœŸœ:˜XKšœ«™«K˜ —šœ	Ÿœ˜Kšœ[™[—K˜ Kš¡œŸœ˜K˜ Kš¡œŸœŸœ˜&K˜ KšœŸœŸœ˜KšœŸœŸœ˜Kšœ!˜!—K˜ KšŸœ˜K™ ™™0K™ KšœÏrœ?¢™g——K™ K™ — …—    ú  8  