summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--starling/node-2d.scm2
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))