DIRECTORY Imager USING [Context], ImagerFont USING [Font], JaM USING [State], JaMImagerContexts USING [DCList], ViewerClasses USING [Viewer]; JaMIPrivate: CEDAR DEFINITIONS = { State: TYPE = JaM.State; Info: TYPE = REF InfoRec; InfoRec: TYPE = MONITORED RECORD [ state: State, typescript: ViewerClasses.Viewer, viewer: ViewerClasses.Viewer, vdc: Imager.Context, --viewer's dc font: ImagerFont.Font, venabled: BOOLEAN ¬ TRUE, ipdc: Imager.Context ¬ NIL, -- Interpress's context ipenabled: BOOL ¬ FALSE, dcList: JaMImagerContexts.DCList, bugflag, mouseflag: BOOLEAN, bugged: CONDITION, mouse: CONDITION, bugX, bugY: REAL, mouseX, mouseY: REAL ]; CreateInfo: PROC [state: State] RETURNS [info: Info]; ForgetInfo: PROC [state: State]; GetInfo: PROC [state: State] RETURNS [info: Info]; RegisterImager: PROC[state: State]; RegisterColor: PROC[state: State]; RegisterInterpress: PROC[state: State]; RegisterVector2: PROC [state: State]; RegisterShowIP: PROC [state: State]; RegisterDunn: PROC [state: State]; RegisterRES: PROC [state: State]; }. ψ JaMIPrivate.mesa Copyright Σ 1985, 1992 by Xerox Corporation. All rights reserved. Last Edited by: Stone, February 3, 1984 4:32:39 pm PST Last edited by: Mik Lamming - June 8, 1987 4:58:50 pm PDT Tim Diebert: August 1, 1985 12:52:02 pm PDT Κ •NewlineDelimiter –"cedarcode" style™codešœ™Kšœ Οeœ6™BKšœ6™6K™9K™+—K˜šΟk ˜ Kšœžœ ˜Kšœ žœ˜Kšœžœ ˜Kšœžœ ˜!Kšœžœ ˜K˜—KšΠln œžœ˜"˜Kšœžœ ˜K˜Kšœžœžœ ˜šœ žœž œžœ˜"Kšœ ˜ K˜!K˜KšœΟc ˜"K˜Kšœ žœžœ˜Kšœžœ œ˜3Kšœ žœžœ˜K˜!Kšœžœ˜Kšœž œ˜Kšœž œ˜Kšœ žœ˜Kšœž˜K˜K˜—KšΟn œžœžœ˜5Kš‘ œžœ˜ Kš‘œžœžœ˜2K˜Kš‘œžœ˜#Kš‘ œžœ˜"Kš‘œžœ˜'Kš‘œžœ˜%Kš‘œžœ˜$Kš‘ œžœ˜"Kš‘ œžœ˜!K˜K˜K˜——…—