--- a/ImageEditView.st	Tue Nov 13 07:04:05 2007 +0100
+++ b/ImageEditView.st	Mon Nov 19 16:08:02 2007 +0100
@@ -1582,6 +1582,26 @@
     self setModified.
 !
 
+text:aString at:aPoint
+    "draw a character"
+
+    |tempForm|
+
+    tempForm := Form extent:(image extent) depth:1 onDevice:(self device).
+    tempForm clear.
+    tempForm paint:(Color colorId:1).
+    tempForm displayString:aString at:aPoint.
+    0 to:image extent x - 1 do:[:x |
+        0 to:image extent y - 1 do:[:y |
+            (tempForm valueAt:(x@y)) == 1 ifTrue:[
+                self pointAt:(x@y)
+            ].
+        ]
+    ].
+
+    "Modified: / 11-11-2007 / 12:06:33 / cg"
+!
+
 undo
 
     undoImages notEmpty ifTrue:[           
@@ -2411,7 +2431,7 @@
 !ImageEditView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.221 2007-11-02 09:40:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.222 2007-11-19 15:08:02 cg Exp $'
 ! !
 
 ImageEditView initialize!