From a8fe1ee0159172c556af7ccf841fba8a3859b597 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 16 Dec 2020 08:24:08 -0500 Subject: node-2d: Allow non-node-2d objects to live within a node-2d tree. --- starling/node-2d.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 ) + (set! (dirty-matrix? child) #t))) node))) (next-method)) -- cgit v1.2.3