--- 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;