7fd59977 |
1 | -- File: StepData_SelectNamed.cdl |
2 | -- Created: Mon Dec 16 16:44:07 1996 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@heliox.paris1.matra-dtv.fr> |
5 | ---Copyright: Matra Datavision 1996 |
6 | |
7 | |
8 | class SelectNamed from StepData inherits SelectMember |
9 | |
10 | ---Purpose : This select member can be of any kind, and be named |
11 | -- But its takes more memory than some specialised ones |
12 | -- This class allows one name for the instance |
13 | |
14 | uses CString, Logical, AsciiString from TCollection, Field from StepData |
15 | |
16 | is |
17 | |
18 | Create returns mutable SelectNamed; |
19 | |
20 | HasName (me) returns Boolean is redefined; |
21 | |
22 | Name (me) returns CString is redefined; |
23 | |
24 | SetName (me : mutable; name : CString) returns Boolean is redefined; |
25 | -- redefined to accept any name |
26 | |
27 | Field (me) returns Field; |
28 | ---C++ : return const & |
29 | |
30 | CField (me : mutable) returns Field; |
31 | ---C++ : return & |
32 | |
33 | |
34 | Kind (me) returns Integer is redefined; |
35 | -- see Field for Kind (same codes) |
36 | |
37 | SetKind (me : mutable; kind : Integer) is redefined; |
38 | -- called by various Set* |
39 | |
40 | Int (me) returns Integer is redefined; |
41 | ---Purpose : This internal method gives access to a value implemented by an |
42 | -- Integer (to read it) |
43 | |
44 | SetInt (me : mutable; val : Integer) is redefined; |
45 | ---Purpose : This internal method gives access to a value implemented by an |
46 | -- Integer (to set it) |
47 | |
48 | Real (me) returns Real is redefined; |
49 | |
50 | SetReal (me : mutable; val : Real) is redefined; |
51 | |
52 | String (me) returns CString is redefined; |
53 | |
54 | SetString (me : mutable; val : CString) is redefined; |
55 | |
56 | fields |
57 | |
58 | thename : AsciiString; |
59 | theval : Field from StepData; |
60 | |
61 | end SelectNamed; |