summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2023-03-26 09:54:16 -0400
committerDavid Thompson <dthompson2@worcester.edu>2023-03-26 09:54:16 -0400
commitd143ac25a36cc684dcab713a126aa1ed82014eb0 (patch)
treecb0dbeaea610c9233468e1c35f6dc5fd2cd62a19
parentb1ff8792d4f52eb73b3433a4c3d7fa3c1d4baf8f (diff)
Resize label on initialize.
-rw-r--r--catbird/node-2d.scm3
1 files changed, 2 insertions, 1 deletions
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))