From a96927b2b41753cb8c8b9674f882f3a4e4b944b3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 28 May 2008 03:31:25 +0000 Subject: [PATCH] PR 9423 svn: r9995 original commit: 8e217ad6c668501710969df5600619df1fbe9f27 --- collects/framework/private/color-prefs.ss | 8 ++++++-- collects/framework/private/main.ss | 5 ----- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/collects/framework/private/color-prefs.ss b/collects/framework/private/color-prefs.ss index 668a8e64..9778b4bb 100644 --- a/collects/framework/private/color-prefs.ss +++ b/collects/framework/private/color-prefs.ss @@ -324,11 +324,15 @@ (new button% [label (string-constant white-on-black-color-scheme)] [parent hp] - [callback (λ (x y) (preferences:set 'framework:white-on-black? #t))]) + [callback (λ (x y) + (preferences:set 'framework:white-on-black? #t) + (white-on-black))]) (new button% [label (string-constant black-on-white-color-scheme)] [parent hp] - [callback (λ (x y) (preferences:set 'framework:white-on-black? #f))])))))) + [callback (λ (x y) + (preferences:set 'framework:white-on-black? #f) + (black-on-white))])))))) (define (build-text-foreground-selection-panel parent pref-sym style-name example-text) diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss index 2dfbe3e8..b4f061ff 100644 --- a/collects/framework/private/main.ss +++ b/collects/framework/private/main.ss @@ -51,11 +51,6 @@ (λ (x) (and (list? x) (andmap string? x)))) (preferences:set-default 'framework:white-on-black? #f boolean?) - (preferences:add-callback 'framework:white-on-black? - (λ (p v) - (if v - (color-prefs:white-on-black) - (color-prefs:black-on-white)))) (preferences:set-default 'framework:case-sensitive-search? #f