From 81e023697d392efac741280fcb6b13c0e74bb309 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Tue, 8 Nov 2022 20:56:42 -0500
Subject: node-2d: label: Realign when text changes.

---
 catbird/node-2d.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/catbird/node-2d.scm b/catbird/node-2d.scm
index a7fcda8..dc561ba 100644
--- a/catbird/node-2d.scm
+++ b/catbird/node-2d.scm
@@ -898,7 +898,8 @@ A."
     (page-write! p c)
     (let ((bb (page-bounding-box p)))
       (set! (width label) (rect-width bb))
-      (set! (height label) (rect-height bb)))))
+      (set! (height label) (rect-height bb)))
+    (realign label)))
 
 (define-method (on-boot (label <label>))
   (refresh-label label)
-- 
cgit v1.2.3