DIRECTORY AMBridge, AMTypes, Buttons, IdleHacking, Rope, ViewerClasses, ViewerOps; IdleHackingImpl: CEDAR PROGRAM IMPORTS AMBridge, AMTypes, ViewerOps EXPORTS IdleHacking = BEGIN TV: TYPE = AMTypes.TV; Type: TYPE = AMTypes.Type; procFieldName: Rope.ROPE _ "proc"; SetIdle: PUBLIC PROC [IdleProc: Buttons.ButtonProc] = TRUSTED { idleButton: ViewerClasses.Viewer = ViewerOps.FindViewer["Idle"]; buttonDataRec: TV = AMBridge.TVForReferent[idleButton.data]; buttonDataRecType: Type = AMTypes.TVType[buttonDataRec]; procIndex: INT = AMTypes.NameToIndex[buttonDataRecType, procFieldName]; procVar: TV = AMTypes.IndexToTV[buttonDataRec, procIndex]; arg: TV = AMBridge.TVForProc[IdleProc]; AMTypes.Assign[procVar, arg]; }; END. BIdleHackingImpl.Mesa Spreitzer, May 13, 1986 2:39:36 pm PDT Κ– "cedar" style˜code™K™&—K˜KšΟk œI˜RK˜šΟnœœ˜Kšœ˜$Kšœ ˜Kšœ˜—K˜Kš˜K˜Kšœœ œ˜Kšœœ˜K˜Kšœœ ˜"K˜š žœœœžœœ˜?K˜@Kšœœ+˜