diff options
| author | David Thompson <dthompson2@worcester.edu> | 2022-09-26 15:26:40 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2022-09-26 15:26:40 -0400 |
| commit | 32d61e683b39463c9c71611149d3e13deacdbe57 (patch) | |
| tree | 09e9a4d3c1ca92265f2b9b99b65968027f659b03 | |
| parent | 2b37af61d3a29086f40965c86a255b88bf92e90f (diff) | |
node-2d: Remove an is-a? test for on-child-resize hook.
| -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) |