blob: 3c6d6dc09291cb665a9ad1d91e58d2c61e6f4457 (
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
64
65
66
67
68
|
--
-- File: ImageUtility_XWUD.cdl
-- Created: 23/03/93
-- Author: BBL,JLF
--
---Copyright: Matravision 1993
--
class XWUD from ImageUtility
---Version: 0.0
---Purpose: Performs a "xwud -noclick" with a XAlienImage build
-- from any Image , any AlienImage .
---Keywords:
---Warning:
---References:
uses
AlienUserImage from AlienImage,
XAlienImage from AlienImage,
File from OSD,
Image from Image
raises
TypeMismatch from Standard
is
XWUD( myclass ; aImage : in Image from Image;
aName : CString from Standard;
xwudOptions : CString from Standard
= "-new -noclick" ) ;
---Level: Internal
---Purpose: Write content of a Image object to aTmpFile and
-- execute a Spawn "xwud xwudOptions -in aTmpFile &" .
XWUD( myclass ; aAlienUserImage : in AlienUserImage from AlienImage;
aName : CString from Standard ;
xwudOptions : CString from Standard
= "-new -noclick" ) ;
---Level: Internal
---Purpose: Write content of a AlienImage object to aTmpFile and
-- execute a Spawn "xwud xwudOptions -in aTmpFile &" .
XWUD( myclass ; aXAlienImage : in XAlienImage from AlienImage ;
xwudOptions : CString from Standard
= "-new -noclick" ) ;
---Level: Internal
---Purpose: Write content of a XAlienImage object to aTmpFile and
-- execute a Spawn "xwud xwudOptions -in aTmpFile &" .
XWUD( myclass ; aFile : in File from OSD ;
xwudOptions : CString from Standard
= "-new -noclick" ) ;
---Level: Internal
---Purpose: execute a Spawn
-- "xwud -new -noclick -in /aFile.SystemName()/ &" .
XWUD( myclass ; aFileName : CString from Standard ;
xwudOptions : CString from Standard
= "-new -noclick" ) ;
---Level: Internal
---Purpose: execute a Spawn "xwud xwudOptions -in aFileName &" .
end ;
|
