1 -- File: SelectIntersection.cdl
2 -- Created: Mon Jan 11 12:40:26 1993
3 -- Author: Christian CAILLET
5 ---Copyright: Matra Datavision 1993
8 class SelectIntersection from IFSelect inherits SelectCombine
10 ---Purpose : A SelectIntersection filters the Entities issued from several
11 -- other Selections as Intersection of results : "AND" operator
13 uses AsciiString from TCollection, EntityIterator, Graph
17 Create returns mutable SelectIntersection;
18 ---Purpose : Creates an empty SelectIntersection
20 RootResult (me; G : Graph) returns EntityIterator;
21 ---Purpose : Returns the list of selected Entities, which is the common part
22 -- of results from all input selections. Uniqueness is guaranteed.
24 Label (me) returns AsciiString from TCollection;
25 ---Purpose : Returns a text defining the criterium : "Intersection (AND)"
27 end SelectIntersection;