anchor.diff:       :setter "gtk_widget_set_child_visible"
        :accessor widget-child-visible-p
        :initarg :child-visible
  -     :type boolean)))
  +     :type boolean)
  +    (width-request
  +     :merge t :unbound -1)
  +    (height-request
  +     :merge t :unbound -1)))
        
     ("GtkContainer"
      :slots
  
positive.code:     (settings
       :allocation :virtual
       :getter "gtk_widget_get_settings"
       :accessor widget-settings
       :type settings)
      (child-visible
  
negative.code:   ("GtkThemeEngine" :ignore t)
  
    )
  
  
  (defclass text-iter (boxed)
    ((buffer
      :allocation :virtual
      :getter "gtk_text_iter_get_buffer"
      :reader text-iter-buffer
      :type text-buffer)
     (offset
      :allocation :virtual
      :getter "gtk_text_iter_get_offset"
      :setter "gtk_text_iter_set_offset"
      :accessor text-iter-offset
      :type int)
     (line
      :allocation :virtual
      :getter "gtk_text_iter_get_line"
      :setter "gtk_text_iter_set_line"
      :accessor text-iter-line
      :type int)
     (line-offset
      :allocation :virtual
      :getter "gtk_text_iter_get_line_offset"
      :setter "gtk_text_iter_set_line_offset"
      :accessor text-iter-line-offset
      :type int)
     (line-index
      :allocation :virtual
      :getter "gtk_text_iter_get_line_index"
      :setter "gtk_text_iter_set_line_index"
      :accessor text-iter-line-index
      :type int)
     (visible-line-index
      :allocation :virtual
      :getter "gtk_text_iter_get_visible_line_index"
      :setter "gtk_text_iter_set_visible_line_index"
      :accessor text-iter-visible-line-index
      :type int)
     (visible-line-offset
      :allocation :virtual
      :getter "gtk_text_iter_get_visible_line_offset"
      :setter "gtk_text_iter_set_visible_line_offset"
      :accessor text-iter-visible-line-offset
      :type int)
     ;; Workaround to get correct size 
     (dummy14
       :allocation :alien :offset #.(* 13 (size-of 'pointer))
       :type pointer))
    (:metaclass boxed-class 
     ;; I am pretty sure this was working in older versons on CMUCL
     :size #.(* 14 (size-of 'pointer))))
  