anchor.diff:  
   ;;; TEXT-STYLE-ASCENT
   
  +;; FIXME: Cairo documentation states that these numbers, AIUI, are not
  +;; exact measurements but rather values tweaked by the font designer for
  +;; better visual effect.
  +;;
  +;; What this seems to mean in practise is that, say, ASCENT is nearly
  +;; identical to text_extent.height in the tests I tried.
  +;;
  +;; So which one does CLIM want?  What are these function actually being
  +;; used for?
  +;;
  +;;   --DFL
  +
   (let ((hash (make-hash-table)))
     (defmethod text-style-ascent :around (text-style (medium gtkairo-medium))
       (or (gethash text-style hash)
  
positive.code: 	       :start start
  	       :end (or end (length string)))))
  
  (defmethod text-size
      ((medium metrik-medium) string &key text-style (start 0) end)
    (with-cairo-medium (medium)
  
negative.code:        (sync-sheet medium)
         (cairo_identity_matrix cr)
         (sync-text-style medium text-style t)
         ;; This didn't work well for Climacs. --DFL
  ;;;       (cffi:with-foreign-object (res 'cairo_text_extents)
  ;;;         (cairo_text_extents cr "m" res)
  ;;;         (slot res 'cairo_text_extents 'width))
         (cffi:with-foreign-object (res 'cairo_font_extents)
  	 (cairo_font_extents cr res)
  	 (slot res 'cairo_font_extents 'max_x_advance))))))
  
  
  ;;; TEXT-STYLE-FIXED-WIDTH-P
  