summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--2d/window.scm7
1 files changed, 6 insertions, 1 deletions
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))))