anchor.diff:    ((%notebook-child notebook page) widget))
   
   (defbinding (notebook-tab-label-text "gtk_notebook_get_tab_label_text")
  -    (notebook page) string
  +    (notebook page) (copy-of string)
     (notebook notebook)
     ((%notebook-child notebook page) widget))
   
  
positive.code: 
  (defbinding stock-lookup () boolean
    (stock-id string)
    (stock-item stock-item :out))
    
  
  
  
negative.code: 
  ;;; Entry
  
  (defbinding  entry-get-layout () (copy-of pango:layout)
    (entry entry))
  
  (defbinding entry-get-layout-offsets () nil
  