1 -- File: SelectEntityNumber.cdl
2 -- Created: Wed Nov 18 17:26:53 1992
3 -- Author: Christian CAILLET
5 ---Copyright: Matra Datavision 1992
8 class SelectEntityNumber from IFSelect inherits SelectBase
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
16 uses AsciiString from TCollection, EntityIterator, Graph, IntParam
20 Create returns mutable SelectEntityNumber;
21 ---Purpose : Creates a SelectEntityNumber, initially with no specified Number
23 SetNumber (me : mutable; num : mutable IntParam);
24 ---Purpose : Sets Entity Number to be taken (initially, none is set : 0)
26 Number (me) returns mutable IntParam;
27 ---Purpose : Returns specified Number (as a Parameter)
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)
33 Label (me) returns AsciiString from TCollection;
34 ---Purpose : Returns a text defining the criterium : "Entity Number ..."
40 end SelectEntityNumber;