1 -- File: StepBasic_RoleAssociation.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
7 class RoleAssociation from StepBasic
8 inherits TShared from MMgt
10 ---Purpose: Representation of STEP entity RoleAssociation
13 ObjectRole from StepBasic,
14 RoleSelect from StepBasic
17 Create returns RoleAssociation from StepBasic;
18 ---Purpose: Empty constructor
20 Init (me: mutable; aRole: ObjectRole from StepBasic;
21 aItemWithRole: RoleSelect from StepBasic);
22 ---Purpose: Initialize all fields (own and inherited)
24 Role (me) returns ObjectRole from StepBasic;
25 ---Purpose: Returns field Role
26 SetRole (me: mutable; Role: ObjectRole from StepBasic);
27 ---Purpose: Set field Role
29 ItemWithRole (me) returns RoleSelect from StepBasic;
30 ---Purpose: Returns field ItemWithRole
31 SetItemWithRole (me: mutable; ItemWithRole: RoleSelect from StepBasic);
32 ---Purpose: Set field ItemWithRole
35 theRole: ObjectRole from StepBasic;
36 theItemWithRole: RoleSelect from StepBasic;