anchor.diff:    (setf string (normalize-text-data string))
     (setf text-style (or text-style (make-text-style nil nil nil)))
     (setf text-style
  -	(merge-text-styles text-style (medium-default-text-style medium)))
  +        (merge-text-styles text-style (medium-default-text-style medium)))
     (gfw:with-graphics-context (gc (target-of medium))
  -    (let* ((font (text-style-to-font gc text-style nil))
  -	   (metrics (gfg:metrics gc font))
  -	   (width (gfs:size-width (gfg:text-extent gc (subseq string
  -							      start
  -							      (or end (length string)))))))
  -      (values width
  -	      (gfg:height metrics)
  -	      width
  -	      (gfg:height metrics)
  -	      (gfg:ascent metrics)))))
  +    (let ((font (text-style-to-font gc text-style nil)))
  +      (setf (gfg:font gc) font)
  +      (let ((metrics (gfg:metrics gc font))
  +            (extent (gfg:text-extent gc (subseq string
  +                                                start
  +                                                (or end (length string))))))
  +        (values (gfs:size-width extent)
  +                (gfg:height metrics)
  +                (gfs:size-width extent)
  +                (gfg:height metrics)
  +                (gfg:ascent metrics))))))
   
   (defmethod climi::text-bounding-rectangle*
       ((medium graphic-forms-medium) string &key text-style (start 0) end)
  
positive.code:       (let ((font (font-of medium)))
          (if font
            (setf (gfg:font gc) font))
          (let ((h (gfg:height (gfg:metrics gc font)))
  	      (x (round-coordinate x))
  	      (y (round-coordinate y)))
  	  (gfg:draw-text gc
  			 (subseq string start (or end (length string)))
  			 (gfs:make-point :x x :y (- y h))))))
      (add-medium-to-render medium)))
  
  (defmethod medium-buffering-output-p ((medium graphic-forms-medium))
  
negative.code: 
  (defmethod medium-clear-area ((medium graphic-forms-medium) left top right bottom)
    (when (target-of medium)
      (let ((rect (coordinates->rectangle left top right bottom))
            (color (ink-to-color medium (medium-background medium))))
        (gfw:with-graphics-context (gc (target-of medium))
          (setf (gfg:background-color gc) color
                (gfg:foreground-color gc) color)
          (gfg:draw-filled-rectangle gc rect)))
      (add-medium-to-render medium)))
  
  