anchor.diff:            (clim-fig-status frame)
             (find-pane-named frame 'status))
       (call-next-method)))
  +
  +(defmethod read-frame-command ((frame clim-fig) &key (stream *standard-input*))
  +  (with-input-context ('command)
  +        (command)
  +      (loop (read-gesture :stream stream))
  +    (command command)))
  +
  +(defun clim-fig-prompt (stream frame)
  +  (declare (ignore stream frame)))
   
   (define-clim-fig-command com-exit ()
     (frame-exit *application-frame*))
  
positive.code:            ellipse-button rectangle-button)
           (scrolling (:width 600 :height 400) canvas))
         (horizontally (:height 30) clear undo redo)
         command
         status))))
  
  (define-presentation-to-command-translator add-figure
      (blank-area com-add-figure clim-fig
  
negative.code:           :activate-callback #'(lambda (x)
                                   (declare (ignore x))
                                   (com-clear)))
     (status :text-field :value "CLIM Fig"))
    (:layouts
     (default
       (vertically ()
  