anchor.diff:     (gtk-object buffer) "decide-policy"
      (lambda (web-view response-policy-decision policy-decision-type-response)
        (declare (ignore web-view))
  -     (process-decision buffer response-policy-decision policy-decision-type-response)))
  +     (process-decide-policy buffer response-policy-decision policy-decision-type-response)))
     (gobject:g-signal-connect
      (gtk-object buffer) "load-changed"
      (lambda (web-view load-event)
  
positive.code:   ;; after the view has been created.
    (initialize-modes buffer))
  
  (defmethod process-decision ((buffer gtk-buffer) response-policy-decision policy-decision-type-response)
    (declare (ignore buffer response-policy-decision policy-decision-type-response)))
  
  (defmethod process-load-changed ((buffer gtk-buffer) load-event)
    (let ((url (cl-webkit2:webkit-web-view-uri (gtk-object buffer))))
  
negative.code:     (gobject:g-signal-connect
       gtk-object "destroy"
       (lambda (widget) (declare (ignore widget))
         (process-destroy window)))))
  
  (defmethod process-destroy ((window gtk-window))
    ;; remove buffer from window to avoid corruption of buffer
    (gtk:gtk-container-remove (box-layout window) (gtk-object (active-buffer window)))
    (next-hooks:run-hook (window-delete-hook window) window)
  