From e2b31c192d6e10984629c4e72abf3ed8cfbc9552 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 15 Dec 2013 20:49:59 -0500 Subject: Update window module to use new signals API. * 2d/window.scm (window-width, window-height): New signals. (window-position): Define in terms of signal-map. --- 2d/window.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to '2d') diff --git a/2d/window.scm b/2d/window.scm index f520c7a..1d82a97 100644 --- a/2d/window.scm +++ b/2d/window.scm @@ -35,6 +35,8 @@ window-title window-resolution window-fullscreen? + window-width + window-height window-size open-window close-window @@ -53,14 +55,15 @@ (fullscreen? #f)) (%make-window title resolution fullscreen?)) -(define window-size (make-signal (vector2 0 0))) +(define window-width (make-root-signal 0)) +(define window-height (make-root-signal 0)) +(define window-size (signal-map vector2 window-width window-height)) (register-event-handler 'video-resize (lambda (e) - (signal-set! window-size - (vector2 (SDL:event:resize:w e) - (SDL:event:resize:h e))))) + (signal-set! window-width (SDL:event:resize:w e)) + (signal-set! window-height (SDL:event:resize:h e)))) (define* (open-window window) "Open the game window using the settings in WINDOW." -- cgit v1.2.3