diff options
| -rw-r--r-- | starling/node.scm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/starling/node.scm b/starling/node.scm index ee4fbb8..f8a0e79 100644 --- a/starling/node.scm +++ b/starling/node.scm @@ -146,18 +146,16 @@ represented as a ratio in the range [0, 1]." (define-method (activate (node <node>)) "Mark NODE and all of its children as active." ;; First time activating? We must boot! - (with-agenda (agenda node) - (unless (booted? node) (boot node)) - (set! (active? node) #t) - (on-enter node) - (for-each-child activate node))) + (unless (booted? node) (boot node)) + (set! (active? node) #t) + (on-enter node) + (for-each-child activate node)) (define-method (deactivate (node <node>)) "Mark NODE and all of its children as inactive." - (with-agenda (agenda node) - (set! (active? node) #f) - (on-exit node) - (for-each-child deactivate node))) + (set! (active? node) #f) + (on-exit node) + (for-each-child deactivate node)) (define-method (show (node <node>)) "Mark NODE as visible." |