--- a/PrinterStream.st	Fri Feb 02 17:24:31 1996 +0100
+++ b/PrinterStream.st	Fri Feb 02 20:53:52 1996 +0100
@@ -36,13 +36,23 @@
 documentation
 "
     a stream for printing; this (concrete or abstract) class can handle only
-    very dumb printers. More intelligence is added by subclasses (see
-    PostscriptPrinterStream among others.)
+    very dumb printers. No attributes (italic, bold etc) and no multiple fonts
+    are supported - just plain single font text printing.
+
+    More intelligence is added by subclasses (see PostscriptPrinterStream among others.)
 "
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.14 1996-01-05 14:09:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/PrinterStream.st,v 1.15 1996-02-02 19:53:52 cg Exp $'
+! !
+
+!PrinterStream class methodsFor:'queries'!
+
+printerTypeName
+    "return a descriptive name"
+
+    ^ 'dump printer'
 ! !
 
 !PrinterStream class methodsFor:'initialization'!
@@ -128,6 +138,18 @@
     self spaces:LeftMargin
 !
 
+escape:aCharacter
+    "since its so common, this method sends escape followed by aCharacter"
+
+    super nextPut:(Character escape); nextPut:aCharacter
+!
+
+escapeAll:aString
+    "since its so common, this method sends escape followed by aString"
+
+    super nextPut:(Character escape); nextPutAll:aString
+!
+
 helvetica
     "set font to helvetic
      - ignore here, since this class does not know anything about the printer"