From 9977f51fe4e5abb3fdec54b67be131047bd54f9b Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 26 Sep 2022 15:47:47 -0400
Subject: node-2d: canvas: Make painter a watched slot.

---
 starling/node-2d.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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>))
-- 
cgit v1.2.3