diff options
| -rw-r--r-- | 2d/window.scm | 9 | ||||
| -rw-r--r-- | examples/common.scm | 1 |
2 files changed, 2 insertions, 8 deletions
diff --git a/2d/window.scm b/2d/window.scm index a747acf..9b01e13 100644 --- a/2d/window.scm +++ b/2d/window.scm @@ -89,7 +89,7 @@ (lambda (e) (run-hook window-close-hook))) -(define* (open-window window) +(define* (open-window #:optional (window (make-window #:title ""))) "Open the game window using the settings in WINDOW." (let ((flags (if (window-fullscreen? window) '(opengl fullscreen) 'opengl)) (width (vx (window-resolution window))) @@ -116,10 +116,3 @@ (lambda () (open-window window)) (lambda () body ...) (lambda () (close-window)))) - -;; Open a window immediately to create an OpenGL context. This allows -;; for textures to be loaded before the program explicitly sets the -;; window settings. -;; -;; TODO: Hide the window initially. This will require SDL 2.0. -(open-window (make-window #:title "")) diff --git a/examples/common.scm b/examples/common.scm index 8b1263d..b9675eb 100644 --- a/examples/common.scm +++ b/examples/common.scm @@ -23,6 +23,7 @@ (2d signal) (2d window)) +(open-window) (add-hook! key-press-hook (lambda (key unicode) (when (eq? key 'escape) (quit-game)))) |