summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sly/font.scm10
1 files changed, 7 insertions, 3 deletions
diff --git a/sly/font.scm b/sly/font.scm
index e61adbc..db9c9fd 100644
--- a/sly/font.scm
+++ b/sly/font.scm
@@ -115,13 +115,17 @@ argument with a default value of 12."
(%make-label font text position anchor color texture vertices)
label?
(font label-font)
- (text label-text)
- (position label-position)
+ (text %label-text)
+ (position %label-position)
(anchor label-anchor)
- (color label-color)
+ (color %label-color)
(texture label-texture)
(vertices label-vertices))
+(define label-text (compose signal-ref-maybe %label-text))
+(define label-position (compose signal-ref-maybe %label-position))
+(define label-color (compose signal-ref-maybe %label-color))
+
(define (make-label-vertices texture)
"Return a packed array of vertices for TEXTURE."
(let ((vertices (make-packed-array texture-vertex 4)))