From e6a4865a7455122843c480ac9ee4e39393650496 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 5 Nov 2016 14:59:45 -0500 Subject: [PATCH] dont set the style background color to the canvas background; instead leave it as transparent related to racket/racket#1507 --- gui-lib/framework/private/main.rkt | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) 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")