summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2018-09-09 14:02:04 -0400
committerDavid Thompson <dthompson2@worcester.edu>2018-09-09 14:02:04 -0400
commit06114b918aaa9e4c38634fe0178eac4aa58ba20e (patch)
tree2a183145512038c7318f7ac2bf2152b1855255fc
parentb48ee0fbe093f1e492b0f2606b70143c8a4e4025 (diff)
kernel: Add keyword init args for <window-config>.
* starling/kernel.scm (<window-config>): Add init keywords for all fields.
-rw-r--r--starling/kernel.scm10
1 files 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")