--- a/PrinterStream.st	Fri Nov 24 21:55:31 1995 +0100
+++ b/PrinterStream.st	Mon Nov 27 23:09:29 1995 +0100
@@ -42,7 +42,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.12 1995-11-23 01:51:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.13 1995-11-27 22:09:29 cg Exp $'
 ! !
 
 !PrinterStream class methodsFor:'initialization'!
@@ -78,16 +78,23 @@
     LeftMargin := aNumber
 !
 
-printCommand
-    "return the command for printing (usually lp or lpr)"
-
-    ^ PrintCommand
-!
-
 printCommand:aString
     "set the command for printing (usually lp or lpr)"
 
     PrintCommand := aString
+
+    "
+     PrinterStream printCommand:'lpr'
+     PrinterStream printCommand:'lpr -h'
+     PrinterStream printCommand:'rsh ibm lpr -h'
+     PrinterStream printCommand:'gs -sDEVICE=djet500 -sOutputFile=/tmp/stx.ps -sPAPERSIZE=a4 -q -; cat /tmp/stx.ps | rsh ibm lpr -h'
+    "
+!
+
+printCommand
+    "return command used for printing (usually lp or lpr)"
+
+    ^ PrintCommand
 ! !
 
 !PrinterStream methodsFor:'access writing'!