anchor.diff:      (initial-add window #'window-add-accel-group 
        initargs :accel-group :accel-groups)))
   
  +#-debug-ref-counting
  +(defmethod print-object ((window window) stream)
  +  (if (and 
  +       (proxy-valid-p window) 
  +       (slot-boundp window 'title) 
  +       (not (zerop (length (window-title window)))))
  +      (print-unreadable-object (window stream :type t :identity nil)
  +        (format stream "~S at 0x~X" 
  +	 (window-title window) (sap-int (foreign-location window))))
  +    (call-next-method)))
   
   (defbinding window-set-wmclass () nil
     (window window)
  
positive.code: (define-callback %menu-detach-callback nil ((widget widget) (menu menu))
    (funcall (object-data menu 'detach-func) widget menu))
  
  (defbinding %menu-attach-to-widget () nil
    (menu menu)
    (widget widget)
    (%menu-detach-callback callback))
  
negative.code: 
  #+gtk2.6
  (defbinding (dialog-set-alternative-button-order 
  	     "gtk_dialog_set_alternative_button_order_from_array")
      (dialog new-order) nil
    (dialog dialog)
    ((length new-order) int)
    ((map 'vector #'(lambda (response)
  