anchor.diff:  
   (make-command-table 'image-command-table
   		    :errorp nil
  -		    :menu '(("Zoom" :command com-zoom)
  +		    :menu '(("Fit Image to Window" :command com-fit-image-to-window)
                               ("Blur" :command com-blur)
                               ("Sharpen" :command com-sharpen)
                               ("Redraw" :command com-redraw)
  
positive.code:    (viewer (scrolling ()
               (make-pane 'spectacle-pane
                          :name 'spectacle-pane
                          :width 500
                          :incremental-redisplay t
                          :background +black+
                          :foreground +white+)))
  
negative.code:                :min-height 100))
    (:layouts
     (default (vertically (:height 250)
                (4/5 (horizontally (:width 600)
                       (5/6 viewer)
                       (1/6 (vertically ()
                              (labelling ()
                                (vertically ()
                                  lock-scale
  