node-2d: Fix width/height slots to be properly observed.

1 files changed, 8 insertions, 2 deletions

diff --git a/catbird/node-2d.scm b/catbird/node-2d.scm
index b2c7d95..b845ad0 100644
--- a/catbird/node-2d.scm
+++ b/catbird/node-2d.scm
@@ -335,12 +335,18 @@
   ;; can be used as a bounding box that doesn't take any
   ;; transformation matrix into consideration.
   (size #:getter size #:init-thunk make-null-rect)
-  (width #:accessor width #:init-keyword #:width #:watch? #t #:allocation #:virtual
+  (width #:accessor width
+         #:init-keyword #:width
+         #:observe? #t
+         #:allocation #:virtual
          #:slot-ref (lambda (node) (rect-width (size node)))
          #:slot-set! (lambda (node w)
                        (set-rect-width! (size node) w)
                        (expire-local-bounding-box node)))
-  (height #:accessor height #:init-keyword #:height #:watch? #t #:allocation #:virtual
+  (height #:accessor height
+          #:init-keyword #:height
+          #:observe? #t
+          #:allocation #:virtual
           #:slot-ref (lambda (node) (rect-height (size node)))
           #:slot-set! (lambda (node h)
                         (set-rect-height! (size node) h)