blob: bd5f350d4e7094dd944a25878d66d7e581e6dfe7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
-- File : AIS2D_PrimitiveArchit.cdl
-- Created : June 2000
-- Author : TCL
---Copyright: Matra Datavision 2000
private class PrimitiveArchit from AIS2D inherits TShared from MMgt
uses
Primitive from Graphic2d
is
Create( aPrim: Primitive from Graphic2d; ind: Integer from Standard )
returns mutable PrimitiveArchit from AIS2D;
GetPrimitive( me ) returns Primitive from Graphic2d;
GetIndex( me ) returns Integer from Standard;
fields
myPrimitive : Primitive from Graphic2d;
myInd : Integer from Standard;
end PrimitiveArchit;
|