<<>> <> <> <> <> <> <<>> DIRECTORY GGEmbedTypes, GGInterfaceTypes, GGScrollMonitor, GGState, ImagerTransformation; GGScrollMonitorImpl: CEDAR MONITOR IMPORTS ImagerTransformation, GGState EXPORTS GGInterfaceTypes, GGScrollMonitor = BEGIN EmbedDataObj: PUBLIC TYPE = GGEmbedTypes.EmbedDataObj; -- exported to GGInterfaceTypes GGData: TYPE = GGInterfaceTypes.GGData; Transformation: TYPE = ImagerTransformation.Transformation; UpdateBiScrollersTransformAndClearDue: PUBLIC ENTRY PROC [ggData: GGData] = { GGState.BiScrollersConcat[ggData, ggData.embed.scrollDue, FALSE, ignore]; ggData.embed.scrollDue ¬ ImagerTransformation.Scale[1.0]; }; ConcatToDue: PUBLIC ENTRY PROC [ggData: GGData, m: Transformation] = { <> ggData.embed.scrollDue ¬ ggData.embed.scrollDue.Concat[m]; }; END.