anchor.diff:               event (active-buffer sender)
                sender (printable-p sender event))))
   
  -(defmethod process-destroy ((window qt-window))
  +(defmethod on-signal-destroy ((window qt-window))
     (window-delete window))
   
   (defmethod ffi-window-delete ((window qt-window))
  
positive.code:     ("-" "hyphen")
      (_ (qt:key-string event))))
  
  (defmethod process-key-press-event ((sender qt-window) event)
    (when (qt:key-string event)
      (alex:appendf (key-stack *browser*)
                    (list (keymap:make-key :code (qt:key-code event)
  
negative.code:     (qt:widget-install-key-press-filter
       (qt-object window)
       (lambda (event)
         (on-signal-key-press-event window event)))
      (qt:widget-show qt-object)))
  
  (defmethod printable-p ((window qt-window) event)
  