anchor.diff:                           :drawer (lambda ,arglist ,@body))))
   
   (define-application-frame drawing-tests ()
  -  ((recording-p :initform t))
  +  ((recording-p :initform t)
  +   (signal-condition-p :initform nil)
  +   (current-selection :initform nil))
     (:panes
      (backend-output :application-pane 
  -		   :width *width*
  -		   :height *height*
  +		   :min-width *width*
  +		   :min-height *height*
  +                   :display-time nil
  +                   :display-function #'display-backend-output
   		   :end-of-line-action :wrap
   		   :end-of-page-action :wrap)
      (render-output :application-pane
  -		  :width *width*
  -		  :height *height*
  +		  :min-width *width*
  +		  :min-height *height*
  +                  :display-time nil
  +                  :display-function #'display-render-output
   		  :end-of-line-action :wrap
   		  :end-of-page-action :wrap)
      (description :application-pane)
  
positive.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 ()
  
negative.code:              :name-key #'drawing-test-name
               :items (sort (loop for x being the hash-values of *drawing-tests*
                                  collect x) #'string< :key #'drawing-test-name)
               :value-changed-callback #'%update-selection)
     (recording-option
      (clim:with-radio-box (:orientation :vertical
  				       :value-changed-callback '%update-recording-option)
        (clim:radio-box-current-selection "yes")
        "no"))
     (condition-option
      (clim:with-radio-box (:orientation :vertical
  				       :value-changed-callback '%update-condition-option)
        (clim:radio-box-current-selection "message")
        "break"))
     (print-ps :push-button
  	     :label "Print All (/tmp/*.ps)"
  	     :activate-callback #'(lambda (x)
  