--- a/GraphicsContext.st	Sat Apr 12 13:35:09 2014 +0200
+++ b/GraphicsContext.st	Sat Apr 12 13:35:51 2014 +0200
@@ -1491,17 +1491,20 @@
     |fg bg f noColor|
 
     aFormOrImage depth > 1 ifTrue:[
-	self displayOpaqueForm:aFormOrImage x:x y:y.
-	^ self.
+        self displayOpaqueForm:aFormOrImage x:x y:y.
+        ^ self.
     ].
+"/    aFormOrImage mask notNil ifTrue:[
+"/self halt.
+"/    ].
 
     fg := paint.
     bg := bgPaint.
     f := function.
 
     f ~~ #copy ifTrue:[
-	self error:'function not supported'.
-	^ self
+        self error:'function not supported'.
+        ^ self
     ].
 
     noColor := Color noColor.
@@ -1829,6 +1832,12 @@
     self displayString:aString x:aPoint x y:aPoint y
 !
 
+displayString:aString centeredAt:aPoint
+    "draw a string - drawing fg only"
+
+    self displayString:aString centeredAtX:aPoint x y:aPoint y
+!
+
 displayString:aString centeredAtX:x y:y
     "draw a string - drawing fg only"
 
@@ -2512,11 +2521,11 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.135 2014-04-03 14:37:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.136 2014-04-12 11:35:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.135 2014-04-03 14:37:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.136 2014-04-12 11:35:51 cg Exp $'
 ! !