diff options
| -rw-r--r-- | starling/node-2d.scm | 6 |
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))) ;;; |