anchor.diff:        (setf (slot-value frame 'layouts) nil))
       (setf (slot-value frame 'manager) fm)))
   
  -(defmethod calculate-standard-panes ((frame application-frame))
  -  ;; Should find the panes for 
  -  )
  -
   (defmethod (setf frame-current-layout) (name (frame application-frame))
     (declare (ignore name))
     (generate-panes (frame-manager frame) frame))
  
positive.code: (defvar *application-frame* nil)
  (defvar *default-frame-manager* nil)
  
  ;;; Application-Frame class
  
  (defclass application-frame ()
  
negative.code:   (declare (ignore fm))
    (when (and (slot-boundp frame 'pane)
  	     (frame-pane frame))
      (sheet-disown-child (frame-top-level-sheet frame) (frame-pane frame))))
  
  (defmethod generate-panes :after (fm  (frame application-frame))
    (declare (ignore fm))
    (sheet-adopt-child (frame-top-level-sheet frame) (frame-pane frame))
    (sheet-adopt-child (graft frame) (frame-top-level-sheet frame))
    (setf (sheet-transformation (frame-top-level-sheet frame))
  	(make-translation-transformation 100 100))
    (let ((space (compose-space (frame-top-level-sheet frame))))
      ;; automatically generates a window-configuation-event
      ;; which then calls allocate-space
      (setf (sheet-region (frame-top-level-sheet frame))
  	  (make-bounding-rectangle 0 0
  				   (space-requirement-width space)
  				   (space-requirement-height space)))))
  
  (defmethod find-pane-named ((frame application-frame) name)
    (loop for pane in (frame-panes frame)
  