WIP

Author: rfindler

gui-lib/framework/private/color-prefs.rkt

@@ -741,7 +741,7 @@
    "color-names: ~a\nstyle-names:\n~a\n" 
    (sort (set->list known-color-names) symbol<?)
    (sort (set->list known-style-names) symbol<?))
-  (define preferred-color-scheme (if (white-on-black-panel-scheme?)
+  (define preferred-color-scheme (if (white-on-black-color-scheme?)
                                      (preferences:get 'framework:color-scheme-wob)
                                      (preferences:get 'framework:color-scheme)))
   (for ([dir (in-list (find-relevant-directories '(framework:color-schemes)))])
@@ -879,7 +879,7 @@
        [inverted-base-name
         (define inverted-base (lookup-color-scheme inverted-base-name))
         (cond
-          [(equal? (white-on-black-panel-scheme?)
+          [(equal? (white-on-black-color-scheme?)
                    (color-scheme-white-on-black-base? inverted-base))
            inverted-base-name]
           [else #f])]
@@ -1301,7 +1301,7 @@
                (revert-to-color-scheme-defaults
                 (get-current-color-scheme
                  #:wob?
-                 (white-on-black-panel-scheme?))))]))
+                 (white-on-black-color-scheme?))))]))
      (define white-on-black-mode-choice
        (case (system-type)
          [(windows)