
DIRECTORY
KeyTypes, ViewersWorldRefType;

IdleBackdoor: CEDAR DEFINITIONS = {

Activity: TYPE ~ {idle, loggingIn, unidle};

FullIdleHandler: TYPE ~ PROC [data: REF ANY, old, new: Activity];
IdleRegistration: TYPE = REF;

RegisterFullIdleHandler: PROC [handler: FullIdleHandler, data: REF ¬ NIL] RETURNS [IdleRegistration];
UnregisterFullIdleHandler: PROC [registration: IdleRegistration];

DoASleep: PROC;

WaitForIdle: PROC [idle: BOOL];

Animator: TYPE ~ REF AnimatorPrivate;
AnimatorPrivate: TYPE ~ RECORD [
Animate: PROC [world: ViewersWorldRefType.Ref, ShouldReturn: PROC [watch: KeyFilter] RETURNS [BOOL], data: REF ANY ¬ NIL],
data: REF ANY ¬ NIL
];

defaultAnimator: READONLY Animator;
GetAnimator: PROC RETURNS [Animator];
SetAnimator: PROC [a: Animator];

PushAnimator: PROC [a: Animator];
PopAnimator: PROC;

KeyCode: TYPE = KeyTypes.KeyCode;
KeyFilter: TYPE = RECORD [
first, last: KeyTypes.KeyCode,
pass: PACKED ARRAY KeyTypes.KeyCode OF BOOL
];

defaultKeyFilter: READONLY KeyFilter;

}.
     
IdleBackdoor.mesa
Copyright Ó 1986, 1991, 1992 by Xerox Corporation.  All rights reserved.
Russ Atkinson (RRA) May 12, 1986 8:10:48 pm PDT
Last tweaked by Mike Spreitzer on May 26, 1987 5:17:11 pm PDT
Bier, December 1, 1988 1:53:43 pm PST
Christian Jacobi, March 3, 1992 12:21 pm PST
= TestAndSet[{RETURN [idle, loggingIn=>wait, unidle=>idle]}]
Wait for given idleness.
The animator can only change when not animating; this procedure waits until that's true.
elts outside [first .. last] always considered FALSE
 Ê(  •NewlineDelimiter
–(cedarcode) style™ code™Kšœ
Ïeœ=™HK™/K™=K™%K™,K˜ šÏk	˜	Kšœ˜——K˜ šÏnœžœžœ˜#K˜ Kšœ
žœ˜+K˜ Kš	œžœžœžœžœ˜AKšœžœžœ˜K˜ Kš
Ÿœžœ"žœžœžœ˜eKšŸœžœ"˜AK˜ šŸœžœ˜Kšœžœ(™<—K˜ šŸœžœžœ˜K™—K˜ Kšœ
žœžœ˜%šœžœžœ˜ KšŸœžœ"Ÿœžœžœžœ	žœžœžœ˜zKšœžœžœž˜K˜—K˜ Kšœžœ
˜#KšŸœžœžœ˜%šŸœžœ˜ K™X—K˜ KšŸœžœ˜!KšŸœžœ˜K˜ Kšœ	žœ˜!šœžœžœ˜Kšœ˜šœžœžœžœž˜+Kšœ4™4—Kšœ˜—K˜ Kšœžœ˜%K˜ —K˜— …—    ì    