anchor.diff:                      (push option (getf all-values :other-options)))))
         (alexandria:remove-from-plist all-values :pane))))
   
  +(defmethod find-pane-for-frame ((fm frame-manager) (frame application-frame))
  +  (make-pane-1 fm frame 'top-level-sheet-pane
  +               :name (frame-name frame)
  +               :pretty-name (frame-pretty-name frame)
  +               ;; sheet is enabled from enable-frame
  +               :enabled-p nil))
  +
  +(defmethod generate-panes (fm (frame application-frame))
  +  (with-look-and-feel-realization (fm frame)
  +    (unless (frame-panes-for-layout frame)
  +      (setf (frame-panes-for-layout frame)
  +            `((single-pane . ,(make-clim-interactor-pane :name 'single-pane)))))
  +    (let ((single-pane
  +            (alexandria:assoc-value (frame-panes-for-layout frame)
  +                                    'single-pane :test #'eq)))
  +      (setf (frame-panes frame) single-pane)))
  +  (update-frame-pane-lists frame))
  +
   (defmacro define-application-frame (name superclasses slots &rest options)
     (when (null superclasses)
       (setq superclasses '(standard-application-frame)))
  
positive.code:      (locally
           ,@body)))
  
  ; The menu-bar code in the following function is incorrect.  it needs
  ; to be moved to somewhere after the backend, since it depends on the
  ; backend chosen.
  ;
  ; This hack slaps a menu-bar into the start of the application-frame,
  ; in such a way that it is hard to find.
  ;
  ; FIXME
  
  (defun update-frame-pane-lists (frame)
    (let ((all-panes     (frame-panes frame))
  
negative.code:                         '((%pointer-documentation%
                             pointer-documentation-pane)))))
    `(defmethod generate-panes ((fm frame-manager) (frame ,class-name))
       (with-look-and-feel-realization (fm frame)
         (unless (frame-panes-for-layout frame)
           (setf (frame-panes-for-layout frame)
                 (list
                  ,@(loop for (name . form) in panes
                          collect `(cons ',name ,(generate-pane-creation-form
                                                  name form))))))
         (let ,(loop for (name . form) in panes
                     collect `(,name (alexandria:assoc-value
                                      (frame-panes-for-layout frame)
                                      ',name :test #'eq)))
           ;; [BTS] added this, but is not sure that this is correct for
           ;; adding a menu-bar transparently, should also only be done
           ;; where the exterior window system does not support menus
           (setf (frame-panes frame)
                 (ecase (frame-current-layout frame)
                   ,@(if (or menu-bar pointer-documentation)
                         (mapcar (lambda (layout)
                                   `(,(first layout)
                                     (vertically ()
                                       ,@(cond
                                           ((eq menu-bar t)
                                            `((setf (frame-menu-bar-pane frame)
                                                    (make-menu-bar ',class-name))))
                                           ((consp menu-bar)
                                            `((make-menu-bar
                                               (make-command-table
                                                nil :menu ',menu-bar))))
                                           (menu-bar
                                            `((make-menu-bar ',menu-bar)))
                                           (t nil))
                                       ,@(rest layout)
                                       ,@(when pointer-documentation
                                           '(%pointer-documentation%)))))
                                 layouts)
                         layouts)))))
       ;; Update frame-current-panes and the special pane slots.
       (update-frame-pane-lists frame)))
  
  (defun parse-define-application-frame-options (options)
    (let ((infos '(;; CLIM
  