anchor.diff:     (type (%visual-get-best-with-type type))
      (t (%visual-get-best-with-nothing))))
   
  -;(define-foreign query-depths ..)
  -
  -;(define-foreign query-visual-types ..)
  -
  -(define-foreign list-visuals () (glist visual))
  +;(defbinding query-depths ..)
  +
  +;(defbinding query-visual-types ..)
  +
  +(defbinding list-visuals () (glist visual))
   
   
   ;;; Windows
   
  -; (define-foreign window-new ... )
  -
  -(define-foreign window-destroy () nil
  -  (window window))
  -
  -
  -; (define-foreign window-at-pointer () window
  +; (defbinding window-new ... )
  +
  +(defbinding window-destroy () nil
  +  (window window))
  +
  +
  +; (defbinding window-at-pointer () window
   ;   (window window)
   ;   (x int :in-out)
   ;   (y int :in-out))
   
  -(define-foreign window-show () nil
  -  (window window))
  -
  -(define-foreign window-hide () nil
  -  (window window))
  -
  -(define-foreign window-withdraw () nil
  -  (window window))
  -
  -(define-foreign window-move () nil
  +(defbinding window-show () nil
  +  (window window))
  +
  +(defbinding window-hide () nil
  +  (window window))
  +
  +(defbinding window-withdraw () nil
  +  (window window))
  +
  +(defbinding window-move () nil
     (window window)
     (x int)
     (y int))
   
  -(define-foreign window-resize () nil
  +(defbinding window-resize () nil
     (window window)
     (width int)
     (height int))
   
  -(define-foreign window-move-resize () nil
  +(defbinding window-move-resize () nil
     (window window)
     (x int)
     (y int)
     (width int)
     (height int))
   
  -(define-foreign window-reparent () nil
  +(defbinding window-reparent () nil
     (window window)
     (new-parent window)
     (x int)
     (y int))
   
  -(define-foreign window-clear () nil
  +(defbinding window-clear () nil
     (window window))
   
   (unexport
    '(window-clear-area-no-e window-clear-area-e))
   
  -(define-foreign ("gdk_window_clear_area" window-clear-area-no-e) () nil
  +(defbinding (window-clear-area-no-e "gdk_window_clear_area") () nil
     (window window)
     (x int) (y int) (width int) (height int))
   
  -(define-foreign window-clear-area-e () nil
  +(defbinding window-clear-area-e () nil
     (window window)
     (x int) (y int) (width int) (height int))
   
  
positive.code: 
  
  
  (define-foreign window-set-cursor () nil
    (window window)
    (cursor cursor))
  
  (define-foreign window-get-pointer () window
    (window window)
    (x int :out)
    (y int :out)
    (mask modifier-type :out))
  
  (define-foreign get-root-window () window)
  
  
  
  ;;
  
  (define-foreign rgb-init () nil)
  
  
  
  
negative.code:   '%cursor-unref)
  
  
  (defbinding cursor-new () cursor
    (cursor-type cursor-type))
  
  (defbinding cursor-new-from-pixmap () cursor
    (source pixmap)
    (mask bitmap)
    (foreground color)
    (background color)
    (x int) (y int))
  
  (defbinding %cursor-ref () pointer
    (cursor (or cursor pointer)))
  
  (defbinding %cursor-unref () nil
    (cursor (or cursor pointer)))
  
  
  
  ;;; Pixmaps
  #|
  (defbinding pixmap-new (width height depth &key window) pixmap
    (width int)
    (height int)
    (depth int)
    (window (or null window)))
  					
  (defbinding %pixmap-colormap-create-from-xpm () pixmap
    (window (or null window))
    (colormap (or null colormap))
    (mask bitmap :out)
    (color (or null color))
    (filename string))
  
  (defbinding %pixmap-colormap-create-from-xpm-d () pixmap
    (window (or null window))
    (colormap (or null colormap))
    (mask bitmap :out)
  