From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 15 Sep 2017 04:40:55 +0000 (-0700)
Subject: gtk/fix-demo: Set text color or it is sure to be white (invisible).
X-Git-Tag: mit-scheme-pucked-9.2.12~59
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5145cd8e355d17ef5fc585bb462bfc35e4c0e02c;p=mit-scheme.git

gtk/fix-demo: Set text color or it is sure to be white (invisible).
---

diff --git a/src/gtk/fix-demo.scm b/src/gtk/fix-demo.scm
index 68d96b242..c4aba86bd 100644
--- a/src/gtk/fix-demo.scm
+++ b/src/gtk/fix-demo.scm
@@ -129,6 +129,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
       (fix-drawing-add-ink! drawing line3)
 
       (set-text-ink-position! text 150 150)
+      (set-text-ink-color! text "black")
       (set-simple-text-ink-text! text widget "Hello, World!")
       (fix-drawing-add-ink! drawing text)