From 1b8097ccb89ca043282f79fb5a0aeaf71737b602 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 27 May 2023 17:14:30 -0400
Subject: Preserve user clear color on window resize.

---
 chickadee.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/chickadee.scm b/chickadee.scm
index a3434b8..05f3d65 100644
--- a/chickadee.scm
+++ b/chickadee.scm
@@ -399,7 +399,9 @@ border is disabled, otherwise it is enabled.")
             ((width height)
              (set! window-width width)
              (set! window-height height)
-             (atomic-box-set! default-viewport (make-viewport 0 0 width height))
+             (atomic-box-set! default-viewport
+                              (make-viewport 0 0 width height
+                                             #:clear-color clear-color))
              (atomic-box-set! default-projection
                               (orthographic-projection 0 width height 0 0 1))
              (window-resize width height))))))
-- 
cgit v1.2.3