blob: 627aa335e68e148353d07fc47b025af0a24c6e0b (
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_XPR.cdl
-- Created: 23/03/93
-- Author: BBL,JLF
--
---Copyright: Matravision 1993
--
class XPR from ImageUtility
---Version: 0.0
---Purpose: Performs a "xpr" 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
XPR ( myclass ; aImage : in Image from Image;
aName : CString from Standard;
xprOptions : CString from Standard
= "" ) ;
---Level: Internal
---Purpose: Write content of a Image object to aTmpFile and
-- execute a Spawn "xpr xprOptions aTmpFile | lpr &" .
XPR ( myclass ; aAlienUserImage : in AlienUserImage from AlienImage;
aName : CString from Standard ;
xprOptions : CString from Standard
= "" ) ;
---Level: Internal
---Purpose: Write content of a AlienImage object to aTmpFile and
-- execute a Spawn "xpr xprOptions aTmpFile| lpr &" .
XPR ( myclass ; aXAlienImage : in XAlienImage from AlienImage ;
xprOptions : CString from Standard
= "" ) ;
---Level: Internal
---Purpose: Write content of a XAlienImage object to aTmpFile and
-- execute a Spawn "xpr xprOptions aTmpFile| lpr &" .
XPR ( myclass ; aFile : in File from OSD ;
xprOptions : CString from Standard
= "" ) ;
---Level: Internal
---Purpose: execute a Spawn
-- "xpr xprOptions /aFile.SystemName()/ | lpr &" .
XPR ( myclass ; aFileName : CString from Standard ;
xprOptions : CString from Standard
= "" ) ;
---Level: Internal
---Purpose: execute a Spawn "xpr xprOptions aFileName | lpr &" .
end ;
|
