anchor.diff:                        ;; * font-ascent / ascent
                         (values left (- font-ascent) right font-descent)))))))))
   
  -
   (defmethod make-medium-gcontext* (medium foreground background line-style text-style (ink color) clipping-region)
     (let* ((drawable (sheet-mirror (medium-sheet medium)))
            (port (port medium)))
  
positive.code:              :start start :end end
               :translate #'translate)))))))
  
  
  (defmethod (setf medium-text-style) :before (text-style (medium clx-medium))
    (with-slots (gc) medium
      (when gc
  
negative.code: 
  ;;;; Notes
  
  ;;; You might need to tweak mcclim-truetype::*families/faces* to point
  ;;; to where ever there are suitable TTF fonts on your system.
  
  ;;; FIXME: I don't think draw-text* works for strings spanning
  ;;; multiple lines.  FIXME: Not particularly thread safe.
  
  ;;; Some day, it might become useful to decouple the font
  ;;; representation from the xrender details.
  
  (defclass vague-font ()
    ((lib :initarg :lib)
  