From f2e2c006ec60eede1c7fdea4f4eb86642cb72d3a Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 2 Jul 2014 21:35:06 -0400
Subject: Allow some label properties to be signals.

* sly/font.scm (%label-text, %label-position, %label-color): New
  procedures.
  (label-text, label-position, label-color): Use signal-ref-maybe.
---
 sly/font.scm | 10 +++++++---
 1 file 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)))
-- 
cgit v1.2.3