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.

   J  
GGScrollMonitorImpl.mesa
Copyright c 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

m is in Viewer (parent) coordinates.
Ê  •NewlineDelimiter
™ code™Kšœ
Ïmœ1™<K™xK™,K™ —K™ šÏk	˜	K˜O—K˜ šœžœž˜"Kšžœ˜%Kšžœ%ž˜1—K˜ KšœžœžœÏc˜VK˜ Kšœžœ˜'Kšœžœ'˜;K˜ šÏn%œžœž
œ˜MKšœ:žœ
˜IK˜9K˜K˜ —š œžœž
œ(˜FK™$K˜:K˜K˜ —K˜ Kšžœ˜K˜ — …—    ø  F  