diff options
Diffstat (limited to 'lisparuga/node.scm')
-rw-r--r-- | lisparuga/node.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisparuga/node.scm b/lisparuga/node.scm index 2dbbd41..0939336 100644 --- a/lisparuga/node.scm +++ b/lisparuga/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." |