anchor.diff:      :type int)
      (editable
       :allocation :arg
  -    :accessor ediatable-editable-p
  -    :initarg :editabe
  +    :accessor editable-editable-p
  +    :initarg :editable
       :type boolean)
      (text
       :allocation :virtual
       :location editable-text
  -    :initarg text
  +    :initarg :text
       :type string))
     (:metaclass widget-class)
     (:alien-name "GtkEditable"))
  
positive.code:   (:metaclass container-class)
    (:alien-name "GtkTearoffMenuItem"))
  
  (defclass tearoff-menu-item-child (menu-item-child))
  
  
  (defclass list-item (item)
  
negative.code:   (:metaclass container-class)
    (:alien-name "GtkTreeItem"))
  
  (defclass tree-item-child (item-child)
    ()
    (:metaclass child-class))
  
  
  (defclass window (bin)
  