7fd59977 |
1 | -- File: SelectEntityNumber.cdl |
2 | -- Created: Wed Nov 18 17:26:53 1992 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@topsn2> |
5 | ---Copyright: Matra Datavision 1992 |
6 | |
7 | |
8 | class SelectEntityNumber from IFSelect inherits SelectBase |
9 | |
10 | ---Purpose : A SelectEntityNumber gets in an InterfaceModel (through a |
11 | -- Graph), the Entity which has a specified Number (its rank of |
12 | -- adding into the Model) : there can be zero (if none) or one. |
13 | -- The Number is not directly defined as an Integer, but as a |
14 | -- Parameter, which can be externally controled |
15 | |
16 | uses AsciiString from TCollection, EntityIterator, Graph, IntParam |
17 | |
18 | is |
19 | |
20 | Create returns mutable SelectEntityNumber; |
21 | ---Purpose : Creates a SelectEntityNumber, initially with no specified Number |
22 | |
23 | SetNumber (me : mutable; num : mutable IntParam); |
24 | ---Purpose : Sets Entity Number to be taken (initially, none is set : 0) |
25 | |
26 | Number (me) returns mutable IntParam; |
27 | ---Purpose : Returns specified Number (as a Parameter) |
28 | |
29 | RootResult (me; G : Graph) returns EntityIterator; |
30 | ---Purpose : Returns the list of selected entities : the Entity having the |
31 | -- specified Number (this result assures naturally uniqueness) |
32 | |
33 | Label (me) returns AsciiString from TCollection; |
34 | ---Purpose : Returns a text defining the criterium : "Entity Number ..." |
35 | |
36 | fields |
37 | |
38 | thenum : IntParam; |
39 | |
40 | end SelectEntityNumber; |