From a6f846ea8dfefde0724efb123c1646be0d82ec23 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 30 Aug 2013 07:27:50 -0500 Subject: [PATCH] fix default text adjustment it no longer changes the background to the inverse of the foreground (for the default text color) but instead uses the color of the 'framework:basic-canvas-background preference Thanks to Laurent Orseau for the fix original commit: f9df5ad4e92ec8bba8012ab3d49c75523af83592 --- .../gui-lib/framework/private/main.rkt | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/main.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/main.rkt index d939135d..4d5c7a2f 100644 --- a/pkgs/gui-pkgs/gui-lib/framework/private/main.rkt +++ b/pkgs/gui-pkgs/gui-lib/framework/private/main.rkt @@ -494,8 +494,6 @@ (preferences:set-default 'framework:file-dialogs 'std (λ (x) (and (memq x '(common std)) #t))) -;; scheme prefs - (for-each (λ (line white-on-black-line) (let ([sym (car line)] [color (cadr line)] @@ -510,16 +508,18 @@ (preferences:set-default 'framework:coloring-active #t boolean?) (color-prefs:set-default/color-scheme 'framework:default-text-color "black" "white") -(define (invert-a-color color) - (make-object color% - (- 255 (send color red)) - (- 255 (send color green)) - (- 255 (send color blue)))) +(preferences:add-callback 'framework:basic-canvas-background + (λ (p v) + (editor:set-default-font-color + (preferences:get 'framework:default-text-color) + v))) (preferences:add-callback 'framework:default-text-color (λ (p v) - (editor:set-default-font-color v (invert-a-color v)))) + (editor:set-default-font-color + v + (preferences:get 'framework:basic-canvas-background)))) (editor:set-default-font-color (preferences:get 'framework:default-text-color) - (invert-a-color (preferences:get 'framework:default-text-color))) + (preferences:get 'framework:basic-canvas-background)) (color-prefs:set-default/color-scheme 'framework:misspelled-text-color "black" "white")