anchor.diff:                                         (1/2 backend-pane)
                                          (1/2 render-pane)))))))))
           (1/7 description-pane))))))
  -
  -(defclass drawing-app-pane (application-pane)
  -  ())
   
   (define-application-frame drawing-app-frame ()
     ((drawing-tests-frame :initform nil :initarg :drawing-tests-frame)
  
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:    (backend-pane
      (labelling (:label "Backend")
        (scrolling ()
          (make-pane 'drawing-app-pane
                     :name 'backend-output
                     :min-width *width*
                     :min-height *height*
  