host.rc
changeset 169 08055578224e
parent 165 bb77927038c7
child 177 eec6bac738ba
--- a/host.rc	Fri Nov 08 19:46:34 1996 +0100
+++ b/host.rc	Sat Nov 09 02:03:57 1996 +0100
@@ -25,24 +25,30 @@
 "/ setup the printer stuff.
 "/ the commands below will be offered in the printer-setting box
 "/
-PostscriptPrinterStream defaultCommands:#(
-				    'lpr -h'
-				    'cat | rsh <hostname> lpr -h'
-				    'cat > preview.ps'
-				    'cat > preview.ps; ghostview preview.ps'
-			     ).
+PostscriptPrinterStream notNil ifTrue:[
+    PostscriptPrinterStream 
+	defaultCommands:#(
+			    'lpr -h'
+			    'cat | rsh <hostname> lpr -h'
+			    'cat > preview.ps'
+			    'cat > preview.ps; ghostview preview.ps'
+			 ).
+    PostscriptPrinterStream printCommand:'lpr'.
+].
 
-PrinterStream defaultCommands:#(
-				    'lpr -h'
-				    'cat | rsh <hostname> lpr -h'
-				    'a2ps | rsh <hostname> lpr -h'
-				    'a2ps > preview.ps; ghostview preview.ps'
-			     ).
+PrinterStream notNil ifTrue:[
+    PrinterStream 
+	defaultCommands:#(
+			    'lpr -h'
+			    'cat | rsh <hostname> lpr -h'
+			    'a2ps | rsh <hostname> lpr -h'
+			    'a2ps > preview.ps; ghostview preview.ps'
+			 ).
+    Printer := PrinterStream.
+    PrinterStream printCommand:'lpr'.
+].
 
-Printer := PrinterStream.
 "/ Printer := PostscriptPrinterStream.
-PostscriptPrinterStream printCommand:'lpr'.
-PrinterStream printCommand:'lpr'.
 
 "/ in our home-domain, preset the print command for remote printing
 "/ on a host called 'ibm'.