anchor.diff:     (backend-pane
       (labelling (:label "Backend")
         (scrolling ()
  -        (make-pane 'application-pane
  +        (make-pane 'drawing-app-pane
                      :name 'backend-output
                      :min-width *width*
                      :min-height *height*
  
positive.code:   (alexandria:when-let ((drawing-test (gethash (drawing-test-keyname category name)
                                                 *drawing-tests*)))
      (drawing-test-display-function drawing-test)))
  
  (define-application-frame drawing-tests ()
    ((recording-p :initform t)
  
negative.code:                                        (1/2 backend-pane)
                                         (1/2 render-pane)))))))))
          (1/7 description-pane))))))
  
  (define-application-frame drawing-app-frame ()
    ((drawing-tests-frame :initform nil :initarg :drawing-tests-frame)
  