7fd59977 |
1 | -- File: BinMNaming_NamingDriver.cdl |
2 | -- Created: Thu May 13 16:51:27 2004 |
3 | -- Author: Sergey ZARITCHNY <szy@opencascade.com> |
4 | -- Copyright: Open CasCade S.A. 2004 |
5 | |
6 | class NamingDriver from BinMNaming inherits ADriver from BinMDF |
7 | |
8 | ---Purpose: Naming Attribute Driver. |
9 | |
10 | uses |
11 | SRelocationTable from BinObjMgt, |
12 | RRelocationTable from BinObjMgt, |
13 | Persistent from BinObjMgt, |
14 | MessageDriver from CDM, |
15 | Attribute from TDF |
16 | |
17 | |
18 | is |
19 | Create (theMessageDriver:MessageDriver from CDM) |
20 | returns mutable NamingDriver from BinMNaming; |
21 | |
22 | NewEmpty (me) returns mutable Attribute from TDF; |
23 | |
24 | Paste(me; Source : Persistent from BinObjMgt; |
25 | Target : mutable Attribute from TDF; |
26 | RelocTable : out RRelocationTable from BinObjMgt) |
27 | returns Boolean from Standard; |
28 | |
29 | Paste(me; Source : Attribute from TDF; |
30 | Target : in out Persistent from BinObjMgt; |
31 | RelocTable : out SRelocationTable from BinObjMgt); |
32 | |
33 | |
34 | end NamedShapeDriver; |
35 | |