anchor.diff:  
   (defun colorslider ()
     (run-frame-top-level (make-application-frame 'colorslider)))
  -
  -(defmethod slidertest-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)
  -     (prompt "Command: "))
  -  (declare (ignore command-parser command-unparser partial-command-parser prompt))
  -  (clim-extensions:simple-event-loop))
   
   (define-application-frame colorslider
       () ()
  
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: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
  ;;; Boston, MA  02111-1307  USA.
  
  (in-package :clim-demo)
  
  ;;; Example gadget definition.
  
  (defclass abstract-colored-gadget (basic-gadget) ())
  (defclass generic-colored-gadget (abstract-colored-gadget)
    ((color :initform +black+ :accessor colored-gadget-color)))
  
  (defmethod handle-repaint ((gadget generic-colored-gadget) region)
    (declare (ignore region))
    (with-bounding-rectangle* (x1 y1 x2 y2) (sheet-region gadget)
      (draw-rectangle* gadget x1 y1 x2 y2 :ink (colored-gadget-color gadget))))
  
  ;;; Slider callback and macro.
  
  