anchor.diff:    (height int)
     (orientation orientation))
   
  -(define-foreign draw-handle () nil
  +(defbinding draw-handle () nil
     (style style)
     (window gdk:window)
     (state state-type)
  
positive.code: (defun (setf layout-y-size) (y layout)
    (layout-set-size layout (layout-x-size layout) y))
  
  (define-foreign layout-freeze () nil
    (layout layout))
  
  (define-foreign layout-thaw () nil
    (layout layout))
  
  
  
  ;;; List
  
  ; (define-foreign list-new () list-widget)
  
  ; (define-foreign list-insert-items () nil
  ;   (list list-widget)
  ;   (items (list list-item))
  ;   (position int))
  
  ; (define-foreign list-append-items () nil
  ;   (list list-widget)
  ;   (items (glist list-item)))
  
  ; (define-foreign list-prepend-items () nil
  ;   (list list-widget)
  ;   (items (glist list-item)))
  
  ; (define-foreign %list-remove-items () nil
  ;   (list list-widget)
  ;   (items (glist list-item)))
  
  ; (define-foreign %list-remove-items-no-unref () nil
  ;   (list list-widget)
  ;   (items (glist list-item)))
  
  ; (defun list-remove-items (list items &key no-unref)
  ;   (if no-unref
  ;       (%list-remove-items-no-unref list items)
  ;     (%list-remove-items list items)))
  
  ; (define-foreign list-clear-items () nil
  ;   (list list-widget)
  ;   (start int)
  ;   (end int))
  
  ; (define-foreign list-select-item () nil
  ;   (list list-widget)
  ;   (item int))
  
  ; (define-foreign list-unselect-item () nil
  ;   (list list-widget)
  ;   (item int))
  
  ; (define-foreign list-select-child () nil
  ;   (list list-widget)
  ;   (child widget))
  
  ; (define-foreign list-unselect-child () nil
  ;   (list list-widget)
  ;   (child widget))
  
  ; (define-foreign list-child-position () int
  ;   (list list-widget)
  ;   (child widget))
  
  ; (define-foreign list-extend-selection () nil
  ;   (list list-widget)
  ;   (scroll-type scroll-type)
  ;   (position single-float)
  ;   (auto-start-selection boolean))
  
  ; (define-foreign list-start-selection () nil
  ;   (list list-widget))
  
  ; (define-foreign list-end-selection () nil
  ;   (list list-widget))
  
  ; (define-foreign list-select-all () nil
  ;   (list list-widget))
  
  ; (define-foreign list-unselect-all () nil
  ;   (list list-widget))
  
  ; (define-foreign list-scroll-horizontal () nil
  ;   (list list-widget)
  ;   (scroll-type scroll-type)
  ;   (position single-float))
  
  ; (define-foreign list-scroll-vertical () nil
  ;   (list list-widget)
  ;   (scroll-type scroll-type)
  ;   (position single-float))
  
  ; (define-foreign list-toggle-add-mode () nil
  ;   (list list-widget))
  
  ; (define-foreign list-toggle-focus-row () nil
  ;   (list list-widget))
  
  ; (define-foreign list-toggle-row () nil
  ;   (list list-widget)
  ;   (item list-item))
  
  ; (define-foreign list-undo-selection () nil
  ;   (list list-widget))
  
  ; (define-foreign list-end-drag-selection () nil
  ;   (list list-widget))
  
  ; ;; gtkglue.c
  ; (define-foreign list-selection () (glist list-item)
  ;   (list list-widget))
  
  
  
  ;;; Menu shell
  
  (define-foreign menu-shell-insert () nil
    (menu-shell menu-shell)
    (menu-item menu-item)
    (position int))
  
negative.code:   (width int)
    (height int))
  
  ; (defbinding draw-cross () nil
  ;   (style style)
  ;   (window gdk:window)
  ;   (state state-type)
  