From 3183130650a43363e1d1de1b7c585bb303194d96 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 16 Apr 2021 08:44:26 -0400
Subject: node-2d: Fix bug in 9-patch auto-resizing.

---
 starling/node-2d.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index d24a2a3..3bd10ab 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -714,9 +714,9 @@
 (define-method (on-change (9-patch <9-patch>) slot-name old new)
   (case slot-name
     ((width)
-     (set-rect-width! (render-rect 9-patch) width))
+     (set-rect-width! (render-rect 9-patch) new))
     ((height)
-     (set-rect-height! (render-rect 9-patch) height)))
+     (set-rect-height! (render-rect 9-patch) new)))
   (next-method))
 
 (define-method (render (9-patch <9-patch>) alpha)
-- 
cgit v1.2.3