diff options
| author | David Thompson <dthompson2@worcester.edu> | 2016-01-11 08:50:20 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2016-01-12 08:38:51 -0500 |
| commit | cb66f98d0feef93b93a7da273a56ef46de539e5f (patch) | |
| tree | 1062697a1c17e03d610193fc710861a1fd75f320 | |
| parent | 6db364cb0c9f1bd421b8f35671cc0646b9f6f848 (diff) | |
window: Respect fullscreen setting.
Rather than, you know, ignoring it completely.
* sly/window.scm (open-window): Set the window to fullscreen mode, if
requested.
| -rw-r--r-- | sly/window.scm | 1 |
1 files changed, 1 insertions, 0 deletions
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))) |