From 0b957a40ae993bf337830bc30915a13c0be99af3 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 26 Jan 2014 14:20:34 -0500
Subject: Add window-resize-hook.

* 2d/window.scm (window-resize-hook): New hook.
---
 2d/window.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to '2d')

diff --git a/2d/window.scm b/2d/window.scm
index c62c7b6..238860b 100644
--- a/2d/window.scm
+++ b/2d/window.scm
@@ -40,7 +40,8 @@
             window-size
             open-window
             close-window
-            with-window))
+            with-window
+            window-resize-hook))
 
 (define-record-type <window>
   (%make-window title resolution fullscreen?)
@@ -58,10 +59,14 @@
 (define window-width (make-root-signal 0))
 (define window-height (make-root-signal 0))
 (define window-size (signal-map vector2 window-width window-height))
+(define window-resize-hook (make-hook 2))
 
 (register-event-handler
  'video-resize
  (lambda (e)
+   (run-hook window-resize-hook
+             (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))))
 
-- 
cgit v1.2.3