anchor.diff:  (defun make-host-application ()
     (make-instance 'host-application
                    :opengl-version (property '(:host :opengl-version) '(3 3))
  -                 :viewport-resizable (property '(:host :viewport-resizable) nil)
  -                 :viewport-decorated (property '(:host :viewport-decorated) t)))
  +                 :resizable (property '(:host :viewport-resizable) nil)
  +                 :decorated (property '(:host :viewport-decorated) t)
  +                 :transparent (property '(:host :viewport-transparent) t)))
   
   
   (defmethod enabling-flow ((this host-system))
  
positive.code:               (instantly ()
                  (setf host-application (make-host-application)
                        shared (bodge-host:make-shared-rendering-context host-application))
                  (bodge-host:start-application (host-application this))
                  (log:debug "Host system initialized")))))
  
  
  (defmethod disabling-flow ((this host-system))
    (ge.ng:>> (instantly ()
                (bodge-host:destroy-shared-rendering-context (shared-application this))
                (bodge-host:stop-application (host-application this))
                (log:debug "Host system offline"))
              (call-next-method)))
  
  
negative.code: 
  (define-constant +expected-dpi+ 96)
  
  (defclass host-application (bodge-host:window) ())
  
  (defclass host-system (enableable dispatching generic-system)
    ((host-application :initform nil)
  