summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2022-12-21 13:43:30 -0500
committerDavid Thompson <dthompson2@worcester.edu>2022-12-21 13:43:30 -0500
commit64f30237ba75dd509724cb54e8ee802be3d5a03b (patch)
treec2d220d34281d9776f4e3f2b17f4b3bd032bef21
parent7405ad5af470008b76037c7632c155d7c30ecf46 (diff)
node-2d: Uncomment 9-patch on-change method.
-rw-r--r--catbird/node-2d.scm14
1 files changed, 7 insertions, 7 deletions
diff --git a/catbird/node-2d.scm b/catbird/node-2d.scm
index e339c08..3448688 100644
--- a/catbird/node-2d.scm
+++ b/catbird/node-2d.scm
@@ -877,13 +877,13 @@ A."
(set-rect-width! (render-rect 9-patch) (width 9-patch))
(set-rect-height! (render-rect 9-patch) (height 9-patch)))
-;; (define-method (on-change (9-patch <9-patch>) slot-name old new)
-;; (case slot-name
-;; ((width)
-;; (set-rect-width! (render-rect 9-patch) new))
-;; ((height)
-;; (set-rect-height! (render-rect 9-patch) new)))
-;; (next-method))
+(define-method (on-change (9-patch <9-patch>) slot-name old new)
+ (case slot-name
+ ((width)
+ (set-rect-width! (render-rect 9-patch) new))
+ ((height)
+ (set-rect-height! (render-rect 9-patch) new)))
+ (next-method))
(define-method (render (9-patch <9-patch>) alpha)
(draw-9-patch* (texture 9-patch)