anchor.diff:  		  :initarg :height
   		  :initform nil)))
   
  +(defmethod frame-parent ((frame standard-application-frame))
  +  (or (frame-calling-frame frame)
  +      (frame-manager frame)))
  +
   (defgeneric frame-geometry* (frame))
   
   (defmethod frame-geometry* ((frame standard-application-frame))
  
positive.code: 			       (with-input-focus (query-io)
  				 (call-next-method))
  			       (call-next-method)))
  		 (frame-layout-changed () nil)))
        (let ((fm (frame-manager frame)))
          (case original-state
            (:disabled
             (disable-frame frame))
            (:disowned
             (disown-frame fm frame)))))))
  
  (defparameter +default-prompt-style+ (make-text-style :sans-serif :bold :normal))
  
negative.code: (defmethod run-frame-top-level ((frame application-frame)
  				&key &allow-other-keys)
    (letf (((frame-process frame) (current-process)))
      (funcall (frame-top-level-lambda frame) frame)))
  
  (defmethod run-frame-top-level :around ((frame application-frame) &key)
    (let ((*application-frame* frame)
  