anchor.diff:     (minibuffer-container :accessor minibuffer-container)
      (minibuffer-view :accessor minibuffer-view)
      (status-container :accessor status-container)
  -   (status-view :accessor status-view)
      (message-container :accessor message-container)
      (message-view :accessor message-view)
      (key-string-buffer :accessor key-string-buffer)))
  
positive.code: (defmethod initialize-instance :after ((window gtk-window) &key)
    (with-slots (gtk-object box-layout active-buffer
                 minibuffer-container minibuffer-view
                 status-container status-view
                 message-container message-view
                 id key-string-buffer) window
      (setf id (get-unique-window-identifier *browser*))
  
negative.code:     (setf (gtk:gtk-widget-size-request message-container)
            (list -1 (message-buffer-height window)))
  
      (setf status-buffer (make-instance 'status-buffer))
      (gtk:gtk-box-pack-end box-layout status-container :expand nil)
      (gtk:gtk-box-pack-start status-container (gtk-object status-buffer) :expand t)
      (setf (gtk:gtk-widget-size-request status-container)
            (list -1 (height status-buffer)))
  
      (setf minibuffer-view (make-web-view))
      (gtk:gtk-box-pack-end box-layout minibuffer-container :expand nil)
  