anchor.diff:  ;;; -*- Mode: Lisp; Package: CLIM-DEMO -*-
  -
   ;;;  (c) copyright 2001 by
   ;;;           Arnaud Rouanet (rouanet@emi.u-bordeaux.fr)
   ;;;           Lionel Salabartan (salabart@emi.u-bordeaux.fr)
  
positive.code: (define-application-frame clim-fig ()
    ((drawing-mode :initform :line :accessor clim-fig-drawing-mode)
     (output-record :accessor clim-fig-output-record)
     (redo-list :initform nil :accessor clim-fig-redo-list)
     (current-color :initform +black+ :accessor clim-fig-current-color)
     (line-style :initform (make-line-style) :accessor clim-fig-line-style)
  
negative.code:       (set-status-line " ")
        (copy-from-pixmap canvas-pixmap 0 0 pixmap-width pixmap-height pane 0 0)
        (deallocate-pixmap canvas-pixmap)
        (let ((new-record (with-output-to-output-record (*standard-output*)
                            (draw-figure pane x1 y1 x y
  		                       :cp-x1 cp-x1 :cp-y1 cp-y1
  		                       :cp-x2 cp-x2 :cp-y2 cp-y2))))
          (push new-record (clim-fig-undo-list *application-frame*))
          (stream-add-output-record *standard-output* new-record)
          (replay new-record *standard-output*))
        (setf (clim-fig-redo-list *application-frame*) nil))))
  
  (defun handle-move-object (pane figure first-point-x first-point-y)
  