From 2a451f66705334c91d0141c4aaae39a2e5e267c4 Mon Sep 17 00:00:00 2001
From: Pavel Korolev <dev@borodust.org>
Date: Fri, 5 Jul 2019 15:06:31 +0300
Subject: [PATCH] Enforce actual viewport dimensions when in fullscreen mode

---
 appkit/appkit.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/appkit/appkit.lisp b/appkit/appkit.lisp
index d6a53d7..e750eae 100644
--- 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))