anchor.diff:          (declare (ignore widget))
           (process-set-completions (minibuffer-view *next-interface*))))
        (gtk:gtk-widget-show-all window)
  +     (setf *window* window)
        (minibuffer-hide))))
   
   (defun kill ()
  -  (gtk:leave-gtk-main))
  +  (gtk:gtk-widget-destroy *window*))
   
   (defun copy ())
   (defun paste ())
  
positive.code:           (column (gtk:gtk-tree-view-column-new-with-attributes
                     "Name" renderer "text" 0)))
       (gtk:gtk-tree-view-append-column list-view column)
       (gobject:g-signal-connect window "destroy"
                                 (lambda (widget)
                                   (declare (ignore widget))
                                   (gtk:leave-gtk-main)))
       (gtk:gtk-box-pack-start root-box container-box)
       (gtk:gtk-box-pack-start root-box minibuffer-box :expand nil)
       (gtk:gtk-box-pack-start minibuffer-box entry :expand nil)
  
negative.code:       window "destroy"
        (lambda (widget)
          (declare (ignore widget))
          (setf *window* NIL)
          (gtk:leave-gtk-main)))
       (gobject:g-signal-connect
        window "key_press_event"
  