DIRECTORYButtons USING [Create],CedarInitOps USING [Seconds, Sleep],CedarSnapshot USING [CheckpointProc, Register, RollbackProc],ClassIncreek USING [ActionBody, GetAction, Increek, IncreekError, NewStdIncreek, SetAtLatest],Cursors USING [CursorType, SetCursor],Interminal USING [KeyState],Menus USING [Entry, EntryNotifyRecord],Process USING [Abort, Detach, Pause, priorityForeground, Seconds, SecondsToTicks, SetPriority],Rope USING [ROPE],UserProfile USING [Number],UserTerminal USING [keyboard],ViewerClasses USING [NotifyProc, Viewer],ViewerOps USING [EnumerateViewers, EnumProc, PaintViewer, SaveAllEdits];ViewerProcessesImpl: CEDAR MONITORIMPORTS Buttons, CedarSnapshot, CedarInitOps, ClassIncreek, Cursors, Process, UserProfile, UserTerminal, ViewerOps =BEGINEmergencySaveAllEdits: PROC = TRUSTED BEGINkeys: LONG POINTER TO Interminal.KeyState = LOOPHOLE[UserTerminal.keyboard];PaintCaption: ViewerOps.EnumProc = TRUSTED BEGINViewerOps.PaintViewer[v, caption];END;Process.SetPriority[Process.priorityForeground];DO	-- foreverProcess.Pause[Process.SecondsToTicks[1]];IF --keys.bits[Lock]=down AND-- keys.bits[LeftShift]=down AND keys.bits[RightShift]=down AND keys.bits[Spare3]=down THEN BEGINCursors.SetCursor[activate];ViewerOps.SaveAllEdits[];Cursors.SetCursor[textPointer];ViewerOps.EnumerateViewers[PaintCaption];	-- ok if this doesn't finishEND;ENDLOOP;END;idleProcess: PROCESS _ NIL;AutoIdle: PROC = TRUSTED BEGINENABLE ANY => GOTO Punt;	-- punt if bad number or ABORTEDincreek: ClassIncreek.Increek;action: ClassIncreek.ActionBody;idleTime: Process.Seconds;powerOff: CedarInitOps.Seconds;idleTime _ 60 * UserProfile.Number[key: "AutoIdle.Timeout", default: 20];powerOff _ 60 * UserProfile.Number[key: "AutoIdle.PowerOff", default: 0];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	=> CedarInitOps.Sleep[powerOff: powerOff];	-- idleENDCASE;ENDLOOP;EXITS Punt => NULL;END;IdleOn: CedarSnapshot.RollbackProc = BEGIN idleProcess _ FORK AutoIdle[];END;IdleOff: CedarSnapshot.CheckpointProc = TRUSTED BEGINProcess.Abort[idleProcess];JOIN idleProcess;idleProcess _ NIL;END;IdleProc: ViewerClasses.NotifyProc = {TRUSTED {Process.Detach[FORK CedarInitOps.Sleep[]]};};myNotifyRecord: Menus.EntryNotifyRecord ~ [trigger: LIST[all],  notifyData: LIST[$Idle]];myEntry: Menus.Entry ~ [name: "Idle", actions: LIST[myNotifyRecord] ]; [] _ Buttons.Create[entry: myEntry, proc: IdleProc];TRUSTED {Process.Detach[FORK EmergencySaveAllEdits[]]};TRUSTED {CedarSnapshot.Register[IdleOff, IdleOn]; IdleOn[rollback]};END.    ê  ViewerProcessesImpl.mesa;  written by S. McGregorEdited by McGregor on July 13, 1983 4:16 pmLast Edited by: Maxwell, May 24, 1983 8:06 amLast Edited by: Pausch, August 26, 1983 12:18 pm[self: Viewer, input: LIST OF REF ANY]Ê_  –"cedar" style˜ JšÏc1™1Jš+™+J™-J™0J˜ šÏk	˜	Jšœžœ
˜Jšœžœ˜$Jšœžœ*˜=JšœžœL˜^Jšœžœ˜&Jšœžœ˜Jšœžœ˜'JšœžœR˜_Jšœžœžœ˜Jšœžœ
˜Jšœžœ˜Jšœžœ˜)Jšœ
žœ9˜HJ˜ —Jšœžœž˜"J˜ Jšžœm˜tJ˜ Jšž˜J˜ šÏnœžœžœž˜+Jš	œžœžœžœžœ˜Lšœ#žœž˜0Jšœ"˜"Jšžœ˜—Jšœ0˜0šžœ
˜J˜)šžœœžœžœžœž˜~Jšœ˜Jšœ˜Jšœ˜Jšœ*˜FJšžœ˜—Jšžœ˜—Jšžœ˜—J˜ Jšœžœžœ˜J˜ šŸœžœžœž˜JšžœžœžœÐck˜9J˜J˜ Jšœ˜J˜JšœI˜IJšœI˜IJšžœžœžœ˜J˜'šžœ
˜J˜"J˜0šœ3œ˜HJšœžœ˜%—šžœžœž˜Jšœ4˜;Jšžœ˜—Jšžœ˜—Jšžœ	žœ˜Jšžœ˜J˜ —šœ%žœ˜+Jšœžœ˜Jšžœ˜—J˜ šœ(žœž˜5J˜Jšžœ˜Jšœžœ˜Jšžœ˜J˜ —šœ&˜&Jšœ&™&Jšžœžœ˜4J˜J˜ —Jšœ4žœžœ	˜YJšœ/žœ˜FJ˜Jšœ4˜4J˜ Jšžœžœ˜7J˜ Jšžœ>˜EJšžœ˜J˜ J˜ — …—    ,  u  