blob: 55a3a9a46400dd7850b8d81868ba29513e4158d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
--
-- File: AlienImage_XAlienImage.cdl
-- Created: 23/03/93
-- Author: BBL
--
---Copyright: Matravision 1993
--
class XAlienImage from AlienImage inherits AlienUserImage from AlienImage
---Purpose: Defines an X11 Alien image, i.e. an image file to be
-- used with X11 xwd utility.
uses
File from OSD,
AsciiString from TCollection,
ColorImage from Image,
PseudoColorImage from Image,
Image from Image,
X11XWDAlienData from AlienImage
is
Create returns mutable XAlienImage from AlienImage;
---Purpose: Constructs an empty X11 alien image.
Clear( me : in out mutable) ;
---Level: Public
---Purpose: Frees memory allocated by XAlienImage
---C++: alias ~
SetName( me : in out mutable;
aName : in AsciiString from TCollection) ;
---Purpose: Sets the Image name for the Name function.
Name( me : in immutable ) returns AsciiString from TCollection ;
---C++: return const &
---Purpose: Returns the Image name.
ToImage( me : in immutable )
returns mutable Image from Image ;
---Level: Public
---Purpose : Converts an XAlienImage object to a Image object.
FromImage( me : in out mutable ; anImage : in Image from Image ) ;
---Level: Public
---Purpose : Converts an Image object to a XAlienImage object.
Read ( me : in out mutable; afile : in out File from OSD )
returns Boolean from Standard ;
---Level: Public
---Purpose: Reads the content of a XAlienImage object from a file .
-- Returns True if file is a XWD file .
Write( me : in immutable; afile : in out File from OSD )
returns Boolean from Standard ;
---Level: Public
---Purpose: Writes the content of a XAlienImage object to a file .
fields
myData : X11XWDAlienData from AlienImage;
end ;
|
