anchor.diff:          (call-next-method s r)
           ;; FIXME: Shouldn't McCLIM always do this?
           (medium-force-output (sheet-medium s))))))
  -
  
positive.code:                       ;; * 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)))
  
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))
  