diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2019-05-23 08:53:19 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2019-05-23 08:53:19 -0400 |
| commit | 47e6e9647abb015dcfa6ea0305ebce5e42ddf5bb (patch) | |
| tree | 329d94d754ef5d77b88478777e5f361b3035dedf | |
| parent | 298a88efcaf10da812bed4d8fa7c54e27daae1eb (diff) | |
node: Make node class hierarchy redefinable.
| -rw-r--r-- | starling/node.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/starling/node.scm b/starling/node.scm index 1b162f6..a80540b 100644 --- a/starling/node.scm +++ b/starling/node.scm @@ -70,7 +70,9 @@ (active? #:accessor active? #:init-form #f) ;; Determines whether or not the node and all of its children are ;; rendered. - (visible? #:accessor visible? #:init-form #t #:init-keyword #:visible?)) + (visible? #:accessor visible? #:init-form #t #:init-keyword #:visible?) + ;; So that live coding works nicely... + #:metaclass <redefinable-class>) (define (for-each-child proc node) (for-each proc (children node))) |