anchor.diff:                          :initform '())))
   
   (setf *buffer-class* 'gtk-buffer)
  +
  +(defun make-web-view (&optional buffer)
  +  (make-instance 'webkit:webkit-web-view
  +                 :web-context (make-context buffer)))
   
   (defmethod initialize-instance :after ((window gtk-window) &key)
     (with-slots (gtk-object box-layout active-buffer
  
positive.code:     ;; Add the views to the box layout and to the window
      (gtk:gtk-box-pack-start box-layout (gtk-object active-buffer))
  
      (setf message-view (make-instance 'webkit:webkit-web-view))
      (gtk:gtk-box-pack-end box-layout message-container :expand nil)
      (gtk:gtk-box-pack-start message-container message-view :expand t)
      (setf (gtk:gtk-widget-size-request message-container)
            (list -1 (message-buffer-height window)))
  
      (setf status-view (make-instance 'webkit:webkit-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-instance 'webkit:webkit-web-view))
      (gtk:gtk-box-pack-end box-layout minibuffer-container :expand nil)
      (gtk:gtk-box-pack-start minibuffer-container minibuffer-view :expand t)
      (setf (gtk:gtk-widget-size-request minibuffer-container)
  
negative.code:       (webkit:webkit-cookie-manager-set-persistent-storage
         cookie-manager
         (expand-path (cookies-path buffer))
         :webkit-cookie-persistent-storage-text)
        (set-cookie-policy cookie-manager (default-cookie-policy buffer)))
      context))
  
  (defmethod initialize-instance :after ((buffer gtk-buffer) &key)
  