anchor.diff:       (slider-v3  :slider
                    :min-value 0
                    :max-value 100
  -		 :show-value-p t
  +                 :show-value-p t
                    :orientation :vertical
                    :value 0)
        #+(or)
  
positive.code:      (default
         (raising (:border-width 5 :background +Gray83+)
           (horizontally ()
  	   (vertically ()
  	     (horizontally ()
  	       (horizontally ()
  		 (vertically ()
  		   slider-v
  		   slider-v2)
  		 slider-v3)
  	       (vertically ()
  		 tf1 tf2 tf3 tf4
  		 slider-h))
  	     ;; FIXME: the radar doesn't seem to do anything except take
  	     ;; up vast amounts of space.
  	     #+(or) radar
  	     text-edit)
  	   (vertically ()
  	     push-btn
  	     table
  	     toggle-btn
  	     scroll
  	     radio-box
  	     check-box)))))
      (:top-level (gadget-test-frame-top-level . nil)))
  
  (defmethod run-frame-top-level :around ((frame gadget-test) &key &allow-other-keys)
    ;; FIXME: Timer events appear to have rotted.
  
negative.code: 
  (defclass radar-pane (basic-gadget)
    ((points :initform '((0.01 0.01 0.10 0.10)
                         (0.10 0.02 0.70 0.40)
                         (0.20 0.03 0.60 0.30)
                         (0.20 0.04 0.20 0.50)
                         (0.20 0.05 0.60 0.20)
                         (0.20 0.06 0.30 0.40)
                         (0.20 0.07 0.60 0.90)
                         (0.20 0.08 0.80 0.30)
                         (0.20 0.09 0.60 0.20)))))
  
  (defmethod handle-event ((pane radar-pane) (event timer-event))
    (with-slots (points) pane
  