diff options
| -rw-r--r-- | starling/node-2d.scm | 7 |
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) |