<> <> <> <> 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]; }.