host.rc
changeset 932 910313a689a6
parent 678 728aff120ee7
child 952 435154ba084b
--- a/host.rc	Tue May 13 12:54:19 2008 +0200
+++ b/host.rc	Tue May 13 15:33:04 2008 +0200
@@ -37,56 +37,57 @@
 
 host := OperatingSystem getHostName.
 (Smalltalk at:#'_ImageHostName') ~= host ifTrue:[
+    sysType ~= 'win32' ifTrue:[
+	"/
+	"/ setup the printer stuff.
+	"/ the commands below will be offered in the printer-setting box
+	"/
+	PostscriptPrinterStream notNil ifTrue:[
+	    isStupidSYSV3 ifTrue:[
+		PostscriptPrinterStream
+		    defaultCommands:#(
+					'lpr'
+					'cat | remsh {hostname} lpr -h'
+					'cat > preview.ps'
+					'cat > preview.ps; gv preview.ps'
+				     ).
+	    ] ifFalse:[
+		PostscriptPrinterStream
+		    defaultCommands:#(
+					'lpr -h'
+					'cat | rsh {hostname} lpr -h'
+					'cat > preview.ps'
+					'cat > preview.ps; gv preview.ps'
+				     ).
+	    ].
+	    PostscriptPrinterStream printCommand:'lpr'.
+	].
 
-    "/
-    "/ setup the printer stuff.
-    "/ the commands below will be offered in the printer-setting box
-    "/
-    PostscriptPrinterStream notNil ifTrue:[
-	isStupidSYSV3 ifTrue:[
-	    PostscriptPrinterStream
-		defaultCommands:#(
-				    'lpr'
-				    'cat | remsh {hostname} lpr -h'
-				    'cat > preview.ps'
-				    'cat > preview.ps; gv preview.ps'
-				 ).
-	] ifFalse:[
-	    PostscriptPrinterStream
-		defaultCommands:#(
-				    'lpr -h'
-				    'cat | rsh {hostname} lpr -h'
-				    'cat > preview.ps'
-				    'cat > preview.ps; gv preview.ps'
-				 ).
+	PrinterStream notNil ifTrue:[
+	    isStupidSYSV3 ifTrue:[
+		PrinterStream
+		    defaultCommands:#(
+					'lpr -h'
+					'cat | remsh {hostname} lpr -h'
+					'a2ps | remsh {hostname} lpr -h'
+					'a2ps > preview.ps; gv preview.ps'
+				     ).
+	    ] ifFalse:[
+		PrinterStream
+		    defaultCommands:#(
+					'lpr -h'
+					'cat | rsh {hostname} lpr -h'
+					'a2ps | rsh {hostname} lpr -h'
+					'a2ps > preview.ps; gv preview.ps'
+				     ).
+	    ].
+	    Printer := PrinterStream.
+	    PrinterStream printCommand:'lpr'.
 	].
-	PostscriptPrinterStream printCommand:'lpr'.
+	"/ Printer := PostscriptPrinterStream.
     ].
 
-    PrinterStream notNil ifTrue:[
-	isStupidSYSV3 ifTrue:[
-	    PrinterStream
-		defaultCommands:#(
-				    'lpr -h'
-				    'cat | remsh {hostname} lpr -h'
-				    'a2ps | remsh {hostname} lpr -h'
-				    'a2ps > preview.ps; gv preview.ps'
-				 ).
-	] ifFalse:[
-	    PrinterStream
-		defaultCommands:#(
-				    'lpr -h'
-				    'cat | rsh {hostname} lpr -h'
-				    'a2ps | rsh {hostname} lpr -h'
-				    'a2ps > preview.ps; gv preview.ps'
-				 ).
-	].
-	Printer := PrinterStream.
-	PrinterStream printCommand:'lpr'.
-    ].
-
-    "/ Printer := PostscriptPrinterStream.
-
+false ifTrue:[
     "/ in our home-domain, preset the print command for remote printing
     "/ on a host called 'ibm'.
     "/ You can change this for YOUR environment and/or make it unconditional.
@@ -126,6 +127,7 @@
 	].
     ].
 ].
+].
 
 "------------------------------------------------------------------------"
 "/ default compiler setup;