From 64f30237ba75dd509724cb54e8ee802be3d5a03b Mon Sep 17 00:00:00 2001 From: David Thompson Date: Wed, 21 Dec 2022 13:43:30 -0500 Subject: node-2d: Uncomment 9-patch on-change method. --- catbird/node-2d.scm | 14 +++++++------- 1 file 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) -- cgit v1.2.3