--- a/PrinterContext.st	Mon Nov 17 23:36:18 2008 +0100
+++ b/PrinterContext.st	Thu Nov 20 09:52:38 2008 +0100
@@ -736,11 +736,18 @@
         x := aRect left + ((aRect width-(self "container font widthOf:" stringWidthOf:aString))//2).
     ] ifFalse:[ (textAlign == 10) ifTrue:[
         x := aRect right - (self "container font widthof:" stringWidthOf:aString).
-        y := aRect bottom "aPoint y - (self container font ascent)" - self getCharHeight.
+        y := aPoint y - (self container font ascent)"aRect bottom - self getCharHeight".
     ]]]]].
+
+"/aString = '3' ifTrue:[
+"/self halt.
 "/    Transcript showCR: 'Original Pos: ', aPoint x printString, '@', aPoint y printString,
 "/                       ' Pos: ', x printString, '@', y printString,
-"/                       ' Text: ', aString.
+"/                       ' Text: ', aString,
+"/                       ' Align: ', textAlign printString.
+"/    self displayString:aString at:(aPoint x@ aPoint y).
+"/].
+
     self displayString:aString at:(x@y).
 
     "Modified: / 14-12-2006 / 12:29:13 / User"
@@ -947,5 +954,5 @@
 !PrinterContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PrinterContext.st,v 1.18 2008-10-20 14:52:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PrinterContext.st,v 1.19 2008-11-20 08:52:38 fm Exp $'
 ! !