diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2020-12-16 08:24:08 -0500 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2020-12-16 08:24:08 -0500 |
| commit | a8fe1ee0159172c556af7ccf841fba8a3859b597 (patch) | |
| tree | dda88affa33d56989dad17479b884853b33f5076 | |
| parent | 8aff881da8cf0449868c8d3594f6a2cb6184f7dd (diff) | |
node-2d: Allow non-node-2d objects to live within a node-2d tree.
| -rw-r--r-- | starling/node-2d.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/starling/node-2d.scm b/starling/node-2d.scm index bb64d99..f6dc7c1 100644 --- a/starling/node-2d.scm +++ b/starling/node-2d.scm @@ -384,7 +384,8 @@ ;; If the parent is dirty, all the children need to be marked as ;; dirty, too. (for-each-child (lambda (child) - (set! (dirty-matrix? child) #t)) + (when (is-a? child <node-2d>) + (set! (dirty-matrix? child) #t))) node))) (next-method)) |