From b1ff8792d4f52eb73b3433a4c3d7fa3c1d4baf8f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 26 Mar 2023 09:53:32 -0400
Subject: Add auto-resizing version of resize method.

---
 catbird/node-2d.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/catbird/node-2d.scm b/catbird/node-2d.scm
index 218de10..34c9649 100644
--- a/catbird/node-2d.scm
+++ b/catbird/node-2d.scm
@@ -461,6 +461,9 @@
     (expire-local-bounding-box node)
     (on-child-resize (parent node) node)))
 
+(define-method (resize (node <node-2d>))
+  (resize node (default-width node) (default-height node)))
+
 
 ;;;
 ;;; Animation
-- 
cgit v1.2.3