From a3ebe8cc0c99207968552f98dfdb75f7d9ce1bff Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 26 Sep 2022 15:24:04 -0400 Subject: kernel: Allow window resizing. --- starling/kernel.scm | 7 +++++-- 1 file 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 () (window-config #:accessor window-config #:init-form (make ) @@ -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))) -- cgit v1.2.3