WIP

Author: rfindler

gui-lib/framework/main.rkt

@@ -2186,14 +2186,15 @@ the color selection buttons all have the same size.
   ()
   @{
 
-Returns @racket[#true] if the current @tech{color scheme} is in dark mode (i.e. has a light foreground with
-a dark background) and @racket[#false] if it is in light mode (i.e. a dark foreground with
+Returns @racket[#true] if the current @tech{color scheme} is in dark mode
+(i.e. has a light foreground with a dark background) and
+@racket[#false] if it is in light mode (i.e. a dark foreground with
 a light background).
 
 This function uses the @racket['framework:white-on-black-mode?] preference;
 returning its value if it is a boolean and using @racket[white-on-black-panel-scheme?] if
 it is set to @racket['platform]. This function is intended
-to be used in place of@racket[white-on-black-panel-scheme?]
+to be used in place of @racket[white-on-black-panel-scheme?]
 for code that supports @tech{color scheme}s.
 
 @history[#:added "1.79"]
@@ -2341,10 +2342,15 @@ for code that supports @tech{color scheme}s.
   color-prefs:set-current-color-scheme
   (-> symbol? void?)
   (name)
-  @{Sets
-    the current @tech{color scheme} to the scheme named @racket[name],
-    if @racket[name] is one of the color schemes.
-    Otherwise, sets the color scheme to the default color scheme.})
+  @{
+Updates the colors in DrRacket's GUI to the colors in
+the @tech{color scheme} named @racket[name],
+if @racket[name] names one of the color schemes and
+the named color scheme matches the dark/light mode that the GUI is in.
+Otherwise, sets the color scheme to either the
+light or dark mode default color scheme, depending
+on the user's preference for the current mode.
+})
 
  (proc-doc
   color-prefs:get-current-color-scheme-name

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

@@ -1047,7 +1047,9 @@
                        'framework:color-scheme-wob
                        'framework:color-scheme)
                    (color-scheme-name color-scheme))
-  (change-colors-to-match-color-scheme color-scheme))
+  (when (equal? (color-scheme-white-on-black-base? color-scheme)
+                (white-on-black-color-scheme?))
+    (change-colors-to-match-color-scheme color-scheme)))
 
 (define (change-colors-to-match-color-scheme color-scheme)
   (if (color-scheme-white-on-black-base? color-scheme)