<> <> <> <> <> <<>> DIRECTORY ActionQueue USING [Action, Queue, Event, QueueObj], Menus USING [ClickProc]; ActionQueuePrivate: CEDAR DEFINITIONS ~ BEGIN <> <> <> <> <> <> <> <> <> <> <> Action: TYPE ~ ActionQueue.Action; Event: TYPE ~ ActionQueue.Event; Queue: TYPE ~ ActionQueue.Queue; QueueObj: TYPE ~ ActionQueue.QueueObj; <<>> <<>> Enqueue: PROC [qPart: REF QueueObj, e: Event]; <> <<>> MyClickInfo: TYPE ~ REF MyClickInfoObj; MyClickInfoObj: TYPE ~ RECORD [ proc: Menus.ClickProc, clientData: REF ANY, immediate: BOOL, q: Queue ]; UserClick: Menus.ClickProc; <> END.