anchor.diff:       ,@body))
   
   
  -(defmacro widget-destroyed (place)
  -  `(setf ,place nil))
  -
  -
   ;;; Bindings
   
   (defbinding widget-destroy () nil
  
positive.code:   (child-property string))
  
  (defbinding widget-freeze-child-notify () nil
    (widget widget))
  
  (defbinding %widget-get-size-request () nil
  
negative.code:   (widget widget)
    (style rc-style))
  
  (defbinding widget-get-modifier-style () rc-style
    (widget widget))
  
  (defbinding widget-modify-fg () nil
    (widget widget)
    (state state-type)
    (color gdk:color))
  
  (defbinding widget-modify-bg () nil
    (widget widget)
    (state state-type)
    (color gdk:color))
  