--- a/PrinterStream.st	Mon Jun 03 17:17:41 1996 +0200
+++ b/PrinterStream.st	Mon Jun 03 19:06:17 1996 +0200
@@ -397,12 +397,22 @@
     "Modified: 18.4.1996 / 20:04:12 / cg"
 !
 
+supportsColor
+    "return true if this is a color printer"
+
+    ^ false
+
+    "Created: 3.6.1996 / 18:00:36 / cg"
+!
+
 supportsMargins
-    "return true if this printer supports margin settings"
+    "return true if this printer supports margin settings (in inches)
+     if not, it supports at least a leftMargin to be specified in columns."
 
     ^ false
 
     "Created: 3.6.1996 / 10:47:54 / cg"
+    "Modified: 3.6.1996 / 18:24:20 / cg"
 !
 
 supportsPageSizes
@@ -501,14 +511,6 @@
     "Modified: 10.4.1996 / 13:08:28 / cg"
 ! !
 
-!PrinterStream methodsFor:'accessing'!
-
-pageFormat
-    ^ self class pageFormat
-
-    "Modified: 3.6.1996 / 10:27:45 / cg"
-! !
-
 !PrinterStream methodsFor:'emphasis change'!
 
 bold
@@ -676,6 +678,13 @@
 
 !PrinterStream methodsFor:'queries'!
 
+bottomInset
+    ^ self class bottomInset
+
+    "Modified: 3.6.1996 / 10:27:45 / cg"
+    "Created: 3.6.1996 / 18:24:40 / cg"
+!
+
 isPrinterStream
     "return true, if this is a printerStream.
      Always true here."
@@ -685,15 +694,61 @@
     "Created: 3.6.1996 / 12:06:21 / cg"
 !
 
+leftInset
+    ^ self class leftInset
+
+    "Modified: 3.6.1996 / 10:27:45 / cg"
+    "Created: 3.6.1996 / 18:23:07 / cg"
+!
+
 lineLength
     "the printer pages width (in characters)"
 
     ^ 80
+!
+
+pageFormat
+    ^ self class pageFormat
+
+    "Modified: 3.6.1996 / 10:27:45 / cg"
+!
+
+supportsColor
+    "return true if this is a color printer"
+
+    ^ self class supportsColor
+
+    "Created: 3.6.1996 / 18:00:27 / cg"
+!
+
+supportsMargins
+    "return true if this printer supports margin settings (in inches)
+     if not, it supports at least a leftMargin to be specified in columns."
+
+    ^ self class supportsMargins
+
+    "Created: 3.6.1996 / 17:59:35 / cg"
+    "Modified: 3.6.1996 / 18:24:04 / cg"
+!
+
+supportsPostscript
+    "return true if this is a postscript printer"
+
+    ^ self class supportsPostscript
+
+    "Created: 3.6.1996 / 17:59:58 / cg"
+!
+
+topInset
+    ^ self class topInset
+
+    "Modified: 3.6.1996 / 10:27:45 / cg"
+    "Created: 3.6.1996 / 18:24:37 / cg"
 ! !
 
 !PrinterStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.33 1996-06-03 15:17:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.34 1996-06-03 17:06:17 cg Exp $'
 ! !
 PrinterStream initialize!