anchor.diff:                         (- y (delta-y latest-undo-entry))))
            (window-refresh *standard-output*))
          (push latest-undo-entry (clim-fig-redo-list *application-frame*))
  -       (activate-gadget (find-pane-named *application-frame* 'redo)))
  +       (enable-commands *application-frame* 'com-redo))
         ((listp latest-undo-entry)
          (loop for record in latest-undo-entry do
               (stream-add-output-record *standard-output* record)
               (replay record *standard-output* (bounding-rectangle record)))
  -       (activate-gadget (find-pane-named *application-frame* 'clear))
  -       (deactivate-gadget (find-pane-named *application-frame* 'redo)))
  +       (enable-commands *application-frame* 'com-clear)
  +       (disable-commands *application-frame* 'com-redo))
         (T
          (erase-output-record latest-undo-entry *standard-output*)
          (push latest-undo-entry (clim-fig-redo-list *application-frame*))
  -       (activate-gadget (find-pane-named *application-frame* 'clear))
  -       (activate-gadget (find-pane-named *application-frame* 'redo))))
  +       (enable-commands *application-frame* 'com-clear 'com-redo)))
       (unless (clim-fig-undo-list *application-frame*)
  -      (deactivate-gadget (find-pane-named *application-frame* 'undo))
  -      (deactivate-gadget (find-pane-named *application-frame* 'clear)))))
  +      (disable-commands *application-frame* 'com-undo 'com-clear))))
   
   (define-clim-fig-command com-redo ()
     (alexandria:when-let ((current-redo-entry (pop (clim-fig-redo-list
                                                   *application-frame*))))
       (push current-redo-entry (clim-fig-undo-list *application-frame*))
  -    (activate-gadget (find-pane-named *application-frame* 'undo))
  -    (activate-gadget (find-pane-named *application-frame* 'clear))
  +    (enable-commands *application-frame* 'com-undo 'com-clear)
       (cond
         ((typep current-redo-entry 'clim-fig-move-event)
          (multiple-value-bind (x y)
  
positive.code:                                 :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))
             (window-refresh pane)
             (return-from handle-move-object)))))))
  
  
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))
  