anchor.diff:  	     (:top-level (setq top-level (first values)))
   	     (:pointer-documentation (setq pointer-documentation (car values)))
   	     (:geometry (setq geometry values))
  +	     (:default-initargs (setq user-default-initargs values))
   	     (t (push (cons prop values) others))))
       (when (eq command-definer t)
         (setf command-definer
  
positive.code:          :top-level (list ',(car top-level) ,@(cdr top-level))
           :top-level-lambda (lambda (,frame-arg)
                               (,(car top-level) ,frame-arg
                                 ,@(cdr top-level))))
          ,@others)
        ;; We alway set the frame class default geometry, so that the
        ;; user can undo the effect of a specified :geometry option.
  
negative.code:    (graft :initform nil :accessor graft)
     (manager :initform nil :accessor frame-manager)))
  
  (defclass menu-unmanaged-top-level-sheet-pane (unmanaged-top-level-sheet-pane)
    ())
  
  (defmethod adopt-frame ((fm frame-manager) (frame menu-frame))
    (setf (slot-value fm 'frames) (cons frame (slot-value fm 'frames)))
    (setf (frame-manager frame) fm)
    (let* ((t-l-s (make-pane-1 fm *application-frame*
                               'menu-unmanaged-top-level-sheet-pane
  			     :name 'top-level-sheet)))
      (setf (slot-value frame 'top-level-sheet) t-l-s)
      (sheet-adopt-child t-l-s (frame-panes frame))
  