anchor.diff:                      (ry (* radius yf))
                       (orx (* old-radius xf))
                       (ory (* old-radius yf)))
  +                (draw-ellipse* pane x y
  +                                    0 ory
  +                                    orx 0
  +                                    :ink +background-ink+ :filled nil)
                   (when (> radius 0.01)
                     (draw-ellipse* pane x y
                                         0 ry
                                         rx 0
  -                                      :ink +black+ :filled nil))
  -                (draw-ellipse* pane x y
  -                                    0 ory
  -                                    orx 0
  -                                    :ink +white+ :filled nil))))))))
  +                                      :ink +black+ :filled nil)))))))))
     (clim-internals::schedule-timer-event pane 'radiate 0.1))
  
positive.code:                  :show-value-p t
                   :orientation :vertical
                   :value 0)
       #+(or)
       (radar      (make-pane 'radar-pane :name 'radar))
       (push-btn   (lowering (:border-width 3 :background +Gray83+)
                     (horizontally ()
  
negative.code:   (format *trace-output* "That was just a test~%")
    (finish-output *trace-output*))
  
  (defmethod enable-frame :after ((frame gadget-test))
    (clim-internals::schedule-timer-event
     (find-pane-named frame 'radar) 'radiate 0.1))
  
  (defclass radar-pane (basic-gadget)
    ((points :initform (list (list 0.01 0.01 0.10 0.10)
                             (list 0.10 0.02 0.70 0.40)
                             (list 0.20 0.03 0.60 0.30)
                             (list 0.20 0.04 0.20 0.50)
                             (list 0.20 0.05 0.60 0.20)
                             (list 0.20 0.06 0.30 0.40)
                             (list 0.20 0.07 0.60 0.90)
                             (list 0.20 0.08 0.80 0.30)
                             (list 0.20 0.09 0.60 0.20)))))
  
  (defmethod handle-event ((pane radar-pane) (event timer-event))
    (with-slots (points) pane
  