anchor.diff:  
   ; ;;; Menu bar
   
  -(define-foreign menu-bar-new () menu-bar)
  -
  -; (define-foreign menu-bar-insert () nil
  +; (defbinding menu-bar-insert () nil
   ;   (menu-bar menu-bar)
   ;   (menu menu)
   ;   (position int))
  
positive.code:   (y int)
    (string string))
  
  (define-foreign draw-box () nil
    (style style)
    (window gdk:window)
    (state state-type)
  
negative.code: 
  ;;; Label
  
  (defbinding label-select-region () nil
    (label label)
    (start int)
    (end int))
  
  
  
  ;;; Acccel label
  
  (defbinding accel-label-refetch () boolean
    (accel-label accel-label))
  
  
  
  