From 49bd79ddb88c56359b48203bf95a71ef8e46b713 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 8 Sep 2013 11:17:16 -0500 Subject: [PATCH] make the example in the prefs dialog pick up the background color more accurately --- pkgs/gui-pkgs/gui-lib/framework/private/color-prefs.rkt | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/pkgs/gui-pkgs/gui-lib/framework/private/color-prefs.rkt b/pkgs/gui-pkgs/gui-lib/framework/private/color-prefs.rkt index d2b930e32c..b7025ad71e 100644 --- a/pkgs/gui-pkgs/gui-lib/framework/private/color-prefs.rkt +++ b/pkgs/gui-pkgs/gui-lib/framework/private/color-prefs.rkt @@ -992,10 +992,9 @@ [style '(auto-hscroll no-vscroll)] [editor t])) (send ec set-canvas-background - (send the-color-database find-color - (if (color-scheme-white-on-black-base? color-scheme) - "black" - "white"))) + (lookup-in-color-scheme/given-mapping + 'framework:basic-canvas-background + (hash) color-scheme)) (send t set-style-list (color-scheme->style-list color-scheme)) (send ec set-line-count (+ 1 (for/sum ([c (in-string str)]) (if (equal? c #\newline)