summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2023-03-22 08:27:14 -0400
committerDavid Thompson <dthompson2@worcester.edu>2023-03-22 08:27:25 -0400
commit2474f4293a27d2c9597c012d5e884035b9ae459e (patch)
treecf426a35345db18757f0ccf88bc1460387a8ffc8
parent8e33682838640d0a3f4353f85f16b1045e27d859 (diff)
Refresh label on enter, not boot.
-rw-r--r--catbird/node-2d.scm8
1 files 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)