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: 		'list)
          (clim-fig-undo-list *application-frame*))
    (setf (clim-fig-redo-list *application-frame*) (list))
    (deactivate-gadget (find-pane-named *application-frame* 'redo))
    (deactivate-gadget (find-pane-named *application-frame* 'clear))
    (window-clear *standard-output*))
  
  (define-clim-fig-command (com-add-figure :name nil) ((x real) (y real))
  
negative.code:         (push new-presentation (clim-fig-undo-list *application-frame*))
          (replay new-presentation *standard-output* (bounding-rectangle new-presentation)))
        (setf (clim-fig-redo-list *application-frame*) nil)
        (disable-commands *application-frame* 'com-redo)
        (enable-commands *application-frame* 'com-undo 'com-clear))))
  
  (defun handle-move-object (pane figure first-point-x first-point-y)
    (multiple-value-bind (figure-x figure-y)
  