From b75edd152f20a5a8ff88149e7cd2b182040b27f6 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 31 Jul 2022 12:42:52 -0400
Subject: node-2d: Add resize method.

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

diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index 8c48966..b46b454 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -84,6 +84,7 @@
             bounding-box
             on-child-resize
             dirty!
+            resize
             move-by
             move-to
             teleport
@@ -476,6 +477,10 @@
          (on-child-resize (parent node) node)))
      (set! (dirty-bounding-box? node) #t))))
 
+(define-method (resize (node <node-2d>) w h)
+  (set! (width node) w)
+  (set! (height node) h))
+
 ;; Animation helpers
 
 (define-method (move-to (node <node-2d>) x y)
-- 
cgit v1.2.3