anchor.diff:  (defbinding window-lower () nil
     (window window))
   
  -; (defbinding window-set-user-data () nil
  +(defbinding window-focus () nil
  +  (window window)
  +  (timestamp unsigned-int))
  +
  +(defbinding window-register-dnd () nil
  +  (window window))
  +
  +(defbinding window-begin-resize-drag () nil
  +  (window window)
  +  (edge window-edge)
  +  (button int)
  +  (root-x int)
  +  (root-y int)
  +  (timestamp unsigned-int))
  +
  +(defbinding window-begin-move-drag () nil
  +  (window window)
  +  (button int)
  +  (root-x int)
  +  (root-y int)
  +  (timestamp unsigned-int))
  +
  +;; komplett s langt
  +
  +(defbinding window-set-user-data () nil
  +  (window window)
  +  (user-data pointer))
   
   (defbinding window-set-override-redirect () nil
     (window window)
  
positive.code: (defbinding window-clear () nil
    (window window))
  
  (unexport
   '(window-clear-area-no-e window-clear-area-e))
  
  (defbinding (window-clear-area-no-e "gdk_window_clear_area") () nil
    (window window)
    (x int) (y int) (width int) (height int))
  
  (defbinding window-clear-area-e () nil
    (window window)
    (x int) (y int) (width int) (height int))
  
  (defun window-clear-area (window x y width height &optional expose)
    (if expose
        (window-clear-area-e window x y width height)
      (window-clear-area-no-e window x y width height)))
  
  ; (defbinding window-copy-area () nil
  ;   (window window)
  ;   (gc gc)
  ;   (x int)
  ;   (y int)
  ;   (source-window window)
  ;   (source-x int)
  ;   (source-y int)
  ;   (width int)
  ;   (height int))
  
  (defbinding window-raise () nil
    (window window))
  
negative.code: (defmethod unreference-foreign ((class (eql (find-class 'cursor))) location)
    (declare (ignore class))
    (%cursor-unref location))
  
  
  ;;; Pixmaps
  