src/TDataStd/TDataStd_DeltaOnModificationOfIntArray.cdl

   1 -- Created on: 2007-09-06
   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 DeltaOnModificationOfIntArray 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     HArray1OfInteger from TColStd,
  30     IntegerArray     from TDataStd
  31
  32 is
  33     Create (Arr : IntegerArray     from TDataStd)
  34         returns mutable DeltaOnModificationOfIntArray from TDataStd;
  35         ---Purpose: Initializes a TDF_DeltaOnModification.
  36
  37     Apply (me : mutable)
  38         is redefined virtual;
  39         ---Purpose: Applies the delta to the attribute.
  40 fields
  41
  42  myIndxes  :  HArray1OfInteger from TColStd;
  43  myValues  :  HArray1OfInteger from TColStd;
  44  myUp1     :  Integer          from Standard;
  45  myUp2     :  Integer          from Standard;
  46
  47 end DeltaOnModificationOfIntArray;