blob: 5d830b9f4c1ea8287d9b98651f3cedd9bf9b03fc (
plain)
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
59
60
61
|
-- File: StepData_SelectNamed.cdl
-- Created: Mon Dec 16 16:44:07 1996
-- Author: Christian CAILLET
-- <cky@heliox.paris1.matra-dtv.fr>
---Copyright: Matra Datavision 1996
class SelectNamed from StepData inherits SelectMember
---Purpose : This select member can be of any kind, and be named
-- But its takes more memory than some specialised ones
-- This class allows one name for the instance
uses CString, Logical, AsciiString from TCollection, Field from StepData
is
Create returns mutable SelectNamed;
HasName (me) returns Boolean is redefined;
Name (me) returns CString is redefined;
SetName (me : mutable; name : CString) returns Boolean is redefined;
-- redefined to accept any name
Field (me) returns Field;
---C++ : return const &
CField (me : mutable) returns Field;
---C++ : return &
Kind (me) returns Integer is redefined;
-- see Field for Kind (same codes)
SetKind (me : mutable; kind : Integer) is redefined;
-- called by various Set*
Int (me) returns Integer is redefined;
---Purpose : This internal method gives access to a value implemented by an
-- Integer (to read it)
SetInt (me : mutable; val : Integer) is redefined;
---Purpose : This internal method gives access to a value implemented by an
-- Integer (to set it)
Real (me) returns Real is redefined;
SetReal (me : mutable; val : Real) is redefined;
String (me) returns CString is redefined;
SetString (me : mutable; val : CString) is redefined;
fields
thename : AsciiString;
theval : Field from StepData;
end SelectNamed;
|
