anchor.diff:                                                 :status :pressed)))
             (funcall (input-dispatcher sender) event (active-buffer sender) sender printable-value))
           t)))
  -
  -(define-ffi-method on-signal-key-release-event ((sender gobject-gtk-window) event)
  -  "Don't handle key release events."
  -  (declare (ignore event))
  -  (if (active-minibuffers sender) t nil))
   
   ;; (define-ffi-method on-signal-button-press-event ((sender gobject-gtk-buffer) event)
   ;;   (let* ((button (gdk:gdk-event-button-button event))
  
positive.code: ;;   (gobject-gtk:gobject-gtk-window-present (gobject-gtk-object window))
  ;;   (setf (slot-value *browser* 'last-active-window) window))
  
  ;; (define-ffi-method ffi-window-set-title ((window gobject-gtk-window) title)
  ;;   "Set the title for a window."
  ;;   (setf (gobject-gtk:gobject-gtk-window-title (gobject-gtk-object window)) title))
  
  ;; (define-ffi-method ffi-window-active ((browser gobject-gtk-browser))
  ;;   "Return the window object for the currently active window."
  
negative.code:                    (lambda (widget event)
                       (declare (ignore widget))
                       (on-signal-key-press-event window event)))
        ;; RM
        (gir::g-signal-connect-data (gir::this-of gtk-object)
                                    "destroy"
  