src/TDataStd/TDataStd_DeltaOnModificationOfExtStringArray.cdl

   1 -- Created on: 2007-12-04
   2 -- Created by: Sergey ZARITCHNY
   3 -- Copyright (c) 2007-2012 OPEN CASCADE SAS
   4 --
   5 -- The content of this file is subject to the Open CASCADE Technology Public
   6 -- License Version 6.5 (the "License"). You may not use the content of this file
   7 -- except in compliance with the License. Please obtain a copy of the License
   8 -- at http://www.opencascade.org and read it completely before using this file.
   9 --
  10 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
  11 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
  12 --
  13 -- The Original Code and all software distributed under the License is
  14 -- distributed on an "AS IS" basis, without warranty of any kind, and the
  15 -- Initial Developer hereby disclaims all such warranties, including without
  16 -- limitation, any warranties of merchantability, fitness for a particular
  17 -- purpose or non-infringement. Please see the License for the specific terms
  18 -- and conditions governing the rights and limitations under the License.
  19
  20
  21
  22 class DeltaOnModificationOfExtStringArray from TDataStd inherits DeltaOnModification from TDF
  23
  24         ---Purpose: This class provides default services for an
  25         --          AttributeDelta on a MODIFICATION action.
  26
  27 uses
  28     Attribute               from TDF,
  29     HArray1OfExtendedString from TColStd,
  30     ExtStringArray          from TDataStd,
  31     HArray1OfInteger        from TColStd
  32
  33 is
  34     Create (Arr : ExtStringArray     from TDataStd)
  35         returns mutable DeltaOnModificationOfExtStringArray from TDataStd;
  36         ---Purpose: Initializes a TDF_DeltaOnModification.
  37
  38     Apply (me : mutable)
  39         is redefined virtual;
  40         ---Purpose: Applies the delta to the attribute.
  41 fields
  42  myIndxes  :  HArray1OfInteger from TColStd;
  43  myValues  :  HArray1OfExtendedString from TColStd;
  44  myUp1     :  Integer          from Standard;
  45  myUp2     :  Integer          from Standard;
  46
  47 end DeltaOnModificationOfExtStringArray;
  48
  49