anchor.diff:  
   
   (defmethod compute-signal-function ((widget widget) signal function object)
  +  (declare (ignore signal))
     (if (eq object :parent)
         #'(lambda (&rest args)
   	  (if (slot-boundp widget 'parent)
  
positive.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gtkwidget.lisp,v 1.22 2006-04-25 20:19:32 espen Exp $
  
  (in-package "GTK")
  
  
negative.code: (defbinding widget-size-request
      (widget &optional (requisition (make-instance 'requisition))) nil
    (widget widget)
    (requisition requisition :in/return))
  
  (defbinding widget-get-child-requisition 
      (widget &optional (requisition (make-instance 'requisition))) nil
    (widget widget)
    (requisition requisition :in/return))
  
  (defbinding widget-size-allocate () nil
    (widget widget)
  