anchor.diff:       (with-slots (gtk-object root-box-layout horizontal-box-layout
                     panel-buffer-container-left
                     panel-buffer-container-right
  -                  active-buffer-container
  +                  main-buffer-container
                     active-buffer prompt-buffer-container
                     prompt-buffer-view
                     status-buffer status-container
  
positive.code:        (setf active-buffer (make-dummy-buffer))
  
         ;; Add the views to the box layout and to the window
         (gtk:gtk-box-pack-start active-buffer-container (gtk-object active-buffer) :expand t :fill t)
         (gtk:gtk-box-pack-start horizontal-box-layout panel-buffer-container-left :expand nil)
         (gtk:gtk-box-pack-start horizontal-box-layout active-buffer-container :expand t :fill t)
         (gtk:gtk-box-pack-start horizontal-box-layout panel-buffer-container-right :expand nil)
         (gtk:gtk-box-pack-start root-box-layout horizontal-box-layout :expand t :fill t)
  
  
negative.code:    (horizontal-box-layout)
     (panel-buffer-container-left)
     (panel-buffer-container-right)
     (main-buffer-container)
     (prompt-buffer-container)
     (prompt-buffer-view)
     (status-container)
  