From d143ac25a36cc684dcab713a126aa1ed82014eb0 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 26 Mar 2023 09:54:16 -0400
Subject: Resize label on initialize.

---
 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 34c9649..4fb454c 100644
--- a/catbird/node-2d.scm
+++ b/catbird/node-2d.scm
@@ -1038,7 +1038,8 @@ PADDING on all sides."
                   #:init-keyword #:vertical-align #:observe? #t)
   (color #:accessor color #:init-keyword #:color #:init-value white #:observe? #t))
 
-(define-method (on-enter (label <label>))
+(define-method (initialize (label <label>) initargs)
+  (next-method)
   (refresh-label label)
   (realign label))
 
-- 
cgit v1.2.3