anchor.diff:  (defun (setf style-black) (color style)
     (%style-set-color style :black :normal color))
   
  -(define-foreign style-get-gc () gdk:gc
  +(defbinding style-get-gc () gdk:gc
     (style style)
     (color-type color-type)
     (state-type state-type))
   
  -
  -(define-foreign draw-hline () nil
  +|#
  +(defbinding draw-hline () nil
     (style style)
     (window gdk:window)
     (state state-type)
  
positive.code: (defun menu-shell-prepend (menu-shell menu-item)
    (menu-shell-insert menu-shell menu-item 0))
  
  (define-foreign menu-shell-deactivate () nil
    (menu-shell menu-shell))
  
  (define-foreign menu-shell-select-item () nil
    (menu-shell menu-shell)
    (menu-item menu-item))
  
  (define-foreign menu-shell-deselect () nil
    (menu-shell menu-shell))
  
  (define-foreign menu-shell-activate-item () nil
    (menu-shell menu-shell)
    (menu-item menu-item)
    (fore-deactivate boolean))
  
negative.code: ; 	nil
  ;       page-num)))
  
  (defbinding (notebook-nth-page-child "gtk_notebook_get_nth_page") () widget
    (notebook notebook)
    (page-num int))
  
  (defun notebook-page-child (notebook)
    (notebook-nth-page-child notebook (notebook-page notebook)))
  
  (defbinding %notebook-page-num () int
    (notebook notebook)
    (child widget))
  
  