summaryrefslogtreecommitdiff
path: root/src/ImageUtility/ImageUtility_X11Dump.cdl
blob: 0965c89eda3aeb6458aa0cbe048f508275945006 (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
63
--
-- File:	ImageUtility_X11Dump.cdl
-- Created:	23/03/93
-- Author:	BBL,JLF
--
---Copyright:	Matravision 1993
--

class X11Dump from ImageUtility

uses
	X11Display 	from ImageUtility,
	X11Window  	from ImageUtility,
	X11XImage  	from ImageUtility,
	X11GC		from ImageUtility,
	Image 		from Image,
	AsciiString 	from TCollection

raises
	TypeMismatch 	from Standard

is
	Create( DisplayName : AsciiString from TCollection ;
	        aImage      : Image from Image )
		returns X11Dump from ImageUtility ;
	---Level: Internal
	---Purpose : Create a new X11 Display,Window,Colormap,GC,XImage suitable
	--		for aImage .

	Create( aX11Dump    : X11Dump from ImageUtility ;
		aImage      : Image from Image )
		returns X11Dump from ImageUtility ;
	---Level: Internal
	---Purpose : Create a new X11 XImage and share Display,Window,Colormap,
	--	     GC with a previous aX11Dump ;

	X11GC ( me ) 
		returns X11GC from ImageUtility
		is static;
	X11Window ( me ) 
		returns X11Window from ImageUtility
		is static;
	X11Display ( me ) 
		returns X11Display from ImageUtility
		is static;
	X11XImage ( me )
		returns X11XImage from ImageUtility
		is static;

	UpdateX11Colormap ( me )
		is static;
	UpdateX11XImage ( me : in out )
		is static;
	DisplayX11XImage ( me )
		is static;

fields
	myDisplay : X11Display from ImageUtility ;
	myWindow  : X11Window  from ImageUtility ;
	myXImage  : X11XImage  from ImageUtility ;
	myGC      : X11GC      from ImageUtility ;
	myImage   : Image from Image ;
end ;