mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-06 12:57:35 +08:00
Integration of OCCT 6.5.0 from SVN
This commit is contained in:
32
src/XmlMDataStd/XmlMDataStd_TreeNodeDriver.cdl
Executable file
32
src/XmlMDataStd/XmlMDataStd_TreeNodeDriver.cdl
Executable file
@@ -0,0 +1,32 @@
|
||||
-- File: XmlMDataStd_TreeNodeDriver.cdl
|
||||
-- Created: Fri Aug 24 20:16:51 2001
|
||||
-- Author: Alexander GRIGORIEV
|
||||
-- Copyright: Open Cascade 2001
|
||||
|
||||
class TreeNodeDriver from XmlMDataStd inherits ADriver from XmlMDF
|
||||
|
||||
---Purpose: Attribute Driver.
|
||||
|
||||
uses
|
||||
SRelocationTable from XmlObjMgt,
|
||||
RRelocationTable from XmlObjMgt,
|
||||
Persistent from XmlObjMgt,
|
||||
MessageDriver from CDM,
|
||||
Attribute from TDF
|
||||
|
||||
is
|
||||
Create (theMessageDriver:MessageDriver from CDM)
|
||||
returns mutable TreeNodeDriver from XmlMDataStd;
|
||||
|
||||
NewEmpty (me) returns mutable Attribute from TDF;
|
||||
|
||||
Paste(me; Source : Persistent from XmlObjMgt;
|
||||
Target : mutable Attribute from TDF;
|
||||
RelocTable : out RRelocationTable from XmlObjMgt)
|
||||
returns Boolean from Standard;
|
||||
|
||||
Paste(me; Source : Attribute from TDF;
|
||||
Target : in out Persistent from XmlObjMgt;
|
||||
RelocTable : out SRelocationTable from XmlObjMgt);
|
||||
|
||||
end TreeNodeDriver;
|
||||
Reference in New Issue
Block a user