anchor.diff:                :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
  
positive.code:      (prompt "Command: "))
    (declare (ignore command-parser command-unparser partial-command-parser prompt))
    (clim-extensions:simple-event-loop))
  
  ;(define-application-frame colorslider () ()
  ;  (:panes
  ;   (text    :text-field
  ;	    :value "Pick a color"
  ;	    ;;:height 50
  ;            ;;:width 100
  ;            )
  ;   (slider-r  :slider
  ;	      :drag-callback callback-red
  ;	      :value-changed-callback callback-red
  ;	      :min-value 0
  ;	      :max-value 9999
  ;	      :value 0
  ;	      :show-value-p t
  ;	      ;;:orientation :horizontal
  ;	      :width 120)
  ;   (slider-g  :slider
  ;	      :drag-callback callback-green
  ;	      :value-changed-callback callback-green
  ;	      :min-value 0
  ;	      :max-value 9999
  ;	      :value 0
  ;	      :width 120)
  ;   (slider-b  :slider
  ;	      :drag-callback callback-blue
  ;	      :value-changed-callback callback-blue
  ;	      :min-value 0
  ;	      :max-value 9999
  ;	      :value 0
  ;	      :width 120)
  ;   (colored :slider-test
  ;            :normal +black+
  ;            :width 200 :height 90))
  ;  (:layouts
  ;   (default (vertically ()
  ;                        text
  ;                        (horizontally ()
  ;                                      slider-r
  ;                                      slider-g
  ;                                      slider-b
  ;                                      colored))))
  ;  (:top-level (slidertest-frame-top-level . nil)))
  
  (define-application-frame colorslider
      () ()
  
negative.code: (defvar callback-green (define-slider-callback "SLIDER-G" 2))
  (defvar callback-blue (define-slider-callback "SLIDER-B" 3))
  
  ;;; Test functions.
  
  (defun colorslider ()
    (run-frame-top-level (make-application-frame 'colorslider)))
  
  (defmethod slidertest-frame-top-level
  