anchor.diff:  (defvar callback-green (define-slider-callback "SLIDER-G" 2))
   (defvar callback-blue (define-slider-callback "SLIDER-B" 3))
   
  -;; test functions
  +;;; Test functions.
   
   (defun colorslider ()
  -;  (declare (special frame fm port pane medium graft))
  -;  (loop for port in climi::*all-ports*
  -;      do (destroy-port port))
  -;  (setq climi::*all-ports* nil)
  -;  (setq fm (find-frame-manager))
  -;  (setq frame (make-application-frame 'colorslider
  -;                                      :frame-manager fm))
  -;  (setq port (port fm))
  -;  (setq pane (frame-panes frame))
  -;  (setq medium (sheet-medium pane))
  -;  (setq graft (graft frame))
     (run-frame-top-level (make-application-frame 'colorslider)))
   
   (defmethod slidertest-frame-top-level
  
positive.code:               :normal +black+
                :width 200 :height 90))
      (:layouts
       #+nil
       (default (vertically ()
                  text
                  (horizontally ()
                    (vertically (:equalize-width t)
                      (horizontally () (make-pane 'push-button :label "Red:") slider-r)
                      (horizontally () (make-pane 'push-button :label "Green:") slider-g)
                      (horizontally () (make-pane 'push-button :label "Blue:") slider-b))
                    colored)))
       (default (vertically ()
                  text
                  slider-r
  
negative.code:      (prompt "Command: "))
    (declare (ignore command-parser command-unparser partial-command-parser prompt))
    (clim-extensions:simple-event-loop))
  
  (define-application-frame colorslider
      () ()
  