From 08298352d33b834ea855d0c37df20dd7ce27f50f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 10 Dec 2005 13:40:07 +0000
Subject: [PATCH] install default-text-color pref value on startup

svn: r1577
---
 collects/framework/private/main.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index 2af80d9cca..c3ae4ff94e 100644
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@@ -258,6 +258,7 @@
       (preferences:add-callback 'framework:default-text-color
                                 (λ (p v)
                                   (editor:set-default-font-color v)))
+      (editor:set-default-font-color (preferences:get 'framework:default-text-color))
       
       ;; groups