From 2474f4293a27d2c9597c012d5e884035b9ae459e Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 22 Mar 2023 08:27:14 -0400
Subject: Refresh label on enter, not boot.

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

diff --git a/catbird/node-2d.scm b/catbird/node-2d.scm
index a2e11f0..3c2bbcd 100644
--- a/catbird/node-2d.scm
+++ b/catbird/node-2d.scm
@@ -1035,6 +1035,10 @@ 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>))
+  (refresh-label label)
+  (realign label))
+
 (define-method (realign (label <label>))
   (set! (origin-x label)
         (case (align label)
@@ -1058,10 +1062,6 @@ PADDING on all sides."
       (resize label (rect-width bb) (rect-height bb)))
     (realign label)))
 
-(define-method (on-boot (label <label>))
-  (refresh-label label)
-  (realign label))
-
 (define-method (on-asset-reload (label <label>) slot-name asset)
   (case slot-name
     ((font)
-- 
cgit v1.2.3