anchor.diff:    (declare (ignore clipboard))
     (funcall (cdr (find-user-data callback-ids))))
   
  -(defbinding clipboard-set-with-data (clipboard targets get-func clear-func) gobject
  +(defbinding %clipboard-set-with-data (clipboard targets get-func clear-func) boolean
     (clipboard clipboard)
     (targets (vector (inlined target-entry)))
     ((length targets) unsigned-int)
  
positive.code:   (defbinding selection-data-get-uris () (null-terminated-vector string)
      (selection-data selection-data)))
  
  (defbinding selection-data-get-targets () boolean
    (selection-data selection-data)
    (targets (vector gdk:atom n-atoms))
    (n-atoms int))
  
  #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
  (defbinding selection-data-targets-include-image-p (selection-data &optional writable-p) boolean
    (selection-data selection-data)
    (writable-p boolean))
  
  (defbinding selection-data-targets-include-text-p (selection-data) boolean
    (selection-data selection-data))
  
  (defbinding selection-remove-all () boolean
  
negative.code:   (%clipboard-clear-callback callback)
    ((register-user-data (cons get-func clear-func)) unsigned-int))
  
  (defun clipboard-set-with-data (clipboard targets get-func &optional clear-func)
    (%clipboard-set-with-data clipboard (ensure-target-table targets) 
     get-func (or clear-func #'(lambda ()))))
  
  (defbinding clipboard-clear () nil
    (clipboard clipboard))
  
  (defbinding clipboard-set-text () nil
    (clipboard clipboard)
    (text string)
    ((length text) int))
  