ViewerProcessesImpl.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Doug Wyatt, April 21, 1985 4:03:53 pm PST
Russ Atkinson (RRA) June 19, 1985 2:07:31 pm PDT
DIRECTORY
Booting USING [CheckpointProc, RegisterProcs, RollbackProc],
Buttons USING [ButtonProc, Create],
ClassIncreek USING [ActionBody, GetAction, Increek, IncreekError, NewStdIncreek, SetAtLatest],
Idle USING [Sleep],
Process USING [Abort, Pause, Seconds, SecondsToTicks],
Rope USING [ROPE],
RuntimeError USING [UNCAUGHT],
SystemVersion USING [machineType],
UserProfile USING [Number],
ViewerClasses USING [Viewer],
ViewerOps USING [PaintEverything];
ViewerProcessesImpl:
CEDAR
MONITOR
IMPORTS Booting, Buttons, ClassIncreek, Process, Idle, RuntimeError, SystemVersion, UserProfile, ViewerOps
= BEGIN
idleProcess: PROCESS ← NIL;
AutoIdle:
PROC =
TRUSTED {
ENABLE RuntimeError.UNCAUGHT => GOTO Punt;
increek: ClassIncreek.Increek;
action: ClassIncreek.ActionBody;
idleTime: Process.Seconds ← 60 * UserProfile.Number["Viewers.AutoIdleTimeout", 20];
IF idleTime<=0 THEN RETURN;
increek ← ClassIncreek.NewStdIncreek[];
DO
-- forever
ClassIncreek.SetAtLatest[increek];
Process.Pause[Process.SecondsToTicks[idleTime]];
action ← ClassIncreek.GetAction[increek, dontWait,
----, clicksAndMotion
! ClassIncreek.IncreekError => LOOP];
WITH a: action
SELECT
FROM
timedOut => IdleProc[NIL];
ENDCASE;
ENDLOOP;
EXITS Punt => NULL;
};
IdleOn: Booting.RollbackProc = {
idleProcess ← FORK AutoIdle[];
RefreshIfNecessary[];
};
IdleOff: Booting.CheckpointProc =
TRUSTED {
Process.Abort[idleProcess];
JOIN idleProcess;
idleProcess ← NIL;
};
useIdleCrock:
BOOL ←
TRUE;
-- can be set to FALSE to provoke the bug
IdleProc: Buttons.ButtonProc = {
Idle.Sleep[];
RefreshIfNecessary[];
};
RefreshIfNecessary:
PROC = {
IF useIdleCrock
AND SystemVersion.machineType = dandelion
THEN
RRA: February 24, 1984 12:44:23 pm PST
This crock is here to get around a bug that is probably in VM. If we do not repaint everything, trash gets left on the screen after Idle comes back. This is tied up with the special memory used for the terminal on DLions, and nowhere else. Luckily, the bug appears benign except for the screen trash.
ViewerOps.PaintEverything[];
};
[] ← Buttons.Create[
info: [name: "Idle"], proc: IdleProc, fork: TRUE,
documentation: "Hide desktop pending user login"];
Booting.RegisterProcs[c: IdleOff, r: IdleOn]; IdleOn[NIL];
END.