DIRECTORY Rope USING [ROPE], Tempus USING [Packed, PackedSeconds, Seconds], ViewerClasses USING [Viewer] ; ReminderDefsPrivate: 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, 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; walnutUser: PRIVATE BOOL; peanutUser: PRIVATE BOOL; END. BReminderdefsPrivate.mesa; Last Edited by: Teitelman, June 21, 1983 11:29 am See Reminder.Tioga for documentation and examples of how to use the new reminder 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. Κ%– "cedar" style˜JšΟc™Jšœ1™1J™YJ˜šΟk ˜ 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šœ žœ5˜GJšœ˜—J˜Jš‘ œžœ˜/J˜š‘œž œ˜8Jšœ8™8J˜—š‘œžœ˜Jšœ[™[—J˜JšΟb œžœžœ˜Jš‘ œžœžœ˜J˜Jšžœ˜J˜—…—¬