From 32d61e683b39463c9c71611149d3e13deacdbe57 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 26 Sep 2022 15:26:40 -0400
Subject: node-2d: Remove an is-a? test for on-child-resize hook.

---
 starling/node-2d.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index 3f289f6..0c16977 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -422,7 +422,7 @@
 
 (define-method (default-height (node <node-2d>)) 0.0)
 
-(define-method (on-child-resize (node <node-2d>) child)
+(define-method (on-child-resize node child)
   #t)
 
 (define-method (refresh-bounding-box (node <node-2d>))
@@ -473,9 +473,8 @@
      (set! (dirty-bounding-box? node) #t)
      (dirty! node))
     ((width height)
-     (let ((np (parent node)))
-       (when (is-a? np <node-2d>)
-         (on-child-resize (parent node) node)))
+     (when (parent node)
+       (on-child-resize (parent node) node))
      (set! (dirty-bounding-box? node) #t))))
 
 (define-method (resize (node <node-2d>) w h)
-- 
cgit v1.2.3