anchor.diff:  
   (defun update-viewport (app viewport-title viewport-width viewport-height fullscreen-p)
     (with-slots (framebuffer-size) app
  -      (setf (ge.host:viewport-title) viewport-title
  -            (ge.host:fullscreen-viewport-p) fullscreen-p
  -            (ge.host:viewport-title) viewport-title
  -            (ge.host:viewport-size) (vec2 viewport-width viewport-height))
  +    (setf (ge.host:viewport-title) viewport-title
  +          (ge.host:fullscreen-viewport-p) fullscreen-p
  +          (ge.host:viewport-title) viewport-title
  +          (ge.host:viewport-size) (vec2 viewport-width viewport-height))
       (let ((pixel-ratio (viewport-pixel-ratio)))
         (setf framebuffer-size (vec2 (* viewport-width pixel-ratio)
                                      (* viewport-height pixel-ratio))))))
  
positive.code:         (ge.gx:for-graphics ()
            (log/debug "Updating appkit graphics configuration")
            (update-graphics app width height canvas-width canvas-height panel-classes))
          (configuration-flow app))))
  
  
  
negative.code:                          act-rate draw-rate)
    (let ((width (or viewport-width *default-viewport-width*))
          (height (or viewport-height *default-viewport-height*)))
      (>> (ge.host:for-host ()
            (log/debug "Updating appkit host configuration")
            (update-viewport app
                             (or viewport-title *default-viewport-title*)
  