anchor.diff:                     (lambda (widget event)
                        (declare (ignore widget))
                        (on-signal-key-press-event window event)))
  -      (gir:connect gtk-object
  -                   :key-release-event
  -                   (lambda (widget event)
  -                     (declare (ignore widget))
  -                     (on-signal-key-release-event window event)))
  -
         ;; RM
         (gir::g-signal-connect-data (gir::this-of gtk-object)
                                     "destroy"
  
positive.code: See `gobject-gtk-browser's `modifier-translator' slot."
    (declare (ignore event))
    (let ((modifiers (list)))
      (dolist (mdef '((#b1    :shift)
                      (#b100  :ctrl)
                      (#b1000 :alt)))
        (destructuring-bind (int modifier)
            mdef
          (unless (zerop (logand int modifier-state))
  
negative.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)
    nil
    ;(gdk:gdk-event-send-event event)
    )
  
  ;; (define-ffi-method ffi-inspector-show ((buffer gobject-gtk-buffer))
  ;;   (setf (webkit:webkit-settings-enable-developer-extras
  