7fd59977 |
1 | -- File: StepBasic_ObjectRole.cdl |
2 | -- Created: Wed May 10 15:09:08 2000 |
3 | -- Author: Andrey BETENEV |
4 | -- Generator: ExpToCas (EXPRESS -> CASCADE/XSTEP Translator) V1.1 |
5 | -- Copyright: Matra Datavision 2000 |
6 | |
7 | class ObjectRole from StepBasic |
8 | inherits TShared from MMgt |
9 | |
10 | ---Purpose: Representation of STEP entity ObjectRole |
11 | |
12 | uses |
13 | HAsciiString from TCollection |
14 | |
15 | is |
16 | Create returns ObjectRole from StepBasic; |
17 | ---Purpose: Empty constructor |
18 | |
19 | Init (me: mutable; aName: HAsciiString from TCollection; |
20 | hasDescription: Boolean; |
21 | aDescription: HAsciiString from TCollection); |
22 | ---Purpose: Initialize all fields (own and inherited) |
23 | |
24 | Name (me) returns HAsciiString from TCollection; |
25 | ---Purpose: Returns field Name |
26 | SetName (me: mutable; Name: HAsciiString from TCollection); |
27 | ---Purpose: Set field Name |
28 | |
29 | Description (me) returns HAsciiString from TCollection; |
30 | ---Purpose: Returns field Description |
31 | SetDescription (me: mutable; Description: HAsciiString from TCollection); |
32 | ---Purpose: Set field Description |
33 | HasDescription (me) returns Boolean; |
34 | ---Purpose: Returns True if optional field Description is defined |
35 | |
36 | fields |
37 | theName: HAsciiString from TCollection; |
38 | theDescription: HAsciiString from TCollection; -- optional |
39 | defDescription: Boolean; -- flag "is Description defined" |
40 | |
41 | end ObjectRole; |