anchor.diff:  (defmethod unreference-foreign ((class (eql (find-class 'cursor))) location)
     (declare (ignore class))
     (%cursor-unref location))
  -
  -
   
   
   ;;; Pixmaps
  
positive.code: 
  ;;; Windows
  
  ; (defbinding window-new ... )
  
  (defbinding window-destroy () nil
    (window window))
  
  
  ; (defbinding window-at-pointer () window
  ;   (window window)
  ;   (x int :in-out)
  ;   (y int :in-out))
  
  (defbinding window-show () nil
    (window window))
  
  (defbinding window-hide () nil
    (window window))
  
  (defbinding window-withdraw () nil
    (window window))
  
  (defbinding window-move () nil
    (window window)
  
negative.code: (defbinding window-lower () nil
    (window window))
  
  (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)
  