ReminderdefsPrivate.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.
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];
pretend it is now for the purposes of posting reminders.
itIsNow:
PRIVATE Tempus.Packed;
determines now both for the purposes of posting reminders and also registration of events.
walnutUser: PRIVATE BOOL;
peanutUser: PRIVATE BOOL;
END.