diff options
| -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))) |