anchor.diff:  		     :reader frame-top-level-lambda)
      (hilited-presentation :initform nil
   			 :initarg :hilited-presentation
  -			 :accessor frame-hilited-presentation)
  -   (user-supplied-geometry :initform nil
  -			   :initarg :user-supplied-geometry
  -			   :reader frame-geometry
  -                           :documentation "plist of defaulted :left, :top, :bottom, :right, :width and :height options.")
  +			 :accessor frame-hilited-presentation)   
      (process :accessor frame-process :initform nil)
      (client-settings :accessor client-settings :initform nil)
      (event-queue :initarg :frame-event-queue
  
positive.code: (defgeneric note-input-focus-changed (pane state)
    (:documentation "Called when a pane receives or loses the keyboard
  input focus. This is a McCLIM extension."))
  
  (defmethod frame-geometry* ((frame application-frame))
    "-> width height &optional top left"
    (let ((pane (frame-top-level-sheet frame)))
      (destructuring-bind (&key left top right bottom width height) (frame-geometry frame)
        ;; Find width and height from looking at the respective options
        ;; first, then at left/right and top/bottom and finally at what
        ;; compose-space says.
        (setf width (or width
                        (and left right (- right left))
                        (space-requirement-width (compose-space pane))))
        (setf height (or height
                         (and top bottom (- bottom top))
                         (space-requirement-height (compose-space pane))))
        ;; See if a position is wanted and return left, top.
        (setf left (or left
                       (and right (- right width))))
        (setf top (or top
                      (and bottom (- bottom height))))
        (values width height left top))))
      
  (defclass standard-application-frame (application-frame
  				      presentation-history-mixin)
  
negative.code: 	     (: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
              (intern (concatenate 'string
  