node-2d: Add color slot to <label>.

1 files changed, 4 insertions, 2 deletions

diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index 9fdc578..f340600 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -797,7 +797,8 @@
   (text #:accessor text #:init-form "" #:init-keyword #:text #:watch? #t)
   (align #:accessor align #:init-value 'left #:init-keyword #:align #:watch? #t)
   (vertical-align #:accessor vertical-align #:init-value 'bottom
-                  #:init-keyword #:vertical-align #:watch? #t))
+                  #:init-keyword #:vertical-align #:watch? #t)
+  (color #:accessor color #:init-keyword #:color #:init-value white))
 
 (define-method (realign (label <label>))
   (set! (origin-x label)
@@ -839,7 +840,8 @@
      (next-method))))
 
 (define-method (render (label <label>) alpha)
-  (draw-text* (font label) (text label) (world-matrix label)))
+  (draw-text* (font label) (text label) (world-matrix label)
+              #:color (color label)))
 
 
 ;;;