DIRECTORY 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], newStartTime: BOOL _ TRUE, justPretending: 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 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: Tempus.Packed]; 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 See Remember.Tioga for documentation and examples of how to use the Remember package. pretend it is now for the purposes of posting reminders. determines now both for the purposes of posting reminders and also registration of events. Κf– "cedar" style˜JšœΟc™Jšœ0™0J™UJ˜šΟk ˜ Jšœžœ ˜Jšœžœžœ˜Jšœžœ"˜.Jšœžœ ˜Jšœ˜J˜—J˜šΠblœžœž˜.J˜—JšΠknœžœžœ˜JšΟnœžœ˜Jš‘ œžœ˜+Jš‘œžœ˜Jš‘œžœ˜$J˜Jš‘œžœžœ ˜š‘ œžœžœ#˜@Jšœžœ˜ Jšœ-˜-Jšœžœžœ˜Jšœžœžœ˜Jšœžœžœ˜Jšœ žœžœ˜Jšœžœ˜Jšœ'?˜fJšœK˜cJšœ˜Jšœ!˜!Jšœ$˜$Jšœ žœžœ˜Jšœžœ˜Jšœ žœ˜Jšœ žœ5˜GJšœ˜—J˜Jš‘ œžœ˜/J˜š‘œž œ˜8Jšœ8™8J˜—š‘œžœ˜Jšœ[™[—J˜Jš‘œžœ˜J˜Jš‘œžœžœ˜&J˜JšΟb œžœžœ˜Jš‘ œžœžœ˜Jš‘œ˜!J˜Jšžœ˜J˜—…—Jξ