7fd59977 |
1 | -- |
2 | -- File: ImageUtility_XWD.cdl |
3 | -- Created: 23/03/93 |
4 | -- Author: BBL,JLF |
5 | -- |
6 | ---Copyright: Matravision 1993 |
7 | -- |
8 | |
9 | class XWD from ImageUtility |
10 | |
11 | ---Version: 0.0 |
12 | |
13 | ---Purpose: Performs a "xwd" and creates a XAlienImage and an Image |
14 | |
15 | ---Keywords: |
16 | ---Warning: |
17 | ---References: |
18 | |
19 | uses |
20 | XAlienImage from AlienImage, |
21 | File from OSD, |
22 | Image from Image |
23 | |
24 | raises |
25 | TypeMismatch from Standard |
26 | |
27 | is |
28 | Create returns XWD from ImageUtility ; |
29 | ---Level: Internal |
30 | ---Purpose: Create a XWD object . |
31 | |
32 | XWD( me : in out ; xwdOptions : CString from Standard = "" ) |
33 | returns Boolean from Standard |
34 | is static; |
35 | ---Level: Internal |
36 | ---Purpose: execute a Spawn "xwd xwudOptions -out aTmpFile" . |
37 | |
38 | XAlienImage( me ) |
39 | returns XAlienImage from AlienImage |
40 | is static; |
41 | ---Level: Internal |
42 | ---Purpose: returns the XAlienImage created from "xwd". |
43 | |
44 | Image( me ) |
45 | returns Image from Image |
46 | is static; |
47 | ---Level: Internal |
48 | ---Purpose: returns the Image created from "xwd". |
49 | |
50 | fields |
51 | myXAlienImage : XAlienImage from AlienImage; |
52 | myImage : Image from Image; |
53 | end ; |