anchor.diff:                                  :delta-y (- y first-point-y))
                    (clim-fig-undo-list *application-frame*))
              (setf (clim-fig-redo-list *application-frame*) (list))
  -           (deactivate-gadget (find-pane-named *application-frame* 'redo))
  +           (disable-commands *application-frame* 'com-redo)
              (window-refresh pane)
              (return-from handle-move-object)))))))
   
  
positive.code:          (replay current-redo-entry *standard-output*
                   (bounding-rectangle current-redo-entry))))
      (unless (clim-fig-redo-list *application-frame*)
        (deactivate-gadget (find-pane-named *application-frame* 'redo)))))
  
  (define-clim-fig-command com-clear ()
    (push (coerce (output-record-children (clim-fig-output-record
  
negative.code: 		'list)
          (clim-fig-undo-list *application-frame*))
    (setf (clim-fig-redo-list *application-frame*) (list))
    (disable-commands *application-frame* 'com-redo 'com-clear)
    (window-clear *standard-output*))
  
  (define-clim-fig-command (com-add-figure :name nil) ((x real) (y real))
  