anchor.diff:                          :filled fill-mode
                           :ink current-color :line-style line-style))))))
   
  -(defmethod handle-event ((pane canvas-pane) (event pointer-button-press-event))
  -  (when (= (pointer-event-button event) +pointer-left-button+)
  -    (handle-draw-object pane event))
  -  (when (= (pointer-event-button event) +pointer-right-button+)
  -    (with-slots (first-point-x first-point-y selected-object) pane
  -      (setq first-point-x (pointer-event-x event)
  -            first-point-y (pointer-event-y event))
  -      (setf selected-object (search-selected-object (stream-output-history pane)
  -                                                    first-point-x
  -                                                    first-point-y)))))
  -
  -(defun search-selected-object (record x y)
  -  (map-over-output-records-containing-position
  -     #'(lambda (x)
  -         (return-from search-selected-object x))
  -     record x y)
  -  nil)
  -
   (defun signum-1 (value)
     (if (zerop value)
         1
         (signum value)))
   
  -(defun handle-draw-object (pane event)
  -  (let* ((x1 (pointer-event-x event))
  -         (y1 (pointer-event-y event))
  -         (pixmap-width (round (bounding-rectangle-width (sheet-region pane))))
  +(define-presentation-type figure ())
  +
  +(define-presentation-method highlight-presentation
  +    ((type figure) record stream state)
  +  (declare (ignore record stream state))
  +  nil)
  +
  +(defun handle-draw-object (pane x1 y1)
  +  (let* ((pixmap-width (round (bounding-rectangle-width (sheet-region pane))))
            (pixmap-height (round (bounding-rectangle-height (sheet-region pane))))
            (canvas-pixmap (allocate-pixmap pane pixmap-width pixmap-height)))
       (copy-to-pixmap pane 0 0 pixmap-width pixmap-height canvas-pixmap)
  
positive.code:           :activate-callback #'(lambda (x)
                                   (declare (ignore x))
                                   (com-clear)))
     (status :text-field :value "CLIM Fig"))
    (:layouts
     (default
       (vertically ()
         menu-bar
         (horizontally ()
           (vertically (:width 150)
             (tabling (:height 60)
  
negative.code:                      :ink current-color
                       :line-style line-style))
          (:arrow
           (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
  