anchor.diff:  	   (spacing (:thickness 3)
   	     (clim-extensions:lowering ()
   	       (scrolling (:scroll-bar :vertical :height *height*) selector)))
  +	   (labelling (:label "Reder Recording")
  +	     recording-option)
   	   print-ps
   	   print-png)
            (vertically ()
  
positive.code: 	     (clim-extensions:lowering ()
  	       (scrolling (:scroll-bar :vertical :height 200) description)))))))))
  
  (defun run-drawing-tests ()
    (run-frame-top-level
     (make-application-frame
  
negative.code:                          :drawer (lambda ,arglist ,@body))))
  
  (define-application-frame drawing-tests ()
    ((recording-p :initform t))
    (:panes
     (backend-output :application-pane 
  		   :width *width*
  