anchor.diff:           :top-level-lambda (lambda (,frame-arg)
                                (,(car top-level) ,frame-arg
                                  ,@(cdr top-level)))
  -	 ,@geometry
  -	 ,@user-default-initargs)
  +         ,@geometry
  +         ,@user-default-initargs)
           ,@others)
   
         (defmethod frame-all-layouts ((frame ,name))
  
positive.code:                      ,arguments ,@body))))))))
  
  (defun make-application-frame (frame-name
  			       &rest options
  			       &key (pretty-name
  				     (string-capitalize frame-name))
  			            (frame-manager nil frame-manager-p)
  			            enable
  			            (state nil state-supplied-p)
  			            save-under (frame-class frame-name)
  			       &allow-other-keys)
    (declare (ignore save-under))
    (with-keywords-removed (options (:pretty-name :frame-manager :enable :state
  				   :save-under :frame-class))
      (let ((frame (apply #'make-instance frame-class
  			:name frame-name
  			:pretty-name pretty-name
  			options)))
        (when frame-manager-p
  	(adopt-frame frame-manager frame))
        (cond ((or enable (eq state :enabled))
  	     (enable-frame frame))
  	    ((and (eq state :disowned)
  		  (not (eq (frame-state frame) :disowned)))
  	     (disown-frame (frame-manager frame) frame))
  	    (state-supplied-p
  	     (warn ":state ~S not supported yet." state)))
        frame)))
  
  (defgeneric clim-extensions:find-frame-type (frame)
  
negative.code:      if  parent
       do (sheet-disown-child parent pane)))
  
  (defmethod generate-panes :after (fm (frame application-frame))
    (declare (ignore fm))
    (let ((top-level-sheet (frame-top-level-sheet frame)))
      (sheet-adopt-child top-level-sheet (frame-panes frame))
      (unless (sheet-parent top-level-sheet)
        (sheet-adopt-child (graft frame) top-level-sheet))
      ;; Find the size of the new frame
      (multiple-value-bind (w h) (frame-geometry* frame)
        ;; automatically generates a window-configuation-event
        ;; which then calls allocate-space
        ;;
        ;; Not any longer, we turn off CONFIGURE-NOTIFY events until the
        ;; window is mapped and do the space allocation now, so that all
        ;; sheets will have their correct geometry at once. --GB
        (change-space-requirements top-level-sheet :width w :height h
                                                   :resize-frame t)
        (setf (sheet-region top-level-sheet) (make-bounding-rectangle 0 0 w h))
        (allocate-space top-level-sheet w h))))
  
  (defmethod layout-frame ((frame application-frame) &optional width height)
    (let ((pane (frame-panes frame)))
  