anchor.diff:       :accessor container-focus-child
        :initarg :focus-child
        :type widget)
  +    (focus-chain
  +     :allocation :virtual
  +     :getter container-focus-chain
  +     :setter (setf container-focus-chain))
       (focus-hadjustment
        :allocation :virtual
        :getter "gtk_container_get_focus_hadjustment"
  
positive.code:   ("GtkList" :ignore-prefix t)
    ("GtkTree" :ignore t)
    ("GtkTreeItem" :ignore t)
    ("GtkText" :ignore-prefix t)
    ("GtkPacker" :ignore-prefix t)
    ("GtkPixmap" :ignore t)
    ("GtkPreview" :ignore-prefix t)
  
negative.code:     :type int))
    (:metaclass boxed-class)
    (:alien-name "GtkTypeRequisition"))
  
  (defclass allocation (struct)
    ((x
      :allocation :alien
      :accessor allocation-width
      :initarg :x
      :type int)
     (y
      :allocation :alien
      :accessor allocation-width
      :initarg :width
      :type int)
     (width
      :allocation :alien
      :accessor allocation-width
      :initarg :width
      :type int)
     (height
      :allocation :alien
      :accessor allocation-height
      :initarg :height
      :type int))
    (:metaclass proxy-class))
  
  (defclass border (boxed)
    ((left
  