anchor.diff:  See `gobject-gtk-browser's `modifier-translator' slot."
     (declare (ignore event))
     (let ((modifiers (list)))
  -    (dolist (mdef '((#b1    :shift)
  -                    (#b100  :ctrl)
  -                    (#b1000 :alt)))
  +    (dolist (mdef '((#b1    "shift")
  +                    (#b100  "control")
  +                    (#b1000 "meta")))
         (destructuring-bind (int modifier)
             mdef
           (unless (zerop (logand int modifier-state))
  
positive.code: ;;      (setf (gdk:gdk-event-scroll-send-event event) t)))
  ;;   (gobject-gtk:gobject-gtk-main-do-event event))
  
  ;; (define-ffi-method ffi-generated-input-event-p ((window gobject-gtk-window) event)
  ;;   (gdk:gdk-event-send-event event))
  
  ;; (define-ffi-method ffi-inspector-show ((buffer gobject-gtk-buffer))
  ;;   (setf (webkit:webkit-settings-enable-developer-extras
  
negative.code:                                                :status :pressed)))
            (funcall (input-dispatcher sender) event (active-buffer sender) sender printable-value))
          t)))
  
  ;; (define-ffi-method on-signal-button-press-event ((sender gobject-gtk-buffer) event)
  ;;   (let* ((button (gdk:gdk-event-button-button event))
  