diff options
| author | David Thompson <dthompson2@worcester.edu> | 2022-09-26 15:24:04 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2022-09-26 15:24:04 -0400 |
| commit | a3ebe8cc0c99207968552f98dfdb75f7d9ce1bff (patch) | |
| tree | 82207f1eb6412ed61082afc9ce585f66eb406c5a | |
| parent | 6dd38c3a19b3d748990f702c41c446d40391712e (diff) | |
kernel: Allow window resizing.
| -rw-r--r-- | starling/kernel.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/starling/kernel.scm b/starling/kernel.scm index c46aabf..6f72b6d 100644 --- a/starling/kernel.scm +++ b/starling/kernel.scm @@ -120,7 +120,9 @@ (title #:accessor window-title #:init-form "Starling" #:init-keyword #:title) (fullscreen? #:accessor window-fullscreen? #:init-form #f - #:init-keyword #:fullscreen?)) + #:init-keyword #:fullscreen?) + (resizable? #:accessor window-resizable? #:init-form #f + #:init-keyword #:resizable?)) (define-class <kernel> (<scene-mux>) (window-config #:accessor window-config #:init-form (make <window-config>) @@ -347,7 +349,8 @@ (sdl2:make-window #:opengl? #t #:title (window-title wc) #:size (list (window-width wc) (window-height wc)) - #:fullscreen? (window-fullscreen? wc))) + #:fullscreen? (window-fullscreen? wc) + #:resizable? (window-resizable? wc))) (set! (gl-context kernel) (sdl2:make-gl-context (window kernel))) (set! (default-viewport kernel) (make-viewport 0 0 (window-width wc) (window-height wc))) |