diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-03-26 09:54:16 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-03-26 09:54:16 -0400 |
| commit | d143ac25a36cc684dcab713a126aa1ed82014eb0 (patch) | |
| tree | cb0dbeaea610c9233468e1c35f6dc5fd2cd62a19 | |
| parent | b1ff8792d4f52eb73b3433a4c3d7fa3c1d4baf8f (diff) | |
Resize label on initialize.
| -rw-r--r-- | catbird/node-2d.scm | 3 |
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)) |