anchor.diff:    buffer-p)
   
   (defmethod medium-draw-glyph ((medium clx-medium) element x y
  -			      align-x align-y toward-x toward-y
  -			      transform-glyphs)
  +                              align-x align-y toward-x toward-y
  +                              transform-glyphs)
     (declare (ignore toward-x toward-y transform-glyphs align-x align-y))
     (with-transformed-position ((sheet-native-transformation (medium-sheet medium))
                                 x y)
       (with-clx-graphics () medium
         (xlib:draw-glyph mirror gc (round-coordinate x) (round-coordinate y)
  -		       element
  +                       element
                          :size 16
                          :translate #'translate))))
   
  
positive.code:       ;; May be it is the wrong place to do it.
        (transform-position (sheet-native-transformation (medium-sheet medium)) 0 0)
      (let ((gc-x (round-coordinate mx))
  	  (gc-y (round-coordinate my))
  	  (gc (design-gcontext medium ink)))
        (setf (xlib:gcontext-ts-x gc) gc-x
  	    (xlib:gcontext-ts-y gc) gc-y
  	    (xlib:gcontext-clip-x gc) gc-x
  	    (xlib:gcontext-clip-y gc) gc-y)
        gc)))
  
  (defmethod medium-gcontext ((medium clx-medium) (ink climi::rectangular-tile))
  
negative.code:   (with-slots (gc) medium
      (when gc
        (let ((old-text-style (medium-text-style medium)))
          (unless (eq text-style old-text-style)
            (setf (xlib:gcontext-font gc)
                  (text-style-to-X-font (port medium) (medium-text-style medium))))))))
  
  ;;; Translate from CLIM styles to CLX styles.
  (defconstant +cap-shape-map+ '((:butt . :butt)
                                 (:square . :projecting)
                                 (:round . :round)
                                 (:no-end-point . :not-last)))
  
  (defun translate-cap-shape (clim-shape)
    (let ((clx-shape (cdr (assoc clim-shape +cap-shape-map+))))
      (if clx-shape
          clx-shape
          (progn
            (warn "Unknown cap style ~S, using :round" clim-shape)
            :round))))
  
  (defmethod (setf medium-line-style) :before (line-style (medium clx-medium))
    (with-slots (gc) medium
      (when gc
        (let ((old-line-style (medium-line-style medium)))
          (unless (eql (line-style-thickness line-style)
                       (line-style-thickness old-line-style))
            ;; this is kind of false, since the :unit should be taken
            ;; into account -RS 2001-08-24
            (setf (xlib:gcontext-line-width gc)
                  (round (line-style-thickness line-style))))
          (unless (eq (line-style-cap-shape line-style)
                      (line-style-cap-shape old-line-style))
            (setf (xlib:gcontext-cap-style gc)
                  (translate-cap-shape (line-style-cap-shape line-style))))
          (unless (eq (line-style-joint-shape line-style)
                      (line-style-joint-shape old-line-style))
            (setf (xlib:gcontext-join-style gc)
                  (line-style-joint-shape line-style)))
          ;; we could do better here by comparing elements of the vector
          ;; -RS 2001-08-24
          (unless (eq (line-style-dashes line-style)
                      (line-style-dashes old-line-style))
            (setf (xlib:gcontext-line-style gc)
                  (if (line-style-dashes line-style) :dash :solid)
                  (xlib:gcontext-dashes gc)
                  (case (line-style-dashes line-style)
                    ((t nil) 3)
                    (otherwise (line-style-dashes line-style)))))))))
  
  (defun %set-gc-clipping-region (medium gc)
    (declare (type clx-medium medium))
  