anchor.diff:  ;;;  (c) copyright 2001 by
   ;;;           Arnaud Rouanet (rouanet@emi.u-bordeaux.fr)
   ;;;           Lionel Salabartan (salabart@emi.u-bordeaux.fr)
  +;;;  (c) copyright 2002 by
  +;;;           Alexey Dejneka (adejneka@comail.ru)
   
   ;;; This library is free software; you can redistribute it and/or
   ;;; modify it under the terms of the GNU Library General Public
  
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: 
  (defclass canvas-pane (application-pane)
    ((first-point-x :initform nil)
     (first-point-y :initform nil)))
  
  (defun set-status-line (string)
    (setf (gadget-value (clim-fig-status *application-frame*))
  	string))
  
  (defun draw-figure (pane x y x1 y1 &key fastp)
    (with-slots (line-style current-color fill-mode constrict-mode)
  