DIRECTORYBasicTime USING [nullGMT],Menus USING [MenuEntry],Rope USING [ROPE],Tempus USING [Packed, PackedSeconds, Seconds],ViewerClasses USING [Viewer];RememberDefsPrivate: 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.  €  RememberDefsPrivate.mesa; Last Edited by: Teitelman, June 29, 1983 1:09 pmLast Edited by: Pier, March 13, 1984 6:11:12 pm PSTSee Remember.Tioga for documentation and examples of how to use the Remember package.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. 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˜ JšœÏc™Jšœ0™0J™3J™UJ˜ šÏk	˜	Jšœ
žœ˜Jšœžœ˜Jšœžœžœ˜Jšœžœ"˜.Jšœžœ	˜Jšœ˜J˜ —J˜ šÐblœžœž˜.J˜ —JšÐknœžœžœ˜JšÏnœžœ˜Jš¡œžœ˜+Jš¡œžœ˜Jš¡œžœ˜$J˜ Jš¡œžœžœ˜š¡œžœžœ#˜@Jšœžœ˜Jšœ-˜-Jšœ1˜1Jšœžœžœ˜Jšœžœžœ˜Jšœžœžœ˜Jšœžœžœ˜Jšœžœžœ˜Jšœžœ˜Jšœ'?˜fJšœ*˜*JšœK˜cJšœ˜Jšœ!˜!Jšœ$˜$Jšœ	žœžœ˜Jšœžœ˜Jšœžœ˜Jšœžœ5˜GJšœ˜—J˜ Jš¡œžœ˜/J˜ š¡œžœ:˜XJšœ«™«J˜ —š¡œžœ˜Jšœ[™[—J˜ Jš¡œžœ˜J˜ Jš¡œžœžœ˜&J˜ JšÏb
œžœžœ˜Jš¡
œžœžœ˜Jš¡œ˜!J˜ Jšžœ˜™0J™ JšœÏrœ?£™g—J™ J™ — …—       +  