anchor.diff:  (defun menu-shell-prepend (menu-shell menu-item)
     (menu-shell-insert menu-shell menu-item 0))
   
  -(define-foreign menu-shell-deactivate () nil
  +(defbinding menu-shell-deactivate () nil
     (menu-shell menu-shell))
   
  -(define-foreign menu-shell-select-item () nil
  +(defbinding menu-shell-select-item () nil
     (menu-shell menu-shell)
     (menu-item menu-item))
   
  -(define-foreign menu-shell-deselect () nil
  +(defbinding menu-shell-deselect () nil
     (menu-shell menu-shell))
   
  -(define-foreign menu-shell-activate-item () nil
  +(defbinding menu-shell-activate-item () nil
     (menu-shell menu-shell)
     (menu-item menu-item)
     (fore-deactivate boolean))
  
positive.code: 
  ;;; Label
  
  (define-foreign label-new () label
    (text string))
  
  (define-foreign label-parse-uline () unsigned-int
    (label label)
    (string string))
  
  
  
  ;;; Acccel label
  
  (define-foreign accel-label-new () accel-label
    (text string))
  
  (define-foreign accel-label-refetch () boolean
    (accel-label accel-label))
  
  
  
  ;;; Tips query
  
  (define-foreign tips-query-new () tips-query)
  
  (define-foreign tips-query-start-query () nil
    (tips-query tips-query))
  
  (define-foreign tips-query-stop-query () nil
    (tips-query tips-query))
  
  
  
  ;;; Arrow
  
  (define-foreign arrow-new () arrow
    (arrow-type arrow-type)
    (shadow-type shadow-type))
  
  
  
  ;;; Pixmap
  
  (defmethod initialize-instance ((pixmap pixmap) &rest initargs
  				&key source mask)
    (declare (ignore initargs))
    (call-next-method)
    (if (typep source 'gdk:pixmap)
        (pixmap-set pixmap source mask)
      (multiple-value-bind (source mask) (gdk:pixmap-create source)
        (pixmap-set pixmap source mask))))
  
  (defun pixmap-new (source &optional mask)
    (make-instance 'pixmap :source source :mask mask))
  
  (define-foreign pixmap-set () nil
    (pixmap pixmap)
    (source gdk:pixmap)
    (mask (or null gdk:bitmap)))
  
  (defun (setf pixmap-source) (source pixmap)
    (if (typep source 'gdk:pixmap)
        (pixmap-set pixmap source (pixmap-mask pixmap))
      (multiple-value-bind (source mask) (gdk:pixmap-create source)
        (pixmap-set pixmap source mask)))
    source)
  
  (defun (setf pixmap-mask) (mask pixmap)
    (pixmap-set pixmap (pixmap-source pixmap) mask)
    mask)
      
  (define-foreign ("gtk_pixmap_get" pixmap-source) () nil
    (pixmap pixmap)
    (val gdk:pixmap :out)
    (nil null))
  
  (define-foreign ("gtk_pixmap_get" pixmap-mask) () nil
    (pixmap pixmap)
    (nil null)
    (mask gdk:bitmap :out))
  
  
  
  
negative.code:      menu-label-widget)
      menu-label-widget))
  
  (defbinding notebook-query-tab-label-packing (notebook ref) nil
    (notebook notebook)
    ((if (typep ref 'widget)
         ref
  