7fd59977 |
1 | -- File: TDataStd_DeltaOnModificationOfExtStringArray.cdl |
2 | -- Created: Tue Dec 4 17:43:15 2007 |
3 | -- Author: Sergey ZARITCHNY |
4 | -- <sergey.zaritchny@opencascade.com> |
5 | ---Copyright: Open CasCade SA 2007 |
6 | |
7 | |
8 | class DeltaOnModificationOfExtStringArray from TDataStd inherits DeltaOnModification from TDF |
9 | |
10 | ---Purpose: This class provides default services for an |
11 | -- AttributeDelta on a MODIFICATION action. |
12 | |
13 | uses |
14 | Attribute from TDF, |
15 | HArray1OfExtendedString from TColStd, |
16 | ExtStringArray from TDataStd, |
17 | HArray1OfInteger from TColStd |
18 | |
19 | is |
20 | Create (Arr : ExtStringArray from TDataStd) |
21 | returns mutable DeltaOnModificationOfExtStringArray from TDataStd; |
22 | ---Purpose: Initializes a TDF_DeltaOnModification. |
23 | |
24 | Apply (me : mutable) |
25 | is redefined virtual; |
26 | ---Purpose: Applies the delta to the attribute. |
27 | fields |
28 | myIndxes : HArray1OfInteger from TColStd; |
29 | myValues : HArray1OfExtendedString from TColStd; |
30 | myUp1 : Integer from Standard; |
31 | myUp2 : Integer from Standard; |
32 | |
33 | end DeltaOnModificationOfExtStringArray; |
34 | |
35 | |