anchor.diff:  
   (defclass canvas-pane (application-pane)
     ((first-point-x :initform nil)
  -   (first-point-y :initform nil)
  -   (selected-object :initform nil)))
  +   (first-point-y :initform nil)))
   
   (defun set-status-line (string)
  -  (setf (gadget-value (slot-value *application-frame* 'status))
  +  (setf (gadget-value (clim-fig-status *application-frame*))
   	string))
  -
  -#+nil
  -(progn
  -(defmethod handle-event :around ((pane t) (event t))
  -  (let ((*application-frame* (pane-frame pane)))
  -    (call-next-method pane event)))
  -
  -(defmethod dispatch-event ((pane canvas-pane) event)
  -  (handle-event pane event))
  -)
   
   (defun draw-figure (pane x y x1 y1 &key fastp)
     (with-slots (line-style current-color fill-mode constrict-mode)
  
positive.code:                      :ink current-color
                       :line-style line-style))
          (:arrow
           (if fastp
               (draw-arrow* pane x y x1 y1
                            :ink current-color
                            :line-style line-style
                            :to-head t :head-width 20 :head-length 20)
               (with-new-output-record (pane)
                 (draw-arrow* pane x y x1 y1
                              :ink current-color
                              :line-style line-style
                              :to-head t :head-width 20 :head-length 20))))
          (:rectangle
           (draw-rectangle* pane x y x1 y1 :filled fill-mode
                            :ink current-color
  
negative.code:                                dashes
                                 (line-style-dashes line-style))))
  
  (define-application-frame clim-fig ()
    ((drawing-mode :initform :line :accessor clim-fig-drawing-mode)
     (output-record :accessor clim-fig-output-record)
  