summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--chickadee.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/chickadee.scm b/chickadee.scm
index e7fb443..defa0a0 100644
--- a/chickadee.scm
+++ b/chickadee.scm
@@ -1,5 +1,6 @@
;;; Chickadee Game Toolkit
;;; Copyright © 2018 David Thompson <davet@gnu.org>
+;;; Copyright © 2020 Peter Elliott <pelliott@ualberta.ca>
;;;
;;; Chickadee is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published
@@ -306,7 +307,11 @@ border is disabled, otherwise it is enabled.")
(controller-move (lookup-controller
(controller-axis-event-which event))
(controller-axis-event-axis event)
- (/ (controller-axis-event-value event) 32768.0)))))
+ (/ (controller-axis-event-value event) 32768.0)))
+ ((window-resized-event? event)
+ (match (window-event-vector event)
+ ((width height)
+ (set! default-viewport (make-viewport 0 0 width height)))))))
;; Process all pending events.
(let loop ((event (poll-event)))
(when event