diff --git a/ChangeLog.n b/ChangeLog.n index 6848d96124198c0db46dac14756012e9a4049c23..296928474545ab43634c91d5a7e7de045a23f940 100644 --- a/ChangeLog.n +++ b/ChangeLog.n @@ -3,6 +3,11 @@ don't forget to change the version in utils/packages.lisp if you do anything user visible. ******************************************************************************* +2009-09-09 Andreas Fuchs <afuchs@franz.com> + + * tk-silica/xt-graphics.lisp: Fix vertical alignment offset calculation for :bottom + and :center. (spr36162) + 2009-09-09 Andreas Fuchs <afuchs@franz.com> * tk-silica/xt-silica.lisp: Try to query fonts before loading them, as we get @@ -13,6 +18,7 @@ user visible. * tk-silica/xt-graphics: Make sure that drawing rotated text plays nice with :align-x and :align-y. These are relative to the text baseline, which may be rotated, so compute bounding box and text offset after the rotation. + (spr36162) 2009-08-12 Andreas Fuchs <afuchs@franz.com> diff --git a/tk-silica/xt-graphics.lisp b/tk-silica/xt-graphics.lisp index 27c1f602d19fdd78dcfc768e6ea4e34a51753a9f..8ade736606bff2a523a536a705075807aa578f6b 100644 --- a/tk-silica/xt-graphics.lisp +++ b/tk-silica/xt-graphics.lisp @@ -1502,9 +1502,8 @@ (:center (floor width 2)) (:left 0)) (ecase align-y - (:bottom (- height baseline)) - (:center (- (floor height 2) - baseline)) + (:bottom (- baseline height)) + (:center (- baseline (floor height 2))) (:baseline 0) (:top baseline))))