anchor.diff:                   (setf (clim-fig-current-color (gadget-client gadget))
                          color))
   	     :width width :height height
  +             :background color :foreground color
   	     :normal color :pushed-and-highlighted color
   	     :highlighted color))
   
  
positive.code:   (let ((*standard-input* (frame-standard-input frame))
  	(*standard-output* (frame-standard-output frame))
  	(*query-io* (frame-query-io frame)))
      (setf (slot-value frame 'output-record)
            (stream-current-output-record *standard-output*)
            (slot-value frame 'status)
            (find-if #'(lambda (pane) (typep pane 'text-field-pane))
                     (frame-panes frame)))
      (catch 'exit
  
negative.code: 		      (elt (output-record-children output-history)
  			   (1- record-count)))))
      (if record
          (progn
            (erase-output-record record *standard-output*)
            (push record (clim-fig-redo-list *application-frame*)))
          (beep))))
  
  (define-command com-redo ()
    (let* ((record (pop (clim-fig-redo-list *application-frame*))))
      (if record
          (progn
            (stream-add-output-record *standard-output* record)
            (replay record *standard-output* (bounding-rectangle record)))
          (beep))))
  
  (define-command com-clear ()
    (setf (clim-fig-redo-list *application-frame*)
          (append (coerce (output-record-children (clim-fig-output-record
  						 *application-frame*))
  			'list)
                  (clim-fig-redo-list *application-frame*)))
    (window-clear *standard-output*))
  
  (make-command-table 'file-command-table
  