anchor.diff:     (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)))
  +     (on-signal-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)))
  +     (on-signal-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)))
  +     (on-signal-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)))
  +     (on-signal-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)
  +(defmethod on-signal-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 ())
  
positive.code:         nil
          t)))
  
  (defmethod process-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)))
  
negative.code:      (lambda (widget event) (declare (ignore widget))
         #+darwin
         (push-modifier *browser* event)
         (on-signal-key-press-event window event)))
      ;; For now we only need to deal with release events for macOS as a
      ;; workaround for the modifier issue.
      #+darwin
  