<> <> <> <> <<>> DIRECTORY GGInterfaceTypes, GGModelTypes, GGObjects; GGSelect: CEDAR DEFINITIONS = BEGIN EntityGenerator: TYPE = GGModelTypes.EntityGenerator; GargoyleData: TYPE = GGInterfaceTypes.GargoyleData; Outline: TYPE = GGModelTypes.Outline; SelectionClass: TYPE = GGInterfaceTypes.SelectionClass; Sequence: TYPE = GGModelTypes.Sequence; SequenceGenerator: TYPE = GGModelTypes.SequenceGenerator; Traj: TYPE = GGModelTypes.Traj; TrajGenerator: TYPE = GGModelTypes.TrajGenerator; <> <<>> SelectSequence: PROC [seq: Sequence, gargoyleData: GargoyleData, selectClass: SelectionClass] RETURNS [union, newMinusOld: Sequence]; <> <> <<>> SelectTraj: PROC [traj: Traj, gargoyleData: GargoyleData, selectClass: SelectionClass]; <> SelectOutline: PROC [outline: Outline, gargoyleData: GargoyleData, selectClass: SelectionClass]; <> SelectAll: PROC [gargoyleData: GargoyleData, selectClass: SelectionClass]; SelectEntity: PROC [entity: REF ANY, gargoyleData: GargoyleData, selectClass: SelectionClass]; DeselectSequence: PROC [seq: Sequence, gargoyleData: GargoyleData, selectClass: SelectionClass]; <> <<>> DeselectTraj: PROC [traj: Traj, gargoyleData: GargoyleData, selectClass: SelectionClass]; <> DeselectOutline: PROC [outline: Outline, gargoyleData: GargoyleData, selectClass: SelectionClass]; DeselectAll: PROC [gargoyleData: GargoyleData, selectClass: SelectionClass]; DeselectEntity: PROC [entity: REF ANY, gargoyleData: GargoyleData, selectClass: SelectionClass]; <> <<>> IsSelected: PROC [entity: REF ANY, gargoyleData: GargoyleData, selectClass: SelectionClass] RETURNS [BOOL]; IsSelectedInPart: PROC [entity: REF ANY, gargoyleData: GargoyleData, selectClass: SelectionClass] RETURNS [BOOL]; <> <<1) entity is a cluster. 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 (not yet implemented).>> NoSelections: PROC [gargoyleData: GargoyleData, selectClass: SelectionClass] RETURNS [BOOL]; <> <<>> ListSelectedDescendants: PROC [entity: REF ANY, gargoyleData: GargoyleData, selectClass: SelectionClass] RETURNS [components: LIST OF REF ANY]; FindSelectedSequence: PROC [traj: Traj, gargoyleData: GargoyleData, selectClass: SelectionClass] RETURNS [seq: Sequence]; <> <<>> SelectedEntities: PROC [gargoyleData: GargoyleData, selectClass: SelectionClass] RETURNS [selectedGen: EntityGenerator]; <> SelectedSequences: PROC [gargoyleData: GargoyleData, selectClass: SelectionClass] RETURNS [seqGen: SequenceGenerator]; END.