GGScrollMonitorImpl.mesa
Copyright © 1992 by Xerox Corporation. All rights reserved.
Contents: Monitors the variable that encodes how much scrolling the user has asked for that has not yet been performed.
Kenneth A. Pier, August 12, 1992 2:28 pm PDT
Bier, March 18, 1993 3:30 pm PST
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] = {
m is in Viewer (parent) coordinates.
ggData.embed.scrollDue ¬ ggData.embed.scrollDue.Concat[m];
};
END.