diff options
| author | David Thompson <dthompson2@worcester.edu> | 2018-09-09 14:07:04 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2018-09-09 14:07:04 -0400 |
| commit | 5319a88e99e63fe0864a46b64c195c4d68e2e394 (patch) | |
| tree | 5df18f5bd9ee293c6ccd8c073cf5592e178b61ea | |
| parent | 06114b918aaa9e4c38634fe0178eac4aa58ba20e (diff) | |
kernel: Add init keywords to <kernel> fields.
* starling/kernel.scm (<kernel>): Add init keywords for name,
window-config, update-hz, and developer-mode?.
| -rw-r--r-- | starling/kernel.scm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/starling/kernel.scm b/starling/kernel.scm index 5187bc1..49520b8 100644 --- a/starling/kernel.scm +++ b/starling/kernel.scm @@ -73,10 +73,14 @@ #:init-keyword #:fullscreen?)) (define-class <kernel> (<node>) - (name #:accessor name #:init-form "starling-kernel") - (window-config #:accessor window-config #:init-form (make <window-config>)) - (update-hz #:accessor update-hz #:init-form 60) - (developer-mode? #:getter developer-mode? #:init-form #t) + (name #:accessor name #:init-form "starling-kernel" + #:init-keyword #:name) + (window-config #:accessor window-config #:init-form (make <window-config>) + #:init-keyword #:window-config) + (update-hz #:accessor update-hz #:init-form 60 + #:init-keyword #:update-hz) + (developer-mode? #:getter developer-mode? #:init-form #t + #:init-keyword #:developer-mode?) (window #:accessor window) (gl-context #:accessor gl-context) (default-viewport #:accessor default-viewport) |