anchor.diff:      :type unsigned-int)
      (row-spacing
       :allocation :arg
  -    :accessor table-row-spacing
  +    :accessor table-default-row-spacing
       :initarg :row-spacing
       :type unsigned-int)
      (column-spacing
       :allocation :arg
  -    :accessor table-column-spacing
  +    :accessor table-default-column-spacing
       :initarg :column-spacing
       :type unsigned-int)
      (homogeneous
  
positive.code:   (:metaclass container-class)
    (:alien-name "GtkToggleButton"))
  
  (defclass toggle-button-child (button-child))
  
  
  (defclass check-button (toggle-button)
  
negative.code: ;    (cancel-button          :read-only t :type widget)
  ;    (help-button            :read-only t :type widget)))
  
  (defclass dialog (window)
    ((action-area
      :allocation :virtual
      :location "gtk_dialog_get_action_area"
      :reader dialog-action-area
      :type widget)
     (box
      :allocation :virtual
      :location "gtk_dialog_get_vbox"
      :reader dialog-box
      :type widget))  
    (:metaclass container-class)
    (:alien-name "GtkDialog"))
  
  (defclass dialog-child (window-child)
    ()
    (:metaclass child-class))
  
  
  (defclass input-dialog (dialog)
    ()
    (:metaclass container-class)
    (:alien-name "GtkInputDialog"))
  
  (defclass input-dialog-child (dialog-child)
    ()
    (:metaclass child-class))
  
  
  ; (defclass file-selection window
  ;   :slots
  