--- a/host.rc Wed May 29 18:49:05 1996 +0200
+++ b/host.rc Sat Jun 01 00:34:12 1996 +0200
@@ -17,12 +17,20 @@
domain := OperatingSystem getDomainName.
(domain = 'axept.de'
or:[domain = 'exept.de']) ifTrue:[
- Printer := PostscriptPrinterStream.
- Printer defaultCommands:#('cat | rsh ibm lpr -h'
+ PostscriptPrinterStream defaultCommands:#(
+ 'cat | rsh ibm lpr -h'
'cat > preview.ps'
'cat > preview.ps; ghostview preview.ps'
).
- Printer printCommand:'cat | rsh ibm lpr -h'.
+ PostscriptPrinterStream printCommand:'cat | rsh ibm lpr -h'.
+ Printer := PostscriptPrinterStream.
+
+ PrinterStream defaultCommands:#(
+ 'cat | rsh ibm lpr -h'
+ 'a2ps | rsh ibm lpr -h'
+ 'a2ps > preview.ps; ghostview preview.ps'
+ ).
+ PrinterStream printCommand:'cat | rsh ibm lpr -h'.
].
host := OperatingSystem getHostName.