anchor.diff:        (if (and (member state '(:highlight :unhighlight))
                  (or highlight-background highlight-outline))
             (flet ((redraw (new-drawing-options)
  +                   (setf (drawing-options record) new-drawing-options)
                      (clear-output-record record)
  -                   (%prepare-bordered-output-record record new-drawing-options)
  +                   (%prepare-bordered-output-record record)
                      ;; Great, this again..
                      (queue-repaint stream
                         (make-instance 'window-repaint-event
  
positive.code:                                   :shape shape
                                    :drawing-options drawing-options
                                    :inner-record inner-record)))
         (%prepare-bordered-output-record border drawing-options))))
  
  (define-default-highlighting-method :rectangle)
  (define-default-highlighting-method :oval)
  
negative.code:   ((stream :reader border-stream :initarg :stream)
     (shape :reader shape :initarg :shape)
     (record :reader inner-record :initarg :inner-record)
     (drawing-options :accessor drawing-options
                      :initarg :drawing-options
                      :initform nil)
     under over))
  