--- a/PrinterContext.st	Thu May 08 13:28:58 2008 +0200
+++ b/PrinterContext.st	Tue May 13 12:58:59 2008 +0200
@@ -727,11 +727,10 @@
     (textAlign == 8 "TaBottom") ifTrue:[
         y := aPoint y - (self container font ascent) "container font ascent".
     ] ifFalse:[ (textAlign == 6 "TaCenter") ifTrue:[
-        #TODO.
 "/        x := aRect left + ((aRect width-(container font widthOf:aString))//2).
     ] ifFalse:[ (textAlign == 2 "TaRight") ifTrue:[
         x := aRect right - (self "container font widthof:" stringWidthOf:aString).
-        y := self "container font ascent" getCharHeight + aPoint y .
+"/        y := self "container font ascent" getCharHeight + aPoint y .
     ] ifFalse:[ (textAlign == 14 "TaCenterBottom") ifTrue:[
         y := aRect bottom - self getCharHeight "container font ascent".
         x := aRect left + ((aRect width-(self "container font widthOf:" stringWidthOf:aString))//2).
@@ -946,5 +945,5 @@
 !PrinterContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PrinterContext.st,v 1.16 2007-04-23 09:31:34 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PrinterContext.st,v 1.17 2008-05-13 10:58:59 fm Exp $'
 ! !