anchor.diff:          (clim-sys:make-process #'run :name "Spectacle")
           (run))))
   
  -(define-spectacle-command (com-quit :name t :menu t :keystroke (#\q :meta)) ()
  -  (frame-exit *application-frame*))
  -
  -(define-spectacle-command (com-load-image :name t :menu t)
  +(define-spectacle-command (com-load-image :name t)
       ((image-pathname 'pathname
                        :default (user-homedir-pathname)
                        :insert-default t))
  
positive.code:       (setf transform nil
              pattern nil
              image img)
        (zoom))))
  
  (define-spectacle-command (zoom :name t :menu t)
      ()
    (let ((viewer (find-pane-named *application-frame* 'viewer)))
      (let ((y-scale-slider (find-pane-named *application-frame* 'y-scale))
  
negative.code:                     transform nil)))
            (setf image image))))))
  
  (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)
  