anchor.diff:  ||#
   
   #||
  +
  +;;; Testing --GB 2002-08-14
  +
   (define-application-frame graph-test ()
     ()
     (:panes
  
positive.code:      2))
  
  (define-graph-test-command bar ()
    (with-text-style (*query-io* (make-text-style :sans-serif nil 12))
      (let ((*print-case* :downcase))
        (format-graph-from-roots
         (list (clim-mop:find-class 'climi::basic-output-record))
         #'(lambda (x s)
             (with-text-style (s (make-text-style nil
                                                  (if (external-symbol-p (class-name x))
                                                      :bold
                                                      nil)
                                                  nil))
               (prin1 (class-name x) s)))
         #'(lambda (x)
             (clim-mop:class-direct-subclasses x))
         :stream *query-io*
  
negative.code:                    (dolist (k (graph-node-children node))
                       (with-bounding-rectangle* (x1 y1 x2 y2) node
                         (with-bounding-rectangle* (u1 v1 u2 v2) k
                           (ecase orientation
                             ((:horizontal)
                              (multiple-value-bind (from to) (if (< x1 u1)
                                                                 (values x2 u1)
                                                                 (values x1 u2))
                                (apply arc-drawer stream node k
                                       from (/ (+ y1 y2) 2)
                                       to   (/ (+ v1 v2) 2)
                                       arc-drawing-options)))
                             ((:vertical)
                              (multiple-value-bind (from to) (if (< y1 v1)
                                                                 (values y2 v1)
                                                                 (values y1 v2))
                                (apply arc-drawer stream node k
                                       (/ (+ x1 x2) 2) from
                                       (/ (+ u1 u2) 2) to
                                       arc-drawing-options)) ))))
                       (walk k)))))
          (map nil #'walk root-nodes)))))
  
  (defun standard-arc-drawer (stream from-node to-node x1 y1 x2 y2
                              &rest drawing-options
                              &key &allow-other-keys)
    (declare (ignore from-node to-node))
    (apply #'draw-line* stream x1 y1 x2 y2 drawing-options))
  
  (defun arrow-arc-drawer (stream from-node to-node x1 y1 x2 y2
                              &rest drawing-options
                              &key &allow-other-keys)
    (declare (ignore from-node to-node))
    (apply #'draw-arrow* stream x1 y1 x2 y2 drawing-options))
  
  #||
  
  ;; Experimental version for rectangular graphs
  
  (defmethod layout-graph-edges ((graph-output-record tree-graph-output-record)
                                 stream arc-drawer arc-drawing-options)
    (with-slots (root-nodes orientation) graph-output-record
  