--- a/PostscriptPrinterStream.st	Thu Sep 05 15:04:48 1996 +0200
+++ b/PostscriptPrinterStream.st	Thu Sep 05 15:28:15 1996 +0200
@@ -16,12 +16,12 @@
 	classVariableNames:'Prolog Trailer PageProlog PageTrailer FontNames FontHeight
 		FontWidth LeftX TopY PageHeight LinesPerPage PhysicalPageHeight
 		Italic Bold Normal BoldItalic Courier Times Helvetica TopInset
-		LeftInset BottomInset'
+		LeftInset BottomInset SupportsColor'
 	poolDictionaries:''
 	category:'Streams-External'
 !
 
-!PostscriptPrinterStream class methodsFor:'documentation'!
+!PostscriptPrinterStream  class methodsFor:'documentation'!
 
 copyright
 "
@@ -245,7 +245,7 @@
 "
 ! !
 
-!PostscriptPrinterStream class methodsFor:'initialization'!
+!PostscriptPrinterStream  class methodsFor:'initialization'!
 
 initCharacterSize
     "setup the character parameters"
@@ -499,7 +499,7 @@
     "Created: 31.5.1996 / 23:35:18 / cg"
 ! !
 
-!PostscriptPrinterStream class methodsFor:'accessing - defaults'!
+!PostscriptPrinterStream  class methodsFor:'accessing - defaults'!
 
 bottomInset
     "return the bottom margin (in inches)"
@@ -539,6 +539,15 @@
     "Modified: 3.6.1996 / 10:47:21 / cg"
 !
 
+supportsColor
+    SupportsColor notNil ifTrue:[^ SupportsColor].
+    ^ false
+!
+
+supportsColor:aBoolean
+    SupportsColor := aBoolean.
+!
+
 topInset
     "return the top margin (in inches)"
 
@@ -558,7 +567,7 @@
     "Modified: 3.6.1996 / 10:47:26 / cg"
 ! !
 
-!PostscriptPrinterStream class methodsFor:'queries'!
+!PostscriptPrinterStream  class methodsFor:'queries'!
 
 printerTypeName
     "return a descriptive name"
@@ -1015,9 +1024,9 @@
     "Modified: 1.6.1996 / 13:15:23 / cg"
 ! !
 
-!PostscriptPrinterStream class methodsFor:'documentation'!
+!PostscriptPrinterStream  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.39 1996-06-08 09:46:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.40 1996-09-05 13:28:15 ca Exp $'
 ! !
 PostscriptPrinterStream initialize!