anchor.diff:  @export
   @export-accessors
   (defclass qt-window (window)
  -  ((qt-object :accessor qt-object)))
  +  ((qt-object :accessor qt-object)
  +   (box-layout :accessor box-layout)
  +   (minibuffer-view :accessor minibuffer-view)))
   
   (define-class-type window)
   (declaim (type (window-type) *window-class*))
  
positive.code: (defparameter *buffer-class* 'qt-buffer)
  
  (defmethod initialize-instance :after ((window qt-window) &key)
    (print "Making a window!"))
  
  (defmethod process-destroy ((window qt-window))
    (window-delete window))
  
negative.code: 
  @export
  (defmethod ipc-window-active ((browser qt-browser))
    "Return the window object for the currently active window."
    (setf (last-active-window browser)
          (or (find-if #'qt:window-is-active-window (window-list) :key #'qt-object)
              (last-active-window browser))))
  
  @export
  (defmethod ipc-window-set-active-buffer ((window qt-window) (buffer qt-buffer))
  