anchor.diff:  ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
   ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
   
  -;; $Id: gtkselection.lisp,v 1.11 2007-12-12 15:47:29 espen Exp $
  +;; $Id: gtkselection.lisp,v 1.12 2007-12-13 14:29:59 espen Exp $
   
   
   (in-package "GTK")
  
positive.code:   (clipboard clipboard)
    (pixbuf gdk:pixbuf))
  
  (defun clipboard-set (clipboard object)
    (etypecase object
      (string (clipboard-set-text clipboard object))
      #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
      (gdk:pixbuf (clipboard-set-image clipboard object))))
  
  (define-callback-marshal %clipboard-receive-callback nil 
   ((:ignore clipboard) selection-data))
  
negative.code: 
  #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
  (progn
    (defbinding target-list-add-text-targets (target-list  &optional info writable-p) nil
      (target-list target-list)
      ((or info 0) unsigned-int)
      (writable-p boolean))
    
    (defbinding target-list-add-image-targets (target-list &optional info writable-p) nil
      (target-list target-list)
      ((or info 0) unsigned-int)
      (writable-p boolean))
  
    (defbinding target-list-add-uri-targets (target-list &optional info writable-p) nil
      (target-list target-list)
      ((or info 0) unsigned-int)
      (writable-p boolean)))
  
  (defbinding target-list-remove (target-list target) nil
  