summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--starling/kernel.scm7
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)))