anchor.diff:                     "Name" renderer "text" 0)))
        (gtk:gtk-tree-view-append-column list-view column)
        (gtk:gtk-list-store-set model (gtk:gtk-list-store-append model) "Element 1")
  -     (gtk:gtk-list-store-set model (gtk:gtk-list-store-append model) "Element 2")
        (gobject:g-signal-connect window "destroy"
                                  (lambda (widget)
                                    (declare (ignore widget))
  
positive.code:         (completion-model self)
          (gtk:gtk-list-store-append (completion-model self))
          element)))
  
  (defmethod get-input-complete ((self minibuffer-view))
    )
  
  (defun initialize ())
  
  
negative.code: 
  (defun minibuffer-get-input-complete ()
    (with-slots (completion-model completion-view) (minibuffer-view *next-interface*)
      (when (gtk:gtk-tree-model-get-iter
             completion-model
             (gtk:gtk-tree-view-get-cursor
              completion-view))
        (gtk:gtk-tree-model-get-value
         completion-model
         (gtk:gtk-tree-model-get-iter
          completion-model
          (gtk:gtk-tree-view-get-cursor
           completion-view))
         0))))
  
  (defun minibuffer-select-next ()
    (gtk:gtk-tree-view-set-cursor
  