anchor.diff:  ;;;
   ;;; - Scrolling does not work correctly. Region is given in "window"
   ;;; coordinates, without bounding-rectangle-position transformation.
  +;;; (Is it still valid?)
   ;;;
   ;;; - Redo setf*-output-record-position, extent recomputation for
   ;;; compound records
  
positive.code:                                (values (- min-x border)
                                         (- min-y border)
                                         (+ max-x border)
                                         (+ max-y border)))))))
  
  (def-grecording draw-rectangle (left top right bottom filled)
    ;; FIXME!!! If the rectangle is a line/point, MAKE-RECTANGLE* gives +NOWHERE+,
  
negative.code: ;;; - (SETF OUTPUT-RECORD-START-CURSOR-POSITION) does not affect the
  ;;; bounding rectangle. What does it affect?
  ;;;
  ;;; - How should (SETF OUTPUT-RECORD-POSITION) affect the bounding
  ;;; rectangle of the parent? Now its bounding rectangle is accurately
  ;;; recomputed, but it is very inefficient for table formatting. It
  ;;; seems that CLIM is supposed to keep a "large enougn" rectangle and
  ;;; to shrink it to the correct size only when the layout is complete
  ;;; by calling TREE-RECOMPUTE-EXTENT.
  ;;;
  ;;; - Computation of the bounding rectangle of lines ignores
  ;;; LINE-STYLE-CAP-SHAPE.
  
  ;;; Bug: (SETF OUTPUT-RECORD-POSITION) returns the record instead of
  ;;; the position. It is useful for debugging, but it is wrong.
  