Refresh canvas on enter, not boot.

1 files changed, 3 insertions, 3 deletions

diff --git a/catbird/node-2d.scm b/catbird/node-2d.scm
index 9199536..a2e11f0 100644
--- a/catbird/node-2d.scm
+++ b/catbird/node-2d.scm
@@ -972,6 +972,9 @@ PADDING on all sides."
            #:observe? #t)
   (canvas #:accessor canvas #:init-thunk path:make-empty-canvas))
 
+(define-method (on-enter (c <canvas>))
+  (refresh-painter c))
+
 ;; Width and height of canvas nodes default to the size of their
 ;; initial painter, or 0 if there isn't one.
 (define-method (default-width (c <canvas>))
@@ -1002,9 +1005,6 @@ PADDING on all sides."
                      (path:scale (vec2 (/ w pw) (/ h ph)) p))))
         (path:set-canvas-painter! (canvas c) p*)))))
 
-(define-method (on-boot (c <canvas>))
-  (refresh-painter c))
-
 (define-method ((setter canvas) (c <canvas>))
   (next-method)
   (path:set-canvas-painter! (canvas c) (painter c)))