--- 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 $'
! !