diff options
| author | David Thompson <dthompson2@worcester.edu> | 2021-04-16 08:44:38 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2021-04-16 08:44:38 -0400 |
| commit | b229ca95ce29eb9b70dc10ac79536788f0d90f9d (patch) | |
| tree | 6b4d2ab299988c15d72a8fdca3672ae07297b24b | |
| parent | 3183130650a43363e1d1de1b7c585bb303194d96 (diff) | |
node-2d: Fix vertical alignment of labels.
| -rw-r--r-- | starling/node-2d.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/starling/node-2d.scm b/starling/node-2d.scm index 3bd10ab..9fdc578 100644 --- a/starling/node-2d.scm +++ b/starling/node-2d.scm @@ -809,7 +809,7 @@ (match (vertical-align label) ('bottom 0.0) ('top (height label)) - ('center (/ (height label) 2.0))))) + ('center (+ (/ (height label) 2.0) (font-descent (font label))))))) (define-method (refresh-label-size (label <label>)) (let ((f (font label)) |