anchor.diff:    (setf (slot-value browser 'last-active-window)
           (or (find-if (lambda (window)
                          (gir:property (gtk-object window) 'is-active))
  -                     (window-list)
  -                     :key #'gtk-object)
  +                     (window-list))
               (first (window-list))
               (slot-value browser 'last-active-window))))
   
  
positive.code:     (setf gtk-object (make-web-view))))
  
  (defun renderer-thread-p ()
    (str:containsp "main thread" (bt:thread-name (bt:current-thread))))
  
  (defmethod ffi-within-renderer-thread ((browser gobject-gtk-browser) thunk)
    (declare (ignore browser))
  
negative.code: ;;   (webkit:webkit-web-inspector-show
  ;;    (webkit:webkit-web-view-get-inspector (gobject-gtk-object buffer))))
  
  (define-ffi-method ffi-print-status ((window gobject-gtk-window) text)
    (let ((text (markup:markup
                 (:head (:style (style (status-buffer window))))
                 (:body (markup:raw text)))))
      (with-slots (status-buffer) window
        (webkit2:webkit-web-view-evaluate-javascript
         (gtk-object-pointer (status-buffer window))
         (ps:ps (setf (ps:@ document body |innerHTML|)
                      (ps:lisp text)))))))
  
  (define-ffi-method ffi-print-message ((window gobject-gtk-window) text)
    (let ((text (markup:markup
  