anchor.diff:    (list-pane-down 'category-selector))
   
   (define-drawing-tests-command (com-drawing-tests-change-test-up :keystroke :up) ()
  -  (list-pane-up 'test-selector))
  +  (unless (list-pane-up 'test-selector)
  +    (list-pane-up 'category-selector)))
   
   (define-drawing-tests-command (com-drawing-tests-change-test-down :keystroke :down) ()
  -  (list-pane-down 'test-selector))
  +  (unless (list-pane-down 'test-selector)
  +    (list-pane-down 'category-selector)))
   
   (defmethod handle-event ((pane drawing-app-pane) (event keyboard-event))
     (case (keyboard-event-key-name event)
  
positive.code:                             :mode :exclusive
                              :name-key #'drawing-test-name
                              :items nil
                              :value-changed-callback #'%update-selection)))))
        (horizontally ()
          (labelling (:label "Recording")
            (clim:with-radio-box (:orientation :vertical
  
negative.code:           "side-by-side view with the renderer output"))))
     (backend-pane
      (labelling (:label "Backend")
        (scrolling ()
          (make-pane 'application-pane
                     :name 'backend-output
                     :min-width *width*
                     :min-height *height*
                     :display-time nil
                     :display-function #'display-backend-output
                     :end-of-line-action :wrap
                     :end-of-page-action :wrap))))
     (render-pane
      (labelling (:label "Render")
        (scrolling ()
          (make-pane 'application-pane
                     :name 'render-output
                     :min-width *width*
                     :min-height *height*
                     :display-time nil
                     :display-function #'display-render-output
                     :end-of-line-action :wrap
                     :end-of-page-action :wrap))))
     (description-pane
      (spacing (:thickness 3)
        (clim-extensions:lowering ()
  