<<>> <> <> <> <> <> <<>> DIRECTORY GGBasicTypes, GGRefreshTypes, GGStateExtras, ImagerTransformation; GGEmbedTypes: CEDAR DEFINITIONS = BEGIN Transformation: TYPE = ImagerTransformation.Transformation; Vector: TYPE = GGBasicTypes.Vector; EmbedDataObj: TYPE = RECORD [ paintProc: GGRefreshTypes.PaintProc, viewportProc: GGStateExtras.ViewportProc, viewportData: REF ¬ NIL, clientData: REF, beingBorn: BOOL ¬ TRUE, scrollDue: Transformation ¬ NIL, scaleCaretActive: BOOL ¬ FALSE, scaleCaretStart: Vector, scaleCaretCurrent: Vector ]; END.