anchor.diff:  
   ;;; Accelerator Groups
   #|
  -(defbinding accel-group-get-default () accel-group)
  -
  -(deftype-method alien-ref accel-group (type-spec)
  -  (declare (ignore type-spec))
  -  '%accel-group-ref)
  -
  -(deftype-method alien-unref accel-group (type-spec)
  -  (declare (ignore type-spec))
  -  '%accel-group-unref)
  -
  -(defbinding %accel-group-ref () accel-group
  -  (accel-group (or accel-group pointer)))
  -
  -(defbinding %accel-group-unref () nil
  -  (accel-group (or accel-group pointer)))
  -
   (defbinding accel-group-activate (accel-group key modifiers) boolean
     (accel-group accel-group)
     ((gdk:keyval-from-name key) unsigned-int)
  
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))
  