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: 
  ;;; Events
  
  ; (defmethod initialize-instance ((event event) &rest initargs &key)
  ;   (declare (ignore initargs))
  ;   (call-next-method)
  ;   )
  
  (defun find-event-class (event-type)
    (find-class
     (ecase event-type
       (:delete 'delete-event)
       (:destroy  'destroy-event)
       (:expose 'expose-event)
       (:motion-notify 'motion-notify-event)
       (:button-press 'button-press-event)
       (:2button-press '2-button-press-event)
       (:3button-press '3-button-press-event)
       (:button-release 'button-release-event)
       (:key-press 'key-press-event)
       (:key-release 'key-release-event)
       (:enter-notify 'enter-notify-event)
       (:leave-notify 'leave-notify-event)
       (:focus-change 'focus-change-event)
       (:configure 'configure-event)
       (:map 'map-event)
       (:unmap 'unmap-event)
       (:property-notify 'property-notify-event)
       (:selection-clear 'selection-clear-event)
       (:selection-request 'selection-request-event)
       (:selection-notify 'selection-notify-event)
       (:proximity-in 'proximity-in-event)
       (:proximity-out 'proximity-out-event)
       (:drag-enter 'drag-enter-event)
       (:drag-leave 'drag-leave-event)
       (:drag-motion 'drag-motion-event)
       (:drag-status 'drag-status-event)
       (:drop-start 'drop-start-event)
       (:drop-finished 'drop-finished-event)
       (:client-event 'client-event-event)
       (:visibility-notify 'visibility-notify-event)
       (:no-expose 'no-expose-event)
       (:scroll 'scroll-event))))
  
  
  (deftype-method alien-copier event (type-spec)
    (declare (ignore type-spec))
    '%event-copy)
  
  (deftype-method alien-deallocator event (type-spec)
    (declare (ignore type-spec))
    '%event-free)
  
  (deftype-method translate-from-alien
      event (type-spec location &optional (alloc :reference))
    `(let ((location ,location))
       (unless (null-pointer-p location)
         (let ((event-class
  	      (find-event-class
  	       (funcall (get-reader-function 'event-type) location 0))))
  	 ,(ecase alloc
  	    (:copy '(ensure-alien-instance event-class location))
  	    (:static '(ensure-alien-instance event-class location :static t))
  	    (:reference '(ensure-alien-instance
  			  event-class (%event-copy location))))))))
  
  
  (define-foreign event-poll-fd () int)
  
  (define-foreign ("gdk_events_pending" events-pending-p) () boolean)
  
  (define-foreign event-get () event)
  
  (define-foreign event-peek () event)
  
  (define-foreign event-get-graphics-expose () event
    (window window))
  
  (define-foreign event-put () event
    (event event))
  
  (define-foreign %event-copy (event &optional size) pointer
    (event (or event pointer)))
  
  (define-foreign %event-free () nil
    (event (or event pointer)))
  
  (define-foreign event-get-time () (unsigned 32)
    (event event))
  
  ;(define-foreign event-handler-set () ...)
  
  (define-foreign set-show-events () nil
    (show-events boolean))
  
  ;;; Misc
  
  (define-foreign set-use-xshm () nil
    (use-xshm boolean))
  
  (define-foreign get-show-events () boolean)
  
  (define-foreign get-use-xshm () boolean)
  
  (define-foreign get-display () string)
  
  ; (define-foreign time-get () (unsigned 32))
  
  ; (define-foreign timer-get () (unsigned 32))
  
  ; (define-foreign timer-set () nil
  ;   (milliseconds (unsigned 32)))
  
  ; (define-foreign timer-enable () nil)
  
  ; (define-foreign timer-disable () nil)
  
  ; input ...
  
  (define-foreign pointer-grab () int
    (window window)
    (owner-events boolean)
    (event-mask event-mask)
  
negative.code: ;; Common Lisp bindings for GTK+ v2.0
  ;; Copyright (C) 1999-2001 Espen S. Johnsen <esj@stud.cs.uit.no>
  ;;
  ;; This library is free software; you can redistribute it and/or
  ;; modify it under the terms of the GNU Lesser General Public
  