anchor.diff:  (defbinding (keyval-is-lower-p "gdk_keyval_is_lower") () boolean
     (keyval unsigned-int))
   
  +
   ;;; Cairo interaction
   
   #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.8.0")
  
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))
  