summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--starling/node-2d.scm7
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)