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