<> <> <> DIRECTORY JaMInternal USING [Frame], Imager USING [Context]; JaMImagerContexts: DEFINITIONS = { Frame: TYPE = JaMInternal.Frame; DCList: TYPE = REF DCRec; DCRec: TYPE = RECORD [next: DCList, init: PROC RETURNS[Imager.Context], dc: Imager.Context, enabled, initOnErase: BOOLEAN, name: ATOM]; GProc: TYPE = PROC [dc: Imager.Context]; ForAllDCs: PROC [list: DCList, proc: GProc]; <> <> <> <> <> <> <> AddContext: PROC [frame: Frame, init: PROC RETURNS[Imager.Context], name: ATOM, enabled, initOnErase: BOOLEAN _ TRUE]; RemoveContext: PROC [frame: Frame, name: ATOM] RETURNS [context: Imager.Context]; <> EnableContext: PROC [frame: Frame, name: ATOM]; DisableContext: PROC [frame: Frame, name: ATOM]; EnableViewer: PROC [frame: Frame]; DisableViewer: PROC [frame: Frame]; NotFound: SIGNAL; --raised by RemoveContext, EnableContext and DisableContext }.