anchor.diff:                            :title "nEXT"
                             :default-width 250
                             :border-width 0))
  -          (button
  -           (make-instance 'gtk:gtk-button
  -                          :label "About:Blank"))
             (entry
              (make-instance 'gtk:gtk-entry
                             :text "Minibuffer Input"))
  
positive.code: (defun delete-view (view)
    (declare (ignore view)))
  
  (defun make-web-view ()
    (make-instance 'gtk:gtk-button
                   :label "about:blank"))
  
  (defun web-view-set-url (view url)
    (setf (gtk:gtk-button-label view) url))
  
  (defun web-view-set-url-loaded-callback (view function)
    (declare (ignore view function)))
  
  (defun web-view-get-url (view)
    (declare (ignore view))
    "url.com")
  
  (defun web-view-execute (view script)
    (declare (ignore view script))
    "{\"hello\": \"world\"}")
  
  (defun make-minibuffer ()
  
negative.code:                                  (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)
       (gtk:gtk-box-pack-start minibuffer-box list-view :expand nil)
       (gtk:gtk-container-add window root-box)
  