anchor.diff:                                                          (id buffer))))))
     (ffi-buffer-make buffer))
   
  +(defmethod initialize-instance :after ((buffer status-buffer) &key)
  +  (with-slots (gtk-object) buffer
  +    (setf gtk-object (make-web-view))))
  +
   ;; (defmethod web-context ((browser gobject-gtk-browser))
   ;;   (or (slot-value *browser* 'web-context)
   ;;       (setf (slot-value *browser* 'web-context) 
  
positive.code:                                   (cffi:null-pointer)
                                    (cffi:null-pointer)
                                    0)
        ;; Message View
        (setf message-view (make-web-view))
        (gir:invoke (box-layout 'pack-end) message-container nil nil 0)
        (gir:invoke (message-container 'pack-start) message-view t t 0)
        (gir:invoke (message-container 'set-size-request) -1 (message-buffer-height window))
  
        (gir:invoke (gtk-object 'show-all)))
  
      ;; (setf status-buffer (make-instance 'user-status-buffer))
      ;; (gobject-gtk:gobject-gtk-box-pack-end box-layout status-container :expand nil)
      ;; (gobject-gtk:gobject-gtk-box-pack-start status-container (gobject-gtk-object status-buffer) :expand t)
      ;; (setf (gobject-gtk:gobject-gtk-widget-size-request status-container)
      ;;       (list -1 (height status-buffer)))
  
      ;; (setf minibuffer-view (make-web-view))
      ;; (gobject-gtk:gobject-gtk-box-pack-end box-layout minibuffer-container :expand nil)
  
negative.code:   (let ((view (gir:invoke ((gir-webkit *browser*) "WebView" 'new))))
      (gir:invoke (view 'load_uri) "https://duckduckgo.com")
      view))
  
  
  ;; (define-ffi-method on-signal-destroy ((window gobject-gtk-window))
  