node-2d: Remove an is-a? test for on-child-resize hook.

1 files 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)