src/BinMDataStd/BinMDataStd_TreeNodeDriver.cdl

   1 -- File:        BinMDataStd_TreeNodeDriver.cdl
   2 -- Created:     Fri Aug 24 20:16:51 2001
   3 -- Author:      Alexander GRIGORIEV
   4 -- Copyright:   Open Cascade 2001
   5
   6 class TreeNodeDriver from BinMDataStd  inherits ADriver from BinMDF
   7
   8         ---Purpose: 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 is
  18     Create (theMessageDriver:MessageDriver from CDM)
  19         returns mutable TreeNodeDriver from BinMDataStd;
  20
  21     NewEmpty (me)  returns mutable Attribute from TDF;
  22
  23     Paste(me; Source     : Persistent from BinObjMgt;
  24               Target     : mutable Attribute from TDF;
  25               RelocTable : out RRelocationTable from BinObjMgt)
  26         returns Boolean from Standard;
  27
  28     Paste(me; Source     : Attribute from TDF;
  29               Target     : in out Persistent from BinObjMgt;
  30               RelocTable : out SRelocationTable from BinObjMgt);
  31
  32 end TreeNodeDriver;