anchor.diff:  
   ;;; Window
   
  -(defmethod initialize-instance ((window window) &rest initargs &key accel-group)
  -  (declare (ignore accel-group))
  -  (call-next-method)
  -  (mapc #'(lambda (accel-group)
  -	    (window-add-accel-group window accel-group))
  -        (get-all initargs :accel-group)))
  +(defmethod initialize-instance ((window window) &rest initargs 
  +				&key accel-group accel-groups)
  +  (declare (ignore accel-group accel-groups))
  +  (prog1
  +      (call-next-method)
  +    (initial-add window #'window-add-accel-group 
  +     initargs :accel-group :accel-groups)))
   
   
   (defbinding window-set-wmclass () nil
  
positive.code:   (columns unsigned-int))
  
  (defbinding table-attach (table child left right top bottom
  			  &key (x-options '(:expand :fill))
  			       (y-options '(:expand :fill))
  			       (x-padding 0) (y-padding 0)) nil
    (table table)
    (child widget)
    (left unsigned-int)
    (right unsigned-int)
    (top unsigned-int)
    (bottom unsigned-int)
    (x-options attach-options)
    (y-options attach-options)
    (x-padding unsigned-int)
    (y-padding unsigned-int))
  
  
negative.code: 
  ;;;; Dialog
  
  (defmethod shared-initialize ((dialog dialog) names &rest initargs 
  			      &key button buttons)
    (declare (ignore button buttons))
    (prog1
        (call-next-method)
      (initial-apply-add dialog #'dialog-add-button initargs :button :buttons)))
    
  
  (defvar %*response-id-key* (gensym))
  