anchor.diff:                                               (list application-frame-backend))))
                    (app-frame (make-application-frame 'drawing-app-frame
                                                       :calling-frame *application-frame*
  -                                                    :frame-manager (when server-path (find-frame-manager :port server-path))
  +                                                    :frame-manager (when server-path
  +                                                                     (find-frame-manager :port server-path))
                                                       :current-selection current-selection
                                                       :backend application-frame-backend
  -                                                    :recording-p application-frame-recording-p)))
  +                                                    :drawing-tests-frame *application-frame*)))
               (setf (gethash current-selection frames) app-frame)
               (run-frame-top-level app-frame)
               (remhash current-selection frames)))))))
  
positive.code:   (declare (ignore pane))
    (with-slots (application-frame-backend) *application-frame*
      (setf application-frame-backend item)))
  
  (defun %update-application-frame-recording-option (this-gadget selected-gadget)
    (declare (ignore this-gadget))
    (with-slots (application-frame-recording-p) clim:*application-frame*
      (setf application-frame-recording-p
            (string= (clim:gadget-label selected-gadget) "yes"))))
  
  (defun %update-recording-option (this-gadget selected-gadget)
    (declare (ignore this-gadget))
  
negative.code:                        :ink +dark-green+ :line-thickness 5))))))
  
  (define-drawing-test "Ellipse" "xy-line intersection" (frame stream)
      "Ellipse with rotation and limited angle is surrounded by its bounding rectangle. Horizontal and vertical lines go through the sheet and the intersections of lines with the ellipse are d1rawn in different color and thickness."
    (declare (ignore frame))
    (let* ((cx (/ *width* 2))
           (cy (/ *height* 2))
  