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:            ellipse-button rectangle-button)
           (scrolling (:width 600 :height 400) canvas))
         (horizontally (:height 30) clear undo redo)
         status)))
  ;  #+nil
     (:top-level (clim-fig-frame-top-level)))
  
  (defmethod clim-fig-frame-top-level ((frame application-frame) &key)
    (let ((*standard-input* (frame-standard-input frame))
  	(*standard-output* (frame-standard-output frame))
  	(*query-io* (frame-query-io frame)))
      (setf (clim-fig-output-record frame)
            (stream-current-output-record *standard-output*)
            (clim-fig-status frame)
            (find-if #'(lambda (pane) (typep pane 'text-field-pane))
                     (frame-panes frame)))
      (catch 'exit
        (clim-extensions:simple-event-loop))
      (frame-exit frame)))
  
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
  