anchor.diff:    (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)
  
positive.code:                            (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
  
negative.code:                     (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)))))))))
    (when (sheet-grafted-p pane)
      (clim-internals::schedule-timer-event pane 'radiate 0.1)))
  