src/WNT/WNT_Image.cdl

   1 -- Created by: PLOTNIKOV Eugeny
   2 -- Copyright (c) 1996-1999 Matra Datavision
   3 -- Copyright (c) 1999-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 Image from WNT inherits TShared from MMgt
  23
  24         ---Purpose: Internal class for image management
  25
  26  uses
  27
  28     Handle from Aspect
  29
  30  is
  31
  32     Create ( aBitmap : Handle from Aspect; aHashCode : Integer from Standard )
  33      returns mutable Image from WNT;
  34         ---Purpose: Creates a class.
  35
  36     Destroy ( me : mutable ) is virtual;
  37         ---Level:   Public
  38         ---Purpose: Destroys all ressources attached to the Image
  39     ---C++:     alias ~
  40
  41     HBITMAP ( me ) returns Handle from Aspect;
  42     ---Level:   Public
  43     ---Purpose: Returns bitmap handle
  44     ---C++:     inline
  45
  46     Image ( me ) returns Address from Standard;
  47     ---Level:   Public
  48     ---Purpose: Returns pointer to internal structure
  49     ---C++:     inline
  50
  51  fields
  52
  53     myImage    : Address from Standard is protected;
  54     myHashCode : Integer from Standard is protected;
  55
  56 end Image;