From 379fc4542d4e77a1e25ff94f102a28e1e9650d68 Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Wed, 20 Mar 2024 20:33:46 -0400
Subject: [PATCH] Make errors stand out more obviously.

---
 scripts/tkremind | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/scripts/tkremind b/scripts/tkremind
index c44accd9..0e705a18 100755
--- a/scripts/tkremind
+++ b/scripts/tkremind
@@ -4279,12 +4279,13 @@ proc update_color_buttons { w } {
 }
 
 proc set_button_to_queue {} {
+    global Option
     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 {} {
     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 {} {