From 2fd537d6ecaa428068ad0576cafcd1254e5e654f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 29 Mar 2014 16:13:53 -0400 Subject: Don't open window upon importing the (2d window) module. * 2d/window.scm (open-window): Remove default argument. * examples/common.scm: Open a window. --- 2d/window.scm | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) (limited to '2d') 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 "")) -- cgit v1.2.3