diff options
| author | culler <culler> | 2019-08-14 19:49:19 (GMT) |
|---|---|---|
| committer | culler <culler> | 2019-08-14 19:49:19 (GMT) |
| commit | 3852998b93c968577e0d7d17f57aceb6a2e226af (patch) | |
| tree | 5dcf6dd0952ca7f3658163f409d3c1347f6ffde5 | |
| parent | 162b7b3ca96237392063619cd366db41eb0280da (diff) | |
| download | tk-3852998b93c968577e0d7d17f57aceb6a2e226af.zip tk-3852998b93c968577e0d7d17f57aceb6a2e226af.tar.gz tk-3852998b93c968577e0d7d17f57aceb6a2e226af.tar.bz2 | |
Fix some dark mode legibility issues with dialogs and message boxes on macOS.
Thanks to Christopher Chavez.
| -rw-r--r-- | library/bgerror.tcl | 3 | ||||
| -rw-r--r-- | library/dialog.tcl | 5 | ||||
| -rw-r--r-- | library/msgbox.tcl | 3 |
3 files changed, 2 insertions, 9 deletions
diff --git a/library/bgerror.tcl b/library/bgerror.tcl index 574ad8b..fa095f3 100644 --- a/library/bgerror.tcl +++ b/library/bgerror.tcl @@ -21,7 +21,8 @@ namespace eval ::tk::dialog::error { if {[tk windowingsystem] eq "aqua"} { option add *ErrorDialog*background systemAlertBackgroundActive \ widgetDefault - option add *ErrorDialog*info.text.background white widgetDefault + option add *ErrorDialog*info.text.background \ + systemTextBackgroundColor widgetDefault option add *ErrorDialog*Button.highlightBackground \ systemAlertBackgroundActive widgetDefault } diff --git a/library/dialog.tcl b/library/dialog.tcl index c751621..a099d90 100644 --- a/library/dialog.tcl +++ b/library/dialog.tcl @@ -44,11 +44,6 @@ proc ::tk_dialog {w title text bitmap default args} { } set windowingsystem [tk windowingsystem] - if {$windowingsystem eq "aqua"} { - option add *Dialog*background systemDialogBackgroundActive widgetDefault - option add *Dialog*Button.highlightBackground \ - systemDialogBackgroundActive widgetDefault - } # 1. Create the top-level window and divide it into top # and bottom parts. diff --git a/library/msgbox.tcl b/library/msgbox.tcl index 98603af..646c143 100644 --- a/library/msgbox.tcl +++ b/library/msgbox.tcl @@ -164,9 +164,6 @@ proc ::tk::MessageBox {args} { "warning" {set data(-icon) "caution"} "info" {set data(-icon) "note"} } - option add *Dialog*background systemDialogBackgroundActive widgetDefault - option add *Dialog*Button.highlightBackground \ - systemDialogBackgroundActive widgetDefault } if {![winfo exists $data(-parent)]} { |