--- a/EpsonFX1PrinterStream.st	Mon Nov 08 03:31:40 1993 +0100
+++ b/EpsonFX1PrinterStream.st	Mon Nov 08 03:32:20 1993 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic2/EpsonFX1PrinterStream.st,v 1.4 1993-10-13 02:11:56 claus Exp $
+$Header: /cvs/stx/stx/libbasic2/EpsonFX1PrinterStream.st,v 1.5 1993-11-08 02:30:19 claus Exp $
 
  cannot tell, if this is really an Epson -
  all I have is a Citizen 120D to test - the doc says its an FX1
@@ -82,6 +82,9 @@
 !EpsonFX1PrinterStream methodsFor:'access writing'!
 
 character:char fromCharacterSet:set
+    "send a character from an alternate character set"
+
+    "send <ESC>R<set><char><ESC>R<\0>"
     super nextPut:(Character esc).
     super nextPut:$R.
     super nextPut:(Character value:set).
@@ -92,7 +95,9 @@
 !
 
 nextPut:aCharacter
-    "catch special characters"
+    "catch special characters 
+     - currently only german umlauts are handled - needs more"
+
     |ascii|
 
     ascii := aCharacter asciiValue.
@@ -131,22 +136,25 @@
 !
 
 bold
-    "switch to bold font-face"
+    "set font to bold"
 
+    "send <ESC>G will do that"
     super nextPut:(Character esc).
     super nextPutAll:'G'
 !
 
 italic
-    "switch to italic/oblique font-face"
+    "set font to italic"
 
+    "send <ESC>4 will do that"
     super nextPut:(Character esc).
     super nextPutAll:'4'
 !
 
 normal
-    "switch to normal font-face"
+    "set font to normal"
 
+    "send <ESC>H<ESC>5 will do that"
     super nextPut:(Character esc).
     super nextPutAll:'H'.
     super nextPut:(Character esc).