7fd59977 |
1 | -- File: SelectDiff.cdl |
2 | -- Created: Wed Nov 18 16:40:10 1992 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@topsn2> |
5 | ---Copyright: Matra Datavision 1992 |
6 | |
7 | |
8 | class SelectDiff from IFSelect inherits SelectControl |
9 | |
10 | ---Purpose : A SelectDiff keeps the entities from a Selection, the Main |
11 | -- Input, which are not listed by the Second Input |
12 | |
13 | uses AsciiString from TCollection, EntityIterator, Graph |
14 | |
15 | is |
16 | |
17 | Create returns mutable SelectDiff; |
18 | ---Purpose : Creates an empty SelectDiff |
19 | |
20 | |
21 | RootResult (me; G : Graph) returns EntityIterator; |
22 | ---Purpose : Returns the list of selected entities : they are the Entities |
23 | -- gotten from the Main Input but not from the Diff Input |
24 | |
25 | HasUniqueResult (me) returns Boolean is redefined protected; |
26 | ---Purpose : Returns always True, because RootResult gives a Unique list |
27 | |
28 | |
29 | Label (me) returns AsciiString from TCollection; |
30 | ---Purpose : Returns a text defining the criterium : "Difference" |
31 | |
32 | end SelectDiff; |