summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--catbird/node-2d.scm6
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)))