Make errors stand out more obviously.

This commit is contained in:
Dianne Skoll
2024-03-20 20:33:46 -04:00
parent 538ef6c8ce
commit 379fc4542d

View File

@@ -4279,12 +4279,13 @@ proc update_color_buttons { w } {
} }
proc set_button_to_queue {} { proc set_button_to_queue {} {
global Option
balloon_set_help .b.queue "See the queue of pending reminders (debugging purposes only)" balloon_set_help .b.queue "See the queue of pending reminders (debugging purposes only)"
.b.queue configure -text {Queue...} -command {DoQueue} .b.queue configure -text {Queue...} -command {DoQueue} -foreground $Option(LabelColor) -background $Option(WinBackground)
} }
proc set_button_to_errors {} { proc set_button_to_errors {} {
balloon_set_help .b.queue "See the list of errors from the most recent operation" balloon_set_help .b.queue "See the list of errors from the most recent operation"
.b.queue configure -text {Errors...} -command {ShowErrors} .b.queue configure -text {Errors...} -command {ShowErrors} -bg #FF5555 -fg black
} }
proc ShowErrors {} { proc ShowErrors {} {