From 0c429bc4d247cd91245e06573b392ef08ffe600f Mon Sep 17 00:00:00 2001 From: Joel Dueck Date: Sat, 19 Sep 2026 22:37:45 -0500 Subject: [PATCH] font dialog: keep sample text white in dark mode Co-Authored-By: Claude Fable 5.1 --- gui-lib/mred/private/fontdialog.rkt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/gui-lib/mred/private/fontdialog.rkt b/gui-lib/mred/private/fontdialog.rkt index 636a6d5ea..b09512f48 100644 --- a/gui-lib/mred/private/fontdialog.rkt +++ b/gui-lib/mred/private/fontdialog.rkt @@ -5,6 +5,7 @@ (prefix wx: "kernel.rkt") "lock.rkt" "wx.rkt" + "panel-wob.rkt" "cycle.rkt" "check.rkt" "helper.rkt" @@ -36,8 +37,11 @@ [refresh-sample (lambda (b e) (let ([f (get-font)]) (send ok-button enable f) (when f - (let ([s (send (send edit get-style-list) find-named-style "Standard")]) - (send s set-delta (font->delta f))))))] + (let ([s (send (send edit get-style-list) find-named-style "Standard")] + [d (font->delta f)]) + (when (white-on-black-panel-scheme?) + (send d set-delta-foreground "white")) + (send s set-delta d)))))] [p (make-object horizontal-pane% f)] [face (make-object list-box% #f (wx:get-face-list) p refresh-sample)] [p2 (make-object vertical-pane% p)]