1 -- Created on: 2004-05-13
2 -- Created by: Sergey ZARITCHNY <szy@opencascade.com>
3 -- Copyright (c) 2004-2014 OPEN CASCADE SAS
5 -- This file is part of Open CASCADE Technology software library.
7 -- This library is free software; you can redistribute it and/or modify it under
8 -- the terms of the GNU Lesser General Public License version 2.1 as published
9 -- by the Free Software Foundation, with special exception defined in the file
10 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 -- distribution for complete text of the license and disclaimer of any warranty.
13 -- Alternatively, this file may be used under the terms of Open CASCADE
14 -- commercial license or contractual agreement.
16 -- modified 13.04.2009 Sergey Zaritchny
18 class PlacementDriver from BinMDataXtd inherits ADriver from BinMDF
20 ---Purpose: Placement attribute Driver.
23 MessageDriver from CDM,
24 SRelocationTable from BinObjMgt,
25 RRelocationTable from BinObjMgt,
26 Persistent from BinObjMgt,
30 Create (theMessageDriver:MessageDriver from CDM)
31 returns mutable PlacementDriver from BinMDataXtd;
33 NewEmpty (me) returns mutable Attribute from TDF
36 Paste(me; Source : Persistent from BinObjMgt;
37 Target : mutable Attribute from TDF;
38 RelocTable : out RRelocationTable from BinObjMgt)
39 returns Boolean from Standard is redefined;
41 Paste(me; Source : Attribute from TDF;
42 Target : in out Persistent from BinObjMgt;
43 RelocTable : out SRelocationTable from BinObjMgt)