anchor.diff:  		 ;; :graft (find-graft :port port) 
   		 :sheet sheet))
   
  -(defconstant *clx-text-families* '(:fix         "adobe-courier"
  -				   :serif       "adobe-times"
  -				   :sans-serif  "adobe-helvetica"))
  -
  -(defconstant *clx-text-faces* '(:roman          "medium-r"
  -				:bold           "bold-r"
  -				:italic         "medium-i"
  -				:bold-italic    "bold-i"
  -				:italic-bold    "bold-i"))
  -
   (defparameter *clx-text-sizes*
     '(:normal         12
       :tiny            8
  
positive.code:     (let ((text-style (parse-text-style text-style)))
        (labels
            ((find-and-make-xlib-face (display family face size)
               (destructuring-bind (family-name face-table)
                   (if (stringp family)
                       (list family *clx-text-faces*)
                       (or (getf *clx-text-family+face-map* family)
                           (getf *clx-text-family+face-map* :fix)))
                 (let* ((face-name (if (stringp face)
                                       face
                                       (or (getf face-table
                                                 (if (listp face)
                                                     (intern (format nil "~A-~A"
                                                                     (symbol-name (first face))
                                                                     (symbol-name (second face)))
                                                             :keyword)
                                                     face))
                                           (getf *clx-text-faces* :roman)))))
                   (flet ((try (encoding)
                            (open-font
                             display
                             (format nil "-~A-~A-*-*-~D-*-*-*-*-*-~A"
                                     family-name face-name size encoding))))
                     (or (when (> char-code-limit #x100)
                           (try "iso10646-1"))
                         (try "iso8859-1")
                         (try "*-*"))))))
             (find-font ()
               (multiple-value-bind (family face size)
                   (text-style-components text-style)
  
negative.code:                (setf face   (or face :roman)
                       family (or family :fix)
                       size   (or size :normal)
                       size   (round (getf clim-clx::*clx-text-sizes* size size)))
  
                 (when (eq family :fixed)
                   (setf family :fix))
  
                 (when (zerop size)
                   (setf size (getf clim-clx::*clx-text-sizes* :normal)))
  
                 (let ((display (clim-clx::clx-port-display port)))
                   (find-and-make-xlib-face display family face size)))))
  