<> <> DIRECTORY Imager USING [Context], Containers USING [Container], ViewerClasses USING [Viewer], Terminal USING [Virtual], Rope USING [ ROPE ]; QuickViewer: CEDAR DEFINITIONS ~ BEGIN BuildViewer: PROC[ menuLabels: LIST OF ATOM, ReDrawProc: PROC[Imager.Context], QuitProc: PROC[] , ButtonProc: PROC[bttn: ATOM, x, y: REAL, ctrl, shift: BOOL], viewerTitle: Rope.ROPE, noScroll: BOOLEAN _ FALSE ] RETURNS [context: Imager.Context]; <> DrawInViewer: PROC [proc: PROC [Imager.Context]]; <> <<>> <> Reset: PROC [context: Imager.Context]; QuickView: TYPE = REF QuickViewData; QuickViewData: TYPE = RECORD [ outer: Containers.Container _ NIL, -- enclosing container viewer: ViewerClasses.Viewer, -- graphics area within terminal: Terminal.Virtual, xTranslation, yTranslation: REAL _ 0., xLeft, xRight, yBottom, yTop: REAL, paint: PROC [context: Imager.Context] ]; END.