WIP

Author: rfindler

drracket-core-lib/drracket/private/main.rkt

@@ -771,7 +771,9 @@
    'framework:basic-canvas-background
    (λ (bkg-color) (set-the-color (color-prefs:white-on-black-color-scheme?)
                                  bkg-color))))
-
+;; these should probably be using the usual framework machinery to
+;; adjust to various colorschemes, in particular using the style list
+;; and related things the way that the colors in the colorer do.
 (add-and-monitor-render-syntax-style render-syntax-subtitle-color-style-name
                                      "navy"
                                      "CornflowerBlue")

drracket-tool-lib/drracket/private/standalone-module-browser.rkt

@@ -536,7 +536,7 @@
       (define-values (cw ch) (get-client-size))
       (define-values (tw th _1 _2) (send dc get-text-extent label))
       (when in?
-        (define color (if (white-on-black-panel-scheme?) 0.5 0.2))
+        (define color (if (white-on-black-color-scheme?) 0.5 0.2))
         (send dc set-pen "black" 1 'transparent)
         (send dc set-brush (get-label-foreground-color) 'solid)
         (define alpha (send dc get-alpha))