<> <> <> <> <<>> DIRECTORY MBQueue USING [Action], Menus USING [ClickProc]; MBQueuePrivate: CEDAR DEFINITIONS ~ BEGIN <> <> <> <> <> <> <> <> <> <> <> Action: TYPE ~ MBQueue.Action; Event: TYPE ~ LIST OF Action; Queue: TYPE ~ REF QueueObj; QueueObj: TYPE ~ MONITORED RECORD [ firstEvent: Event _ NIL, pushModel: BOOL, newEvent: CONDITION, notifierRunning: BOOL _ FALSE ]; <<>> <<>> Enqueue: PROC [q: Queue, e: Event]; <> <<>> MyClickInfo: TYPE ~ REF MyClickInfoObj; MyClickInfoObj: TYPE ~ RECORD [ proc: Menus.ClickProc, clientData: REF ANY, q: Queue ]; UserClick: Menus.ClickProc; <> END.