# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 873931010 -7200
# Node ID 9030f82afd08051fb839a4d67eb833961b28684b
# Parent  31f82f9fb36395d669b8e64a9b0cb5536bbfe6a1
*** empty log message ***

diff -r 31f82f9fb363 -r 9030f82afd08 PrinterStream.st
--- a/PrinterStream.st	Sun Sep 07 02:03:29 1997 +0200
+++ b/PrinterStream.st	Thu Sep 11 00:36:50 1997 +0200
@@ -18,20 +18,6 @@
 !
 
 PrinterStream class instanceVariableNames:'PrintCommand DefaultCommands PageFormat DefaultPageFormats Landscape'
-
-"
- The following class instance variables are inherited by this class:
-
-	PipeStream - 
-	NonPositionableExternalStream - 
-	ExternalStream - 
-	ReadWriteStream - 
-	WriteStream - 
-	PositionableStream - 
-	PeekableStream - 
-	Stream - 
-	Object - 
-"
 !
 
 !PrinterStream class methodsFor:'documentation'!
@@ -97,25 +83,27 @@
 initialize
     "this is usually redefined by the startup-file"
 
-    DefaultCommands isNil ifTrue:[
-        DefaultCommands := #(
-                             'lpr' 
-                             'lpr -P<your-printer>' 
-                             'cat | rsh <printHost> lpr -h' 
-                             'cat >xxx ; ghostview xxx'
-                             'cat > printfile'
-                             'a2ps'
-                             'a2ps | rsh <printHost> lpr -h' 
-                             'a2ps > printfile' 
-                            ).
-    ].
+    OperatingSystem isUNIXlike ifTrue:[
+        DefaultCommands isNil ifTrue:[
+            DefaultCommands := #(
+                                 'lpr' 
+                                 'lpr -P<your-printer>' 
+                                 'cat | rsh <printHost> lpr -h' 
+                                 'cat >xxx ; ghostview xxx'
+                                 'cat > printfile'
+                                 'a2ps'
+                                 'a2ps | rsh <printHost> lpr -h' 
+                                 'a2ps > printfile' 
+                                ).
+        ].
 
-    PrintCommand isNil ifTrue:[
-        (OperatingSystem canExecuteCommand:'lpr') ifTrue:[
-            PrintCommand := 'lpr'
-        ] ifFalse:[
-            PrintCommand := 'lp'
-        ]
+        PrintCommand isNil ifTrue:[
+            (OperatingSystem canExecuteCommand:'lpr') ifTrue:[
+                PrintCommand := 'lpr'
+            ] ifFalse:[
+                PrintCommand := 'lp'
+            ]
+	]
     ].
 
     DefaultPageFormats isNil ifTrue:[
@@ -773,6 +761,6 @@
 !PrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.46 1997-01-03 18:48:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.47 1997-09-10 22:36:50 cg Exp $'
 ! !
 PrinterStream initialize!