anchor.diff:  (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
  
positive.code:                              event)))
      (when key-string
        (alex:appendf (key-stack *browser*)
                            (list (keymap:make-key
                                   :value key-string
                                   :modifiers modifiers
                                   :status :pressed)))
        (funcall (input-dispatcher window) event sender window nil))))
  
  (declaim (ftype (function (&optional buffer)) make-context))
  
negative.code:    (gtk-object buffer) "button-press-event"
     (lambda (web-view event) (declare (ignore web-view))
       (on-signal-button-press-event buffer event)))
    (gobject:g-signal-connect
     (gtk-object buffer) "scroll-event"
     (lambda (web-view event) (declare (ignore web-view))
       (on-signal-scroll-event buffer event)))
    ;; TODO: Capture button-release-event?
    ;; TLS certificate handling
    (gobject:g-signal-connect
  