From f08e14fd51e2b1f5920ac6816774c5e72cbee5c0 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 14 Apr 2020 17:02:17 -0400 Subject: Day 4 progress. --- lisparuga/node.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisparuga/node.scm') 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 )) "Mark NODE and all of its children as inactive." -- cgit v1.2.3