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: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
  ;;; Boston, MA  02111-1307  USA.
  
  (in-package #:clim-internals)
  
  ;;; Example gadget definition.
  (defclass slider-test-pane (basic-gadget) ())
  
  (defmethod handle-repaint ((pane slider-test-pane) region)
    (declare (ignore region))
    (multiple-value-bind (x1 y1 x2 y2) (bounding-rectangle* (sheet-region pane))
      (display-gadget-background pane
  			       (gadget-current-color pane)
  			       0 0
  			       (- x2 x1) (- y2 y1))))
  
  (in-package :clim-demo)
  
  ;;; Slider callback and macro.
  
  
negative.code: 	       :orientation :horizontal
  	       :value 0
  	       :width 120)
       (colored (make-pane 'generic-colored-gadget
                           :width 200 :height 90)))
      (:layouts
       (default (vertically ()
                  text
                  slider-r
                  slider-g
                  slider-b
                  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+)))
  