anchor.diff:      (gdk:gdk-event-button
        (setf (gdk:gdk-event-button-send-event event) t))
       (gdk:gdk-event-key
  -     (setf (gdk:gdk-event-key-send-event event) t)))
  +     (setf (gdk:gdk-event-key-send-event event) t))
  +    (gdk:gdk-event-scroll
  +     (setf (gdk:gdk-event-scroll-send-event event) t)))
     (gtk:gtk-main-do-event event))
   
   (defmethod ffi-generated-input-event-p ((window gtk-window) event)
  
positive.code:    (gtk-object buffer) "button-press-event"
     (lambda (web-view event) (declare (ignore web-view))
       (on-signal-button-press-event buffer event)))
    ;; TODO: Capture button-release-event?
    ;; TLS certificate handling
    (gobject:g-signal-connect
  
negative.code: (defun button-event-modifiers (button-event)
    (gdk-event-button-state button-event))
  
  #+darwin
  (defun scroll-event-modifiers (scroll-event)
    (declare (ignore scroll-event))
    (modifiers *browser*))
  
  #-darwin
  (defun scroll-event-modifiers (scroll-event)
    (gdk:gdk-event-scroll-state scroll-event))
  
  (defmethod printable-p ((window gtk-window) event)
    "Return the printable value of EVENT."
    ;; Generate the result of the current keypress into the dummy
  