anchor.diff:      :type widget))
     (:metaclass container-class)
     (:alien-name "GtkPaned"))
  -
  -(defclass paned-child (container-child)
  -  ()
  -  (:metaclass child-class))
  -
  -
  -(defclass hpaned (paned)
  -  ()
  -  (:metaclass container-class)
  -  (:alien-name "GtkHPaned"))
  -
  -(defclass hpaned-child (paned-child)
  -  ()
  -  (:metaclass child-class))
  -
  -
  -(defclass vpaned (paned)
  -  ()
  -  (:metaclass container-class)
  -  (:alien-name "GtkVPaned"))
  -
  -(defclass vpaned-child (paned-child)
  -  ()
  -  (:metaclass child-class))
   
   
   (defclass layout (container)
  
positive.code:   (:metaclass container-class)
    (:alien-name "GtkScrolledWindow"))
  
  (defclass scrolled-window-child (bin-child)
    ()
    (:metaclass child-class))
  
  
  (defclass viewport (bin)
    ((hadjustment
      :allocation :param
      :accessor viewport-hadjustment
      :initarg :hadjustment
      :type adjustment)   
     (vadjustment
      :allocation :param
      :accessor viewport-vadjustment
      :initarg :vadjustment
      :type adjustment)
     (shadow-type
      :allocation :param
      :accessor viewport-shadow-type
      :initarg :shadow-type
      :type shadow-type))
    (:metaclass container-class)
    (:alien-name "GtkViewport"))
  
  (defclass viewport-child (bin-child)
    ()
    (:metaclass child-class))
    
  
  (defclass box (container)
    ((spacing
      :allocation :param
      :accessor box-spacing
      :initarg :spacing
      :type int)
     (homogeneous
      :allocation :param
      :accessor box-homogeneous-p
      :initarg :homogeneous
      :type boolean))
    (:metaclass container-class)
    (:alien-name "GtkBox"))
  
  (defclass box-child (container-child)
    ((expand
      :allocation :arg
      :accessor box-child-expand-p
      :initarg :expand
      :type boolean)
     (fill
      :allocation :arg
      :accessor box-child-fill-p
      :initarg :fill
      :type boolean)
     (padding
      :allocation :arg
      :accessor box-child-padding
      :initarg :padding
      :type unsigned-long)
     (pack-type
      :allocation :arg
      :accessor box-child-pack-type
      :initarg :pack-type
      :type pack-type)
     (position
      :allocation :arg
      :accessor box-child-position
      :initarg :position
      :type long))
    (:metaclass child-class))
     
  
  (defclass button-box (box)
    ((spacing
  
negative.code:   (:metaclass container-class)
    (:alien-name "GtkDialog"))
  
  
  (defclass color-selection-dialog (dialog)
    ((colorsel
  