anchor.diff:                 (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
  +             radar
                text-edit)
              (vertically ()
                push-btn
  
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 ()
  