diff options
author | David Thompson <dthompson2@worcester.edu> | 2018-09-09 14:02:04 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2018-09-09 14:02:04 -0400 |
commit | 06114b918aaa9e4c38634fe0178eac4aa58ba20e (patch) | |
tree | 2a183145512038c7318f7ac2bf2152b1855255fc | |
parent | b48ee0fbe093f1e492b0f2606b70143c8a4e4025 (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.scm | 10 |
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") |