anchor.diff:  		'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))
  
positive.code: 
     (undo :push-button
           :label "Undo"
           :activate-callback #'(lambda (x)
                                  (declare (ignore x))
                                  (com-undo)))
     (redo :push-button
           :label "Redo"
           :activate-callback #'(lambda (x)
                                  (declare (ignore x))
                                  (com-redo)))
     (clear :push-button
            :label "Clear"
            :activate-callback #'(lambda (x)
                                   (declare (ignore x))
                                   (com-clear)))
  
negative.code:   (:layouts
     (default
       (vertically ()
         (:fill (horizontally ()
                  (vertically (:width 150)
                    (tabling (:height 60)
                      (list black-button blue-button green-button cyan-button)
                      (list red-button magenta-button yellow-button white-button)
                      (list turquoise-button grey-button brown-button orange-button))
                    line-width-slider
                    round-shape-toggle
                    (horizontally () fill-mode-toggle constrict-toggle)
                    point-button line-button arrow-button
                    ellipse-button rectangle-button
  	          bezier-button)
                  (:fill (scrolling (:width 600 :height 400) canvas))))
         (horizontally (:height 30) clear undo redo)
         status)))
    (:top-level (default-frame-top-level :prompt 'clim-fig-prompt)))
  