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:   (format *trace-output* "That was just a test~%")
    (finish-output *trace-output*))
  
  (defmethod run-frame-top-level :around ((frame gadget-test) &key &allow-other-keys)
    ;; FIXME: Timer events appear to have rotted.
    ;; Also, the following won't work because the frame has not really
    ;; been realized yet, so you can't get at its panes. Yet it has
    ;; worked, and recently. Odd.
    ;; (clim-internals::schedule-timer-event
    ;;   (find-pane-named frame 'radar)
    ;;   'radiate 0.1)
    (call-next-method))
  
  (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
  
negative.code:                  :show-value-p t
                   :orientation :vertical
                   :value 0)
       (radar      (make-pane 'radar-pane :name 'radar))
       (push-btn   (lowering (:border-width 3 :background +Gray83+)
                     (horizontally ()
  