7fd59977 |
1 | -- |
2 | -- File: ImageUtility_XWUD.cdl |
3 | -- Created: 23/03/93 |
4 | -- Author: BBL,JLF |
5 | -- |
6 | ---Copyright: Matravision 1993 |
7 | -- |
8 | |
9 | class XWUD from ImageUtility |
10 | |
11 | ---Version: 0.0 |
12 | |
13 | ---Purpose: Performs a "xwud -noclick" with a XAlienImage build |
14 | -- from any Image , any AlienImage . |
15 | |
16 | ---Keywords: |
17 | ---Warning: |
18 | ---References: |
19 | |
20 | uses |
21 | AlienUserImage from AlienImage, |
22 | XAlienImage from AlienImage, |
23 | File from OSD, |
24 | Image from Image |
25 | |
26 | raises |
27 | TypeMismatch from Standard |
28 | |
29 | is |
30 | XWUD( myclass ; aImage : in Image from Image; |
31 | aName : CString from Standard; |
32 | xwudOptions : CString from Standard |
33 | = "-new -noclick" ) ; |
34 | ---Level: Internal |
35 | ---Purpose: Write content of a Image object to aTmpFile and |
36 | -- execute a Spawn "xwud xwudOptions -in aTmpFile &" . |
37 | |
38 | XWUD( myclass ; aAlienUserImage : in AlienUserImage from AlienImage; |
39 | aName : CString from Standard ; |
40 | xwudOptions : CString from Standard |
41 | = "-new -noclick" ) ; |
42 | ---Level: Internal |
43 | ---Purpose: Write content of a AlienImage object to aTmpFile and |
44 | -- execute a Spawn "xwud xwudOptions -in aTmpFile &" . |
45 | |
46 | XWUD( myclass ; aXAlienImage : in XAlienImage from AlienImage ; |
47 | xwudOptions : CString from Standard |
48 | = "-new -noclick" ) ; |
49 | ---Level: Internal |
50 | ---Purpose: Write content of a XAlienImage object to aTmpFile and |
51 | -- execute a Spawn "xwud xwudOptions -in aTmpFile &" . |
52 | |
53 | XWUD( myclass ; aFile : in File from OSD ; |
54 | xwudOptions : CString from Standard |
55 | = "-new -noclick" ) ; |
56 | ---Level: Internal |
57 | ---Purpose: execute a Spawn |
58 | -- "xwud -new -noclick -in /aFile.SystemName()/ &" . |
59 | |
60 | XWUD( myclass ; aFileName : CString from Standard ; |
61 | xwudOptions : CString from Standard |
62 | = "-new -noclick" ) ; |
63 | ---Level: Internal |
64 | ---Purpose: execute a Spawn "xwud xwudOptions -in aFileName &" . |
65 | |
66 | |
67 | |
68 | end ; |