diff --git a/gui-lib/framework/private/main.rkt b/gui-lib/framework/private/main.rkt index c7dce705..67ca1440 100644 --- a/gui-lib/framework/private/main.rkt +++ b/gui-lib/framework/private/main.rkt @@ -553,21 +553,12 @@ (preferences:set-default 'framework:coloring-active #t boolean?) (color-prefs:add-color-scheme-entry 'framework:default-text-color "black" "white") -(color-prefs:register-color-scheme-entry-change-callback - 'framework:basic-canvas-background - (λ (v) - (editor:set-default-font-color - (color-prefs:lookup-in-color-scheme 'framework:default-text-color) - v))) (color-prefs:register-color-scheme-entry-change-callback 'framework:default-text-color (λ (v) - (editor:set-default-font-color - v - (color-prefs:lookup-in-color-scheme 'framework:basic-canvas-background)))) -(editor:set-default-font-color - (color-prefs:lookup-in-color-scheme 'framework:default-text-color) - (color-prefs:lookup-in-color-scheme 'framework:basic-canvas-background)) + (editor:set-default-font-color v))) +(editor:set-default-font-color + (color-prefs:lookup-in-color-scheme 'framework:default-text-color)) (color-prefs:add-color-scheme-entry 'framework:misspelled-text-color "black" "white")