--- a/CharacterArray.st	Wed Jul 16 14:58:22 1997 +0200
+++ b/CharacterArray.st	Tue Jul 22 09:50:42 1997 +0200
@@ -3061,7 +3061,33 @@
     "display the receiver in a graphicsContext - this method allows
      strings to be used like DisplayObjects."
 
-    ^ aGc displayString:self string x:x y:y.
+    self displayOn:aGc x:x y:y opaque:false
+
+    "Modified: 11.5.1996 / 14:42:48 / cg"
+!
+
+displayOn:aGC x:x y:y from:start to:stop
+    "display the receiver on a GC"
+
+    "q&d hack"
+
+    (self copyFrom:start to:stop) displayOn:aGC x:x y:y opaque:false
+
+    "Modified: 12.5.1996 / 12:49:33 / cg"
+!
+
+displayOn:aGc x:x y:y opaque:opq
+    "display the receiver in a graphicsContext - this method allows
+     strings to be used like DisplayObjects."
+
+    |s|
+
+    s := self string.
+    opq ifTrue:[
+        aGc displayOpaqueString:s x:x y:y.
+    ] ifFalse:[
+        aGc displayString:s x:x y:y.
+    ].
 
     "Modified: 11.5.1996 / 14:42:48 / cg"
 !
@@ -3070,10 +3096,21 @@
     "display the receiver in a graphicsContext - this method allows
      strings to be used like DisplayObjects."
 
-    ^ aGc displayOpaqueString:self string x:x y:y.
+    self displayOn:aGc x:x y:y opaque:true
 
     "Modified: 11.5.1996 / 14:42:48 / cg"
     "Created: 12.5.1996 / 12:28:40 / cg"
+!
+
+displayOpaqueOn:aGC x:x y:y from:start to:stop
+    "display the receiver on a GC"
+
+    "q&d hack"
+
+    (self copyFrom:start to:stop) displayOn:aGC x:x y:y opaque:true
+
+    "Created: 12.5.1996 / 12:29:37 / cg"
+    "Modified: 12.5.1996 / 12:49:19 / cg"
 ! !
 
 !CharacterArray methodsFor:'emphasis'!
@@ -4952,6 +4989,6 @@
 !CharacterArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.133 1997-07-16 11:56:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.134 1997-07-22 07:50:42 ca Exp $'
 ! !
 CharacterArray initialize!