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