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. κ 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 ΚŠ•NewlineDelimiter –(cedarcode) style™codešœ™Kšœ Οeœ6™BKšΟnœ<™DK™$K™"K™—šΟk ˜ K˜2K˜—Kšž œŸœŸ œŸ˜&K˜KšœŸœ˜KšœŸœ˜!KšœŸœ"˜5KšœŸœ ˜5K˜šœ ŸœŸœ˜K˜=Kšœ ŸœŸœΟc5˜MKšœŸœŸœ Ÿœ )˜CKšœ ŸœŸœ Ÿœ ˜2Kš œ ŸœŸœŸœŸœ Ÿœ %˜OKšœ˜Kšœ *˜HKšœŸœ t˜‹Kšœ =˜YKšœŸœ˜K˜K˜K˜—šœŸœŸœ˜KšœŸœŸœŸœ &˜MKšœ ŸœŸœŸœ "˜LKšœŸœŸœ 9˜XKšœŸœ +˜NKšœŸœŸœŸœ !˜FKšœŸœŸœŸœ ˜GKšœ ŸœŸœ 6˜RKšœŸœŸœŸœ $˜LKšœ ŸœŸœŸœ "˜LKšœŸœŸœ 9˜XKšœŸœŸœŸœ #˜JKšœ ŸœŸœŸœ !˜JKšœŸœŸœ 8˜VKšœ˜K˜—K˜KšŸœ˜K˜—…—D Έ