diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2022-11-08 20:56:42 -0500 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2022-11-08 20:56:42 -0500 |
| commit | 81e023697d392efac741280fcb6b13c0e74bb309 (patch) | |
| tree | 8a20f19117e13fc4ce7dc612d6b1a070f1d73fcc | |
| parent | 2c9616e0467a1f6418d5836118c82bf9ba368f05 (diff) | |
node-2d: label: Realign when text changes.
| -rw-r--r-- | catbird/node-2d.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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) |