From cb66f98d0feef93b93a7da273a56ef46de539e5f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 11 Jan 2016 08:50:20 -0500 Subject: window: Respect fullscreen setting. Rather than, you know, ignoring it completely. * sly/window.scm (open-window): Set the window to fullscreen mode, if requested. --- sly/window.scm | 1 + 1 file changed, 1 insertion(+) diff --git a/sly/window.scm b/sly/window.scm index de52daa..fb7c69b 100644 --- a/sly/window.scm +++ b/sly/window.scm @@ -99,6 +99,7 @@ (let ((res (window-resolution window))) (sdl2:set-window-title! %sdl-window (window-title window)) (sdl2:set-window-size! %sdl-window (list (vx res) (vy res))) + (sdl2:set-window-fullscreen! %sdl-window (window-fullscreen? window)) (sdl2:show-window! %sdl-window) (signal-set! window-size res))) -- cgit v1.2.3