anchor.diff:      (handler-case
   	(clim:with-drawing-options (backend-output :clipping-region
   						   (clim:make-rectangle* 0 0 *width* *height*))
  +	  (clim:draw-rectangle* backend-output 0 0 *width* *height* :filled t
  +				:ink clim:+grey90+)
   	  (funcall (drawing-test-drawer item) backend-output))
         (condition (condition)
   	(format t "Backend:~a~%" condition)))
       ;;(handler-case
  -	(let ((pattern (mcclim-raster-image:with-output-to-rgb-pattern
  -			   (stream :width *width* :height *height* :border-width *border-width*)
  -			 (clim:draw-rectangle* stream 0 0 *width* *height* :filled t
  -					       :ink clim:+grey90+)
  -
  -			(funcall (drawing-test-drawer item) stream))))
  -	  (draw-pattern* render-output pattern 0 0)
  -	  (medium-finish-output (sheet-medium render-output)))
  -	;;(condition (condition)
  -	;;  (format t "Render:~a~%" condition)))))
  +	(with-slots (recording-p) clim:*application-frame*
  +	  (let ((pattern (mcclim-raster-image:with-output-to-rgb-pattern
  +			     (stream :width *width* :height *height* :border-width *border-width*
  +				     :recording-p recording-p)
  +			   (clim:draw-rectangle* stream 0 0 *width* *height* :filled t
  +						 :ink clim:+grey90+)
  +			   (funcall (drawing-test-drawer item) stream))))
  +	    (draw-pattern* render-output pattern 0 0)
  +	    (medium-finish-output (sheet-medium render-output))))
  +      ;;(condition (condition)
  +	;;(format t "Render:~a~%" condition)))))
   	))
  -
   (defun drawing-test-postscript (test &optional filename)
     (let* ((test (if (stringp test) (gethash test *drawing-tests*) test))
            (test-name (drawing-test-name test))
  
positive.code:                          :drawer (lambda ,arglist ,@body))))
  
  (define-application-frame drawing-tests ()
    ()
    (:panes
     (backend-output :application-pane 
  		   :width *width*
  
negative.code: 	   (spacing (:thickness 3)
  	     (clim-extensions:lowering ()
  	       (scrolling (:scroll-bar :vertical :height *height*) selector)))
  	   (labelling (:label "Reder Recording")
  	     recording-option)
  	   print-ps
  	   print-png)
           (vertically ()
  