anchor.diff:  (defmethod disown-frame ((fm frame-manager) (frame application-frame))
     (setf (slot-value fm 'frames) (remove frame (slot-value fm 'frames)))
     (sheet-disown-child (graft frame) (frame-top-level-sheet frame))
  -  (setf (frame-manager frame) nil))
  +  (setf (%frame-manager frame) nil))
   
   (defvar *pane-realizer* nil)
   
  
positive.code:    (pane :reader frame-pane :initarg :pane)
     (graft :initform nil :accessor graft)
     (manager :initform nil :accessor frame-manager)))
    
  (defmethod adopt-frame ((fm frame-manager) (frame menu-frame))
    (setf (slot-value fm 'frames) (cons frame (slot-value fm 'frames)))
    (setf (slot-value frame 'manager) fm)
    (let* ((t-l-s (make-pane-1 fm *application-frame* 'unmanaged-top-level-sheet-pane
  			     :name 'top-level-sheet)))
      (setf (slot-value frame 'top-level-sheet) t-l-s)
  
negative.code: 	  :initform nil
  	  :accessor frame-state)
     (manager :initform nil
  	    :reader frame-manager
              :accessor %frame-manager)
     (properties :initarg :properties
  	       :initform nil)
     (top-level :initform '(default-frame-top-level)
  