anchor.diff:  
   
   (defclass menu-item (item)
  -  ()
  -;   :slots
  -;   ;; slots not accessible through the arg mechanism
  -;   ((label                  :write-only t :access-method :lisp :type string)
  -;    (submenu                :write-method :lisp :type menu-item)
  -;    (placement              :write-only t :type submenu-placement)
  -;    (toggle-indicator       :c-reader "gtk_menu_item_get_show_toggle"
  -; 		           :write-method :lisp :type boolean)
  -;    (submenu-indicator      :c-reader "gtk_menu_item_get_show_submenu"
  -; 		           :write-method :lisp :type boolean)))
  +  ((label
  +    :allocation :virtual
  +    :location menu-item-label
  +    :initarg :label
  +    :type string)
  +   (submenu
  +    :allocation :virtual
  +    :location ("gtk_menu_item_get_submenu" (setf menu-item-submenu))
  +    :reader menu-item-submenu
  +    :initarg :submenu
  +    :type menu-item)
  +   (placement
  +    :allocation :virtual
  +    :location ("gtk_menu_item_get_placement" "gtk_menu_item_set_placement")
  +    :accessor menu-item-placement
  +    :initarg :placement
  +    :type submenu-placement)
  +   (toggle-indicator
  +    :allocation :virtual
  +    :location ("gtk_menu_item_get_show_toggle"
  +	       (setf menu-item-toggle-indicator-p))
  +    :reader menu-item-toggle-indicator-p
  +    :initarg :toggle-indicator
  +    :type boolean)
  +   (submenu-indicator
  +    :allocation :virtual
  +    :location ("gtk_menu_item_get_show_submenu"
  +	       (setf menu-item-submenu-indicator-p))
  +    :reader menu-item-submenu-indicator-p
  +    :initarg :submenu-indicator
  +    :type boolean))
     (:metaclass container-class)
     (:alien-name "GtkMenuItem"))
     
  
positive.code: ;    (min-y                  :access-method :arg :type single-float)
  ;    (max-y                  :access-method :arg :type single-float)))
  
  ; (defclass editable widget
  ;   :slots
  ;   ((position               :type int)
  ;    (editable               :read-method :arg :type boolean)
  ;    ;; slots not accessible through the arg mechanism
  ;    (text                   :access-method :lisp :type string)))
  
  ; (defclass entry editable
  ;   :slots
  ;   ((max-length             :read-method :arg :type unsigned-int)
  ;    (visibility             :read-method :arg :accessor entry-visible-p
  ; 			   :type boolean)
  ;    ;; slots not accessible through the arg mechanism
  ;    (text                   :type string)))
  
  ; (defclass combo hbox
  ;   :slots
  ;   ;; slots not accessible through the arg mechanism
  ;   ((entry                  :read-only t :type entry)
  ;    (use-arrows             :type boolean)
  ;    (use-arrows-always      :type boolean)
  ;    (case-sensitive         :type boolean)))
  
  ; (defclass spin-button entry
  ;   :slots
  ;   ((adjustment             :access-method :arg :type adjustment)
  ;    (climb-rate             :access-method :arg :type single-float)
  ;    (digits                 :access-method :arg :type unsigned-int)
  ;    (snap-to-ticks          :read-method :arg :type boolean)
  ;    (numeric                :read-method :arg :type boolean)
  ;    (wrap                   :read-method :arg :type boolean)
  ;    (update-policy          :read-method :arg :type spin-button-update-policy)
  ;    (shadow-type            :read-method :arg :type shadow-type)
  ;    (value                  :read-method :arg :type single-float)))
  
  ; (defclass text editable
  ;   :slots
  ;   ((hadjustment            :access-method :arg :type adjustment)
  
negative.code:   ()
    (:metaclass child-class))
  
  
  (defclass hbutton-box (button-box)
    ()
    (:metaclass container-class)
  