Enforce actual viewport dimensions when in fullscreen mode

borodust · Jul 5, 2019 · 2a451f6 · 2a451f6
1 parent 0eb7c65
commit 2a451f6
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/appkit/appkit.lisp b/appkit/appkit.lisp
@@ -138,6 +138,10 @@
         (height (or viewport-height *default-viewport-height*)))
     (>> (ge.host:for-host ()
           (log/debug "Updating appkit host configuration")
+          (when fullscreen-p
+            (ge.host:with-viewport-dimensions (actual-width actual-height)
+              (setf width actual-width
+                    height actual-height)))
           (update-viewport app
                            (or viewport-title *default-viewport-title*)
                            width height fullscreen-p))