install default-text-color pref value on startup

svn: r1577
2005-12-10 13:40:07 +00:00 · 2005-12-10 13:40:07 +00:00 · 08298352d3
commit 08298352d3
parent a1cd15bda5
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