anchor.diff:     (gtk-object buffer) "context-menu"
      (lambda (web-view context-menu event hit-test-result)
        (declare (ignore web-view event hit-test-result))
  -     #-darwin
  -     (flush-clipboard)
        (let ((length (webkit:webkit-context-menu-get-n-items context-menu)))
          (dolist (i (alex:iota length))
            (let* ((item (webkit:webkit-context-menu-get-item-at-position context-menu i)))
  
positive.code:      (lambda (widget event) (declare (ignore widget))
         #+darwin
         (push-modifier *browser* event)
         #-darwin
         (flush-clipboard)
         (on-signal-key-press-event window event)))
      (gobject:g-signal-connect
       gtk-object "key_release_event"
       (lambda (widget event) (declare (ignore widget))
         #+darwin
         (pop-modifier *browser* event)
         #-darwin
         (flush-clipboard)
         (on-signal-key-release-event window event)))
      (gobject:g-signal-connect
       gtk-object "destroy"
  
negative.code:   (gobject:g-signal-connect
     (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"
  