anchor.diff:                      transform nil)))
             (setf image image))))))
   
  -(defun reset-it ()
  +(define-spectacle-command (com-redraw :name t)
  +    ()
  +  (let ((viewer (find-pane-named *application-frame* 'viewer)))
  +    (handle-repaint viewer (sheet-region viewer))))
  +
  +(define-spectacle-command (com-reset :name t)
  +    ()
     (let ((viewer (find-pane-named *application-frame* 'viewer)))
       (with-accessors ((image gadget-value)
                        (transform-parameters transform-parameters)
  
positive.code:                  :label "Reset Parameters"
                   :activate-callback (lambda (gadget)
                                        (declare (ignore gadget))
                                        (reset-it)))
     (x-shear :slider
              :min-value -5
              :max-value 5
  
negative.code:       (setf transform nil
              pattern nil
              image img)
        (com-zoom))))
  
  (define-spectacle-command (com-zoom :name t)
      ()
    (let ((viewer (find-pane-named *application-frame* 'viewer)))
      (let ((y-scale-slider (find-pane-named *application-frame* 'y-scale))
  