anchor.diff:       (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)))))
  +           (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)))
  +
  +(define-command (test :command-table gadget-test) ()
  +  (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.
  
positive.code:       ("View"   :menu view-menu)
        ("Search" :menu search-menu)))
      (:panes
  ;    (raised     (raising (:border-width 3 :background +Gray83+)
  ;                  (make-pane 'check-box :choices '("First" "Second" "Third"))))
       (tf1        :push-button
                   :text-style (make-text-style :fix :roman 24)
                   :label "Text Field")
  
negative.code:      (slider-v3  :slider
                   :min-value 0
                   :max-value 100
                   :show-value-p t
                   :orientation :vertical
                   :value 0)
       #+(or)
  