install default-text-color pref value on startup

svn: r1577 original commit: 08298352d33b834ea855d0c37df20dd7ce27f50f
2005-12-10 13:40:07 +00:00 · 2005-12-10 13:40:07 +00:00 · 5b9dacd45e
commit 5b9dacd45e
parent eb7f38102f
1 changed files with 1 additions and 0 deletions
--- 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