From 0ffa5b63dfd8f652f9a0bd31be4973fc0e0ff988 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 22 Apr 2021 10:08:44 -0400
Subject: node-2d: Add color slot to <label>.

---
 starling/node-2d.scm | 6 ++++--
 1 file 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)))
 
 
 ;;;
-- 
cgit v1.2.3