anchor.diff:         (gtk:gtk-container-add gtk-object root-box-layout)
          (setf (slot-value *browser* 'last-active-window) window)
          (gtk:gtk-widget-show-all gtk-object)
  -       (connect-signal window "key_press_event" (widget event)
  +       (connect-signal window "key_press_event" nil (widget event)
            (declare (ignore widget))
            #+darwin
            (push-modifier *browser* event)
            (on-signal-key-press-event window event))
  -       (connect-signal window "key_release_event" (widget event)
  +       (connect-signal window "key_release_event" nil (widget event)
            (declare (ignore widget))
            #+darwin
            (pop-modifier *browser* event)
            (on-signal-key-release-event window event))
  -       (connect-signal window "destroy" (widget)
  +       (connect-signal window "destroy" nil (widget)
            (declare (ignore widget))
            (on-signal-destroy window))
  -       (connect-signal window "window-state-event" (widget event)
  +       (connect-signal window "window-state-event" nil (widget event)
            (declare (ignore widget))
            (setf (fullscreen-p window)
                  (find :fullscreen
  
positive.code:               (setf (status download) :canceled)
                (webkit:webkit-download-cancel webkit-download)))
      (push download (downloads *browser*))
      (connect-signal download "received-data" (webkit-download data-length)
        (declare (ignore data-length))
        (setf (bytes-downloaded download)
              (webkit:webkit-download-get-received-data-length webkit-download))
        (setf (completion-percentage download)
              (* 100 (webkit:webkit-download-estimated-progress webkit-download))))
      (connect-signal download "decide-destination" (webkit-download suggested-file-name)
        (alex:when-let* ((download-dir (download-path buffer))
                         (download-directory (expand-path download-dir))
                         (path (str:concat download-directory suggested-file-name))
  
negative.code:                 "If this site does not support HTTPS, try with HTTP (insecure)."))))
         buffer))
      t)
    (connect-signal buffer "create" nil (web-view navigation-action)
      (declare (ignore web-view))
      (let ((new-buffer (buffer-make *browser*))
            (url (webkit:webkit-uri-request-uri
  