GGSceneType.mesa
Copyright Ó 1986, 1992 by Xerox Corporation. All rights reserved.
Contents: The concrete Scene type (shared by GGScene and GGSelect).
Pier, August 27, 1987 1:37:48 pm PDT
Bier, February 5, 1993 1:37 pm PST
DIRECTORY
BasicTime, GGModelTypes, GGInterfaceTypes, Imager;
GGSceneType: CEDAR DEFINITIONS = BEGIN
Color: TYPE = Imager.Color;
Slice: TYPE = GGModelTypes.Slice;
FeatureCycler: TYPE = GGInterfaceTypes.FeatureCycler;
SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor;
SceneObj:
TYPE =
RECORD [
lastEditTime: BasicTime.ExtendedGMT ¬ [BasicTime.nullGMT, 0],
ptrValid: BOOL ¬ FALSE, -- TRUE when ptr accurately points to end of entities
ptr: LIST OF Slice ¬ NIL, -- finger pointer to end of entities list
entities: LIST OF Slice ¬ NIL, -- a list of slices
oldEntities: LIST OF LIST OF Slice ¬ NIL, -- lists of slices. Used by Undelete.
selected: SelectedData,
savedSelected: SelectedData, -- needed to recover from Abort operations
prioritiesValid: BOOL, -- TRUE if no top level entities have been added or deleted since priorities were last updated, Bier, March 10, 1987
currentColor: Imager.Color, -- used by GGParseImpl to read sampled colors from Interpress
lock: ATOM ¬ $NotLocked,
backgroundColor: Color
];
SelectedData:
TYPE =
RECORD [
normal: LIST OF SliceDescriptor ¬ NIL, -- a list of selected SliceDescriptors
normalPtr: LIST OF SliceDescriptor ¬ NIL, -- finger pointer to end of normal
normalPtrValid: BOOL ¬ FALSE, -- TRUE when normalPtr accurately points to end of normal
normalLast: SliceDescriptor ¬ NIL, -- the last parts that were normal selected
hot: LIST OF SliceDescriptor ¬ NIL, -- a list of hot SliceDescriptors
hotPtr: LIST OF SliceDescriptor ¬ NIL, -- finger pointer to end of hot
hotPtrValid: BOOL ¬ FALSE, -- TRUE when hotPtr accurately points to end of normal
active: LIST OF SliceDescriptor ¬ NIL, -- a list of active SliceDescriptors
activePtr: LIST OF SliceDescriptor ¬ NIL, -- finger pointer to end of active
activePtrValid: BOOL ¬ FALSE, -- TRUE when activePtr accurately points to end of normal
match: LIST OF SliceDescriptor ¬ NIL, -- a list of match SliceDescriptors
matchPtr: LIST OF SliceDescriptor ¬ NIL, -- finger pointer to end of match
matchPtrValid: BOOL ¬ FALSE, -- TRUE when matchPtr accurately points to end of match,
featureCycler: FeatureCycler
];
END.