anchor.diff:    (run-frame-top-level
      (if frame-manager-name
          (make-application-frame
  -	'gadget-test
  -	:frame-manager (make-instance frame-manager-name :port (find-port)))
  +        'gadget-test
  +        :frame-manager (make-instance frame-manager-name :port (find-port)))
          (make-application-frame 'gadget-test))))
  -
  -(defun run-pixie-test (name)
  -  (when name
  -    (run-frame-top-level
  -     (make-application-frame
  -      name
  -      :frame-manager (make-instance 'clim-internals::pixie/clx-look
  -		       :port (find-port))))))
   
   (defmethod gadget-test-frame-top-level
       ((frame application-frame)
        &key (command-parser 'command-line-command-parser)
          (command-unparser 'command-line-command-unparser)
          (partial-command-parser
  -	'command-line-read-remaining-arguments-for-partial-command)
  +        'command-line-read-remaining-arguments-for-partial-command)
          (prompt "Command: "))
     (declare (ignore command-parser command-unparser partial-command-parser prompt))
     (catch 'exit
  
positive.code:      (slider-v3  :slider
                   :min-value 0
                   :max-value 100
  		 :show-value-p t
                   :orientation :vertical
                   :value 0)
       #+(or)
  
negative.code: 
  (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
  