From 06114b918aaa9e4c38634fe0178eac4aa58ba20e Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 9 Sep 2018 14:02:04 -0400
Subject: kernel: Add keyword init args for <window-config>.

* starling/kernel.scm (<window-config>): Add init keywords for all fields.
---
 starling/kernel.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/starling/kernel.scm b/starling/kernel.scm
index 078b6df..5187bc1 100644
--- a/starling/kernel.scm
+++ b/starling/kernel.scm
@@ -65,10 +65,12 @@
   #:re-export (abort-game))
 
 (define-class <window-config> ()
-  (width #:accessor width #:init-form 640)
-  (height #:accessor height #:init-form 480)
-  (title #:accessor title #:init-form "Made with Starling Game Engine")
-  (fullscreen? #:accessor fullscreen? #:init-form #f))
+  (width #:accessor width #:init-form 640 #:init-keyword #:width)
+  (height #:accessor height #:init-form 480 #:init-keyword #:height)
+  (title #:accessor title #:init-form "Made with Starling Game Engine"
+         #:init-keyword #:title)
+  (fullscreen? #:accessor fullscreen? #:init-form #f
+               #:init-keyword #:fullscreen?))
 
 (define-class <kernel> (<node>)
   (name #:accessor name #:init-form "starling-kernel")
-- 
cgit v1.2.3