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:           (column (gtk:gtk-tree-view-column-new-with-attributes
                     "Name" renderer "text" 0)))
       (gtk:gtk-tree-view-append-column list-view column)
       (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)
  