anchor.diff:               :items (sort (loop for x being the hash-values of *drawing-tests*
                                   collect x) #'string< :key #'drawing-test-name)
                :value-changed-callback #'render-images)
  +   (recording-option
  +    (clim:with-radio-box (:orientation :vertical
  +				       :value-changed-callback '%update-recording-option)
  +      (clim:radio-box-current-selection "yes")
  +      "no"))
      (print-ps :push-button
   	     :label "Print All (/tmp/*.ps)"
   	     :activate-callback #'(lambda (x) (print-all-postscript-tests)))
  +   
      (print-png :push-button
   	      :label "Print All (/tmp/*.png)"
   	      :activate-callback #'(lambda (x) (print-all-raster-image-tests :png))))
  
positive.code:     (handler-case
  	(clim:with-drawing-options (backend-output :clipping-region
  						   (clim:make-rectangle* 0 0 *width* *height*))
  	  (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)))))
  	))
  
  (defun drawing-test-postscript (test &optional filename)
    (let* ((test (if (stringp test) (gethash test *drawing-tests*) test))
           (test-name (drawing-test-name test))
  
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 ()
  