anchor.diff:                        :drag-callback #'slider-updated-callback)
             (x-slider :slider
                       :value 0
  -                    :show-value t
  +                    :show-value-p nil
                       :orientation :horizontal
                       :min-value 0
                       :max-value 200
  
positive.code:                          :drag-callback #'slider-updated-callback)
            (y-skew-slider :slider
                           :value 0
                           :show-value t
                           :orientation :horizontal
                           :min-value -1
                           :max-value 1
                           :value-changed-callback #'slider-updated-callback
                           :drag-callback #'slider-updated-callback))
    (:layouts (default (clim:vertically (:width 1000 :height 900)
                         (14/20 image-demo)
                         (1/20 rot-slider)
                         (1/20 x-slider)
                         (1/20 y-slider)
                         (1/20 scale-slider)
                         (1/20 x-skew-slider)
                         (1/20 y-skew-slider)))))
  
  (defmethod initialize-instance :after ((obj image-transform-demo) &key)
    (setf (image-transform-demo/image obj)
  
negative.code:                     :drag-callback #'slider-updated-callback)
            (y-slider :slider
                      :value 0
                      :show-value-p nil
                      :orientation :horizontal
                      :min-value 0
                      :max-value 200
  