anchor.diff:  	       :orientation :horizontal
   	       :value 0
   	       :width 120)
  -     (colored :slider-test
  -              :normal +black+
  -              :width 200 :height 90))
  +     (colored (make-pane 'generic-colored-gadget
  +                         :width 200 :height 90)))
       (:layouts
        (default (vertically ()
                   text
                   slider-r
                   slider-g
                   slider-b
  -                colored)))
  -    (:top-level (slidertest-frame-top-level . nil)))
  +                colored))))
  +
  +(define-colorslider-command com-change-color ((color clim:color))
  +  (let ((colored (find-pane-named *application-frame* 'colored)))
  +    (setf (colored-gadget-color colored) color)
  +    (repaint-sheet colored +everywhere+)))
  
positive.code: 
  (defmacro define-slider-callback (name position)
    `(defun ,(make-symbol name) (gadget value)
       (let ((colored (find-if (lambda (x) (typep x 'climi::slider-test-pane))
                               (sheet-siblings gadget))))
         (setf ,(case position
  		(1 `(car *rgb*))
  		(2 `(cadr *rgb*))
  		(3 `(caddr *rgb*)))
  	     (/ value 10000)
  	     (clim-internals::gadget-current-color colored)
  	     (apply #'clim-internals::make-named-color "our-color"
  		    (mapcar #'(lambda (color) (coerce color 'single-float))
  			    *rgb*))))))
  
  (defvar callback-red (define-slider-callback "SLIDER-R" 1))
  (defvar callback-green (define-slider-callback "SLIDER-G" 2))
  
negative.code: 
  (defun colorslider ()
    (run-frame-top-level (make-application-frame 'colorslider)))
  
  (define-application-frame colorslider
      () ()
  