diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2020-09-26 16:52:29 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2020-09-26 16:52:29 -0400 |
| commit | c365d816698ed769683abfd814ec41e3ae3abc79 (patch) | |
| tree | e323a3424eee05477df2ce4f6511e13d7d0eedf5 /starling/node.scm | |
| parent | 6bc296631b7cc6988112489030ad7a8c18648e88 (diff) | |
Migrate over changes from unfinished spring lisp game jam entry.
Diffstat (limited to 'starling/node.scm')
| -rw-r--r-- | starling/node.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/starling/node.scm b/starling/node.scm index a0141c1..947d1cb 100644 --- a/starling/node.scm +++ b/starling/node.scm @@ -168,8 +168,9 @@ represented as a ratio in the range [0, 1]." ;; First time activating? We must boot! (unless (booted? node) (boot node)) (set! (active? node) #t) - (on-enter node) - (for-each-child activate node)) + (for-each-child activate node) + ;; Activate all children, recursively, before calling on-enter hook. + (on-enter node)) (define-method (deactivate (node <node>)) "Mark NODE and all of its children as inactive." |