anchor.diff:        window "destroy"
         (lambda (widget)
           (declare (ignore widget))
  +        (setf *window* NIL)
           (gtk:leave-gtk-main)))
        (gobject:g-signal-connect
         window "key_press_event"
  
positive.code:         (declare (ignore widget))
          (process-set-completions (minibuffer-view *next-interface*))))
       (gtk:gtk-widget-show-all window)
       (minibuffer-hide))))
  
  (defun kill ()
    (gtk:leave-gtk-main))
  
  (defun copy ())
  (defun paste ())
  
negative.code: 	 (funcall ,thunk)
  	 (let ((*within-main-nesting* t)
  	       (,promise (lparallel:promise)))
  	   (gtk:within-gtk-thread
  	     (lparallel:fulfill ,promise
  	       (funcall ,thunk)))
  	   (lparallel:force ,promise))))))
  
  (defun initialize ())
  
  (defvar *window* NIL)
  
  (defun start ()
    (gtk:ensure-gtk-main)
    (synchronous-within-main
     (let* ((window
             (make-instance 'gtk:gtk-window
  