anchor.diff:  
   (defun y-shear-callback (gadget shear)
     (declare (ignore gadget))
  -  (let ((viewer (find-pane-named *application-frame* 'viewer)))
  +  (let ((viewer (find-pane-named *application-frame* 'spectacle-pane)))
       (with-accessors ((image gadget-value)
                        (transform-parameters transform-parameters)
                        (transform transform))
  
positive.code: 
  (defun x-scale-callback (gadget scale)
    (declare (ignore gadget))
    (let ((viewer (find-pane-named *application-frame* 'viewer)))
      (with-accessors ((image gadget-value)
                       (transform-parameters transform-parameters)
                       (transform transform)
  
negative.code:                                                 :data cimg))))))))
  
  (defmethod handle-repaint ((pane spectacle-pane) region)
    (with-accessors ((image gadget-value)
                     (transform-parameters transform-parameters)
                     (transform transform))
        pane
  
      (with-bounding-rectangle* (x1 y1 x2 y2) (pane-viewport-region pane)
        (clim:draw-rectangle* (sheet-medium pane) x1 y1 x2 y2 :ink +background-ink+))
  
      (when image
        (updating-output (pane :unique-id image)
          (unless transform
            (destructuring-bind (y-scale x-scale y-shift x-shift y-shear x-shear rotate)
                (coerce transform-parameters 'list)
              (setf transform
                    (make-affine-transformation :y-scale y-scale
                                                :x-scale x-scale
                                                :y-shift y-shift
                                                :x-shift x-shift
                                                :y-shear y-shear
                                                :x-shear x-shear
                                                :theta rotate))))
  
          ;; new strategy here, we going to compute the visible portion
          ;; of the image, based on the bounding rectangle, and only
          ;; draw that section, and, for the moment, we'll do that every
          ;; time through:
          (let* ((transformed-image (if transform
                                        (transform-image image transform)
                                        image))
                 (pattern (opticl-image-to-climi-rgb-pattern transformed-image)))
            (with-image-bounds (image-height image-width) transformed-image
              (change-space-requirements pane :height image-height :width image-width)
              (let ((bounding-rectangle-height (bounding-rectangle-height pane))
                    (bounding-rectangle-width (bounding-rectangle-width pane)))
                (clim:draw-pattern*
                 pane pattern
                 (/ (- bounding-rectangle-width image-width) 2)
                 (/ (- bounding-rectangle-height image-height) 2)))))))))
  
  (defun spectacle (&key (new-process t))
    (flet ((run ()
  