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