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