mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-15 04:04:07 +08:00
Integration of OCCT 6.5.0 from SVN
This commit is contained in:
41
src/TCollection/TCollection_Array2Descriptor.cdl
Executable file
41
src/TCollection/TCollection_Array2Descriptor.cdl
Executable file
@@ -0,0 +1,41 @@
|
||||
-- File: TCollection_Array1Descriptor.cdl
|
||||
-- Created: Wed Nov 25 10:02:32 1992
|
||||
-- Author: Jean Pierre TIRAULT
|
||||
-- <jpt@sdsun3>
|
||||
---Copyright: Matra Datavision 1992
|
||||
|
||||
deferred class Array2Descriptor from TCollection
|
||||
|
||||
uses
|
||||
Integer from Standard,
|
||||
Address from Standard
|
||||
|
||||
is
|
||||
Initialize (aLowerRow: Integer; aUpperRow: Integer;
|
||||
aLowerCol: Integer; aUpperCol: Integer;
|
||||
anAddress: Address);
|
||||
|
||||
UpperRow (me) returns Integer;
|
||||
---Level: Advanced
|
||||
|
||||
LowerRow (me) returns Integer;
|
||||
---Level: Advanced
|
||||
|
||||
UpperCol (me) returns Integer;
|
||||
---Level: Advanced
|
||||
|
||||
LowerCol (me) returns Integer;
|
||||
---Level: Advanced
|
||||
|
||||
Address(me) returns Address;
|
||||
---Level: Advanced
|
||||
|
||||
fields
|
||||
myAddress : Address;
|
||||
myLowerRow : Integer;
|
||||
myLowerCol : Integer;
|
||||
myUpperRow : Integer;
|
||||
myUpperCol : Integer;
|
||||
|
||||
|
||||
end;
|
||||
Reference in New Issue
Block a user