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