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:                                         (fontconfig-font-name-size font-name)
                                          (fontconfig-font-name-options font-name)))
                      :size (fontconfig-font-name-size font-name))))))))))
  
  
  (defmethod text-style-mapping :around
      ((port clim-clx::clx-port) (text-style climi::device-font-text-style)
  
negative.code:               (setf (xlib:gcontext-font gc)
                      fn))))))))
  
  ;;; This fixes the worst offenders making the assumption that drawing
  ;;; would be idempotent.
  
  (defmethod clim:handle-repaint :around ((s clim:sheet-with-medium-mixin) r)
    (let ((m (clim:sheet-medium s))
  