1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
-- File: SelectList.cdl
-- Created: Wed Nov 18 17:36:22 1992
-- Author: Christian CAILLET
-- <cky@topsn2>
---Copyright: Matra Datavision 1992
generic class SelectList from IFSelect (Entity as Transient)
inherits SelectInList
---Purpose : A SelectList kind Selection selects a part of an Entity, as
-- well as this Entity can be described as an ordered List.
-- That is to say, it must have two methods :
--
-- NbEntities (me) returns Integer;
-- Entity (me; num : Integer) returns Transient;
--
-- For each class of Entity for which we want to define a
-- SelectList, we will instanciate this class with the
-- desired class of Entity as definition parameter : the deferred
-- methods NbEntities and ListedEntity are now defined to call
-- the required methods from <Entity>
--
-- SelectList works as SelectInList, beeing a sub-class of it
uses AsciiString from TCollection, Transient, EntityIterator, IntParam
raises OutOfRange
is
Create returns mutable SelectList;
---Purpose : Creates a SelectList (with no limit);
KeepInputEntity (me; iter : in out EntityIterator);
---Purpose : Keeps Input Entity, as having required type <Entity>
NbItems (me; ent : Transient) returns Integer;
---Purpose : Returns count of Entities in the list in the Entity <ent>
-- by calling method NbEntity from parameter class Entity
ListedEntity (me; num : Integer; ent : Transient)
returns Transient raises OutOfRange;
---Purpose : Returns an Entity of the list in the Entity <ent>, by calling
-- method Entity from parameter class Entity
-- Error if <ent> has not required type, or if <num> is not in
-- the right range (1,NbEntities),
ListLabel (me) returns AsciiString from TCollection;
---Purpose : Returns the specific label for the list
-- then, following cases :
-- " From .. Until .." or "From .." or "Until .." or "Rank no .."
-- Warning : it is not possible to give a character constant to instantiate
-- a generic class, thus "List From Entity" is not adapted :
-- redefine Label if judged necessary
end SelectList;
|
