From 89563f5a727386da2175394813ee09601e7220e8 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 24 Aug 2020 15:01:07 -0400 Subject: Resize default viewport when window is resized. Thanks to Peter Elliott for the original version of this patch. --- chickadee.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'chickadee.scm') 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 +;;; Copyright © 2020 Peter Elliott ;;; ;;; 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 -- cgit v1.2.3