anchor.diff:    (width int)
     (height int))
   
  +(defbinding window-scroll () nil
  +  (window window)
  +  (dx int)
  +  (dy int))
  +
   (defbinding window-reparent () nil
     (window window)
     (new-parent 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: 
  ;;; Cursor
  
  (defmethod initialize-instance ((cursor cursor) &key type mask fg bg 
  				(x 0) (y 0) (display (display-get-default)))
    (setf 
     (slot-value cursor 'location)
     (etypecase type
       (keyword (%cursor-new-for-display display type))
       (pixbuf (%cursor-new-from-pixbuf display type x y))
       (pixmap (%cursor-new-from-pixmap type mask fg bg x y)))))
  
  
  (defbinding %cursor-new-for-display () pointer
    (display display)
    (cursor-type cursor-type))
  
  (defbinding %cursor-new-from-pixmap () pointer
    (source pixmap)
    (mask bitmap)
    (foreground color)
    (background color)
    (x int) (y int))
  
  (defbinding %cursor-new-from-pixbuf () pointer
    (display display)
    (pixbuf pixbuf)
    (x int) (y int))
  
  (defbinding %cursor-ref () pointer
    (location pointer))
  
  