anchor.diff:                    worker (values (x2 line-dimensions) (y1 line-dimensions)
                                    (dimensions-height line-dimensions))))))))
       (with-accessors ((buffer buffer) (top top) (bot bot)) view
  -      (let ((default-object-width (text-style-width (medium-default-text-style pane) pane)))
  +      (let ((default-object-width
  +             (text-style-width
  +              (medium-merged-text-style (sheet-medium pane)) pane)))
           (cond
             ((< offset (offset top)) nil)
             ((< (offset bot) offset) t)
  
positive.code:                                                 (text-size stream stroke-string
                                                   :text-style (merge-text-styles
                                                                (face-style (drawing-options-face drawing-options))
                                                                (medium-default-text-style stream)))
                                                  (values (- x2 x1) (- y2 y1)))
            (clear-rectangle* stream cursor-x cursor-y
                              (+ cursor-x width) (+ cursor-y height
  
negative.code:                 (face-style
                   (drawing-options-face
                    (stroke-drawing-options stroke)))
                  (medium-merged-text-style (sheet-medium stream)))))
  
  (defgeneric offset-to-screen-position (pane view offset)
    (:documentation "Returns the position of offset as a screen
  