diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-03-22 08:27:14 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-03-22 08:27:25 -0400 |
| commit | 2474f4293a27d2c9597c012d5e884035b9ae459e (patch) | |
| tree | cf426a35345db18757f0ccf88bc1460387a8ffc8 | |
| parent | 8e33682838640d0a3f4353f85f16b1045e27d859 (diff) | |
Refresh label on enter, not boot.
| -rw-r--r-- | catbird/node-2d.scm | 8 |
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) |