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 +-------- 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)))) -- cgit v1.2.3