diff options
| author | David Thompson <dthompson2@worcester.edu> | 2022-09-26 15:47:47 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2022-09-26 15:47:47 -0400 |
| commit | 9977f51fe4e5abb3fdec54b67be131047bd54f9b (patch) | |
| tree | fd15dceff9b5521ea62f4000b06200e9bdd0e3aa | |
| parent | 450df6c018a560fdc71b9f6c6dd1ec842b4bf402 (diff) | |
node-2d: canvas: Make painter a watched slot.
| -rw-r--r-- | starling/node-2d.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/starling/node-2d.scm b/starling/node-2d.scm index 30e5549..54d4793 100644 --- a/starling/node-2d.scm +++ b/starling/node-2d.scm @@ -848,7 +848,8 @@ ;;; (define-class <canvas> (<node-2d>) - (painter #:accessor painter #:init-keyword #:painter #:watch? #t) + (painter #:accessor painter #:init-keyword #:painter #:init-value #f + #:watch? #t) (canvas #:accessor canvas #:init-thunk make-empty-canvas)) (define-method (refresh-painter (c <canvas>)) |