anchor.diff:            :activate-callback #'(lambda (x)
                                    (declare (ignore x))
                                    (com-clear)))
  -   (status :text-field :value "CLIM Fig")
  -   (command :interactor :height 20
  -            :scroll-bar :vertical))
  +   (status :text-field :value "CLIM Fig"))
     (:layouts
      (default
        (vertically ()
  
positive.code:           (clim-fig-status frame)
            (find-pane-named frame 'status))
      (call-next-method)))
  
  (define-clim-fig-command com-exit ()
    (frame-exit *application-frame*))
  
negative.code:            ellipse-button rectangle-button)
           (scrolling (:width 600 :height 400) canvas))
         (horizontally (:height 30) clear undo redo)
         status)))
    (:top-level (default-frame-top-level .
                    (:prompt clim-fig-prompt))))
  
  (define-presentation-to-command-translator add-figure
      (blank-area com-add-figure clim-fig
  