src/Prs2d/Prs2d_AspectRoot.cdl


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

-- File     : Prs2d_AspectRoot.cdl
-- Created  : February  2000
-- Author   : Tanya COOL
---Copyright: Matra Datavision 2000

deferred class AspectRoot from Prs2d inherits TShared from MMgt

---Purpose: Abstract class, the root class for aspect classes

uses

   AspectName from Prs2d

is

  Initialize( anAspectName: AspectName from Prs2d = Prs2d_AN_UNKNOWN );
  ---Level: Internal
  ---Purpose: Initializes the Aspect class having name <anAspectName>

  GetAspectName( me ) returns AspectName from Prs2d;
  ---Level: Internal
  ---Purpose: Returns the Aspect Name of the Aspect class
    
fields

  myAspectName: AspectName from Prs2d;

end AspectRoot;