anchor.diff:      (cr cairo:context)
       (color color))
   
  -  (defbinding cairo-set-source-pixbuf () nil
  +  (defbinding cairo-set-source-pixbuf (cr pixbuf &optional (x 0.0) (y 0.0)) nil
       (cr cairo:context)
       (pixbuf pixbuf)
  +    (x double-float)
  +    (y double-float))
  + 
  +  (defbinding cairo-set-source-pixmap (cr pixmap &optional (x 0.0) (y 0.0)) nil
  +    (cr cairo:context)
  +    (pixmap pixmap)
       (x double-float)
       (y double-float))
    
  
positive.code:   (depth int))
  
  (defmethod allocate-foreign ((pximap pixmap) &key width height depth window)
    (%pixmap-new window width height depth))
  
  (defun pixmap-new (width height depth &key window)
    (warn "PIXMAP-NEW is deprecated, use (make-instance 'pixmap ...) instead")
  
negative.code:     (cr cairo:context)
      (rectangle rectangle))
   
    (defbinding cairo-region (cr region) nil
      (cr cairo:context)
      ((ensure-region region) region))
  
    (defbinding (cairo-surface-get-window "clg_gdk_cairo_surface_get_window") () window
      (surface cairo:surface))
  