diff options
| author | David Thompson <dthompson2@worcester.edu> | 2022-12-21 13:43:30 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2022-12-21 13:43:30 -0500 |
| commit | 64f30237ba75dd509724cb54e8ee802be3d5a03b (patch) | |
| tree | c2d220d34281d9776f4e3f2b17f4b3bd032bef21 | |
| parent | 7405ad5af470008b76037c7632c155d7c30ecf46 (diff) | |
node-2d: Uncomment 9-patch on-change method.
| -rw-r--r-- | catbird/node-2d.scm | 14 |
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) |