<> <> <> <> <> <> <<>> DIRECTORY GGBasicTypes, GGCoreTypes, GGInterfaceTypes, GGModelTypes, GGSegmentTypes, GGScene; GGSelect: CEDAR DEFINITIONS = BEGIN BoundBox: TYPE = GGCoreTypes.BoundBox; Caret: TYPE = GGInterfaceTypes.Caret; Scene: TYPE = GGModelTypes.Scene; SelectionClass: TYPE = GGSegmentTypes.SelectionClass; Sequence: TYPE = GGModelTypes.Sequence; Slice: TYPE = GGModelTypes.Slice; SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor; SliceDescriptorGenerator: TYPE = GGModelTypes.SliceDescriptorGenerator; SliceGenerator: TYPE = GGModelTypes.SliceGenerator; SliceParts: TYPE = GGModelTypes.SliceParts; Traj: TYPE = GGModelTypes.Traj; TrajEnd: TYPE = GGModelTypes.TrajEnd; <> <<>> SelectAll: PROC [scene: Scene, selectClass: SelectionClass]; SelectEntireSlice: PROC [slice: Slice, scene: Scene, selectClass: SelectionClass]; SelectSlice: PROC [sliceD: SliceDescriptor, scene: Scene, selectClass: SelectionClass]; SelectSliceFromParts: PROC [slice: Slice, parts: SliceParts, scene: Scene, selectClass: SelectionClass]; SaveSelectionsInSliceAllClasses: PROC [slice: Slice, scene: Scene]; ReselectSliceAllClasses: PROC [slice: Slice, scene: Scene]; ReselectTraj: PROC [traj: Traj, trajEnd: TrajEnd, scene: Scene, extend: BOOL] RETURNS [newHot: Sequence]; <> <<>> DeselectEntity: PROC [entity: REF ANY, scene: Scene, selectClass: SelectionClass]; DeselectEntityAllClasses: PROC [entity: REF ANY, scene: Scene]; DeselectAll: PROC [scene: Scene, selectClass: SelectionClass]; DeselectAllAllClasses: PROC [scene: Scene]; DeselectSlice: PROC [slice: Slice, parts: SliceParts, scene: Scene, selectClass: SelectionClass]; DeselectEntireSlice: PROC [slice: Slice, scene: Scene, selectClass: SelectionClass]; <<>> <> <<>> IsSelectedInFull: PROC [slice: Slice, scene: Scene, selectClass: SelectionClass] RETURNS [BOOL]; <> IsSelectedInPart: PROC [entity: REF ANY, scene: Scene, selectClass: SelectionClass] RETURNS [BOOL]; <> <<1) entity is a slice. Some outline is selected all or in part.>> <<2) entity is an outline. Some trajectory is selected all or in part.>> <<3) entity is a trajectory. Some joint or segment is selected.>> <<4) entity is a sequence. Some joint or segment is selected>> NoSelections: PROC [scene: Scene, selectClass: SelectionClass] RETURNS [BOOL]; <> FindSelectedSlice: PROC [slice: Slice, selectClass: SelectionClass] RETURNS [sliceD: SliceDescriptor]; GetLastSelection: PROC [scene: Scene] RETURNS [sliceD: SliceDescriptor]; <> DuplicateSelections: PROC [scene: Scene, fromClass: SelectionClass, toClass: SelectionClass]; <> <> SubstituteForSegment: PROC [traj: Traj, segNum: NAT, newRun: Traj, scene: Scene] RETURNS [bBox: BoundBox, newTraj: Traj]; <> ListSelected: PROC [scene: Scene, selectClass: SelectionClass] RETURNS [selectedList: LIST OF SliceDescriptor]; SetSelected: PROC [scene: Scene, selectClass: SelectionClass, selected: LIST OF SliceDescriptor]; <> UniformSelections: PROC [scene: Scene, selectClass: SelectionClass] RETURNS [BOOL]; <> END.