diff options
Diffstat (limited to 'catbird/node.scm')
-rw-r--r-- | catbird/node.scm | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/catbird/node.scm b/catbird/node.scm index 2553ba3..bc158a5 100644 --- a/catbird/node.scm +++ b/catbird/node.scm @@ -33,9 +33,7 @@ tree-in-view? children for-each-child - on-boot pick - reboot child-ref & attach-to replace @@ -77,26 +75,17 @@ (define-method (initialize (node <node>) initargs) (next-method) - (apply attach-to node (get-keyword #:children initargs '())) - (on-boot node)) + (apply attach-to node (get-keyword #:children initargs '()))) (define-method (sort-children (node <node>)) (set! (children node) (sort-by-rank/ascending (children node)))) -(define-method (on-boot (node <node>)) - #t) - (define-method (on-change (node <node>) slot-name old new) (case slot-name ((rank) ;; Re-sort parent when rank of child node changes. (and=> (parent node) sort-children)))) -(define-method (reboot (node <node>)) - (for-each-child detach node) - (with-agenda (agenda node) (reset-agenda)) - (on-boot node)) - (define-method (write (node <node>) port) (define (strip-angle-brackets str) (let ((start (if (string-prefix? "<" str) 1 0)) |