anchor.diff:  
   (define-application-frame spectacle ()
     ()
  -  (:menu-bar t)
  +  (:menu-bar menubar-command-table)
     (:panes
      (viewer (make-pane 'spectacle-pane
                         :background +black+
  
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:             pattern nil))
      (handle-repaint viewer (sheet-region viewer))))
  
  (define-spectacle-command (com-quit :name t :keystroke (#\q :meta)) ()
    (frame-exit *application-frame*))
  
  (make-command-table 'file-command-table
  		    :errorp nil
  		    :menu '(("Load Image" :command com-load-image)
                              ("Quit" :command com-quit)))
  
  (make-command-table 'image-command-table
  		    :errorp nil
  		    :menu '(("Zoom" :command com-zoom)
                              ("Redraw" :command com-redraw)
                              ("Reset" :command com-reset)))
  
  (make-command-table 'menubar-command-table
  		    :errorp nil
  		    :menu '(("File" :menu file-command-table)
                              ("Image" :menu image-command-table)))
  