anchor.diff:          nil
           t)))
   
  -(defmethod process-load-changed ((buffer gtk-buffer) load-event)
  +(defmethod on-signal-load-changed ((buffer gtk-buffer) load-event)
     (let ((url (webkit:webkit-web-view-uri (gtk-object buffer))))
       (cond ((eq load-event :webkit-load-started)
              (echo "Loading: ~a." (url buffer)))
  
positive.code:    (gtk-object buffer) "decide-policy"
     (lambda (web-view response-policy-decision policy-decision-type-response)
       (declare (ignore web-view))
       (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)
       (declare (ignore web-view))
       (process-load-changed buffer load-event)))
    (gobject:g-signal-connect
     (gtk-object buffer) "mouse-target-changed"
     (lambda (web-view hit-test-result modifiers)
       (declare (ignore web-view))
       (process-mouse-target-changed buffer hit-test-result modifiers)))
    ;; Mouse events are captured by the web view first, so we must intercept them here.
    (gobject:g-signal-connect
     (gtk-object buffer) "button-press-event"
     (lambda (web-view event) (declare (ignore web-view))
       (process-button-press-event buffer event)))
    ;; TODO: Capture button-release-event?
    ;; Modes might require that buffer exists, so we need to initialize them
    ;; after the view has been created.
    (initialize-modes buffer))
  
  (defmethod process-decide-policy ((buffer gtk-buffer) response-policy-decision policy-decision-type-response)
    (let ((is-new-window nil) (is-known-type t) (event-type nil)
          (navigation-action nil) (navigation-type nil)
          (mouse-button nil) (modifiers ())
  
negative.code:                                                  :status :pressed)))
        (funcall (input-dispatcher sender) event (active-buffer sender) sender printable-value))))
  
  (defmethod on-signal-button-press-event ((sender gtk-buffer) event)
    (let* ((button (gdk:gdk-event-button-button event))
           ;; REVIEW: No need to store X and Y?
           ;; (x (gdk:gdk-event-button-x event))
  