mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-11 09:32:38 +08:00
36 lines
1.1 KiB
Plaintext
Executable File
36 lines
1.1 KiB
Plaintext
Executable File
-- File: BinMDataStd_IntegerDriver.cdl
|
|
-- Created: Wed Oct 30 14:53:50 2002
|
|
-- Author: Michael SAZONOV
|
|
-- <msv@novgorox.nnov.matra-dtv.fr>
|
|
---Copyright: Matra Datavision 2002
|
|
|
|
class IntegerDriver from BinMDataStd inherits ADriver from BinMDF
|
|
|
|
---Purpose: Integer attribute Driver.
|
|
|
|
uses
|
|
MessageDriver from CDM,
|
|
SRelocationTable from BinObjMgt,
|
|
RRelocationTable from BinObjMgt,
|
|
Persistent from BinObjMgt,
|
|
Attribute from TDF
|
|
|
|
is
|
|
Create (theMessageDriver:MessageDriver from CDM)
|
|
returns mutable IntegerDriver from BinMDataStd;
|
|
|
|
NewEmpty (me) returns mutable Attribute from TDF
|
|
is redefined;
|
|
|
|
Paste(me; Source : Persistent from BinObjMgt;
|
|
Target : mutable Attribute from TDF;
|
|
RelocTable : out RRelocationTable from BinObjMgt)
|
|
returns Boolean from Standard is redefined;
|
|
|
|
Paste(me; Source : Attribute from TDF;
|
|
Target : in out Persistent from BinObjMgt;
|
|
RelocTable : out SRelocationTable from BinObjMgt)
|
|
is redefined;
|
|
|
|
end IntegerDriver;
|