diff options
| -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) |