From 0c27503a83b20546628ac46f3bacda38666a482e Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Fri, 9 Jan 2026 21:25:17 -0500
Subject: [PATCH] Make popup windows obey color scheme.

---
 scripts/tkremind.in | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/scripts/tkremind.in b/scripts/tkremind.in
index 386dbe07..2f3c3119 100644
--- a/scripts/tkremind.in
+++ b/scripts/tkremind.in
@@ -3474,47 +3474,47 @@ proc IssueBackgroundReminder { body time now tag qid info } {
 
     incr BgCounter
     set w .bg$BgCounter
-    toplevel $w
+    toplevel $w -background $Option(WinBackground)
     wm iconname $w "Reminder"
     wm title $w "Timed reminder ($time)"
-    label $w.l -text "Reminder for $time issued at $now"
-    message $w.msg -aspect 2000 -text $body -justify left -anchor w -font {-weight bold} -relief groove -bd 2
-    frame $w.b
+    label $w.l -text "Reminder for $time issued at $now" -foreground $Option(LabelColor) -background $Option(WinBackground)
+    message $w.msg -aspect 2000 -text $body -justify left -anchor w -font {-weight bold} -relief groove -bd 2 -foreground $Option(TextColor) -background $Option(WinBackground)
+    frame $w.b -background $Option(WinBackground)
 
     # Automatically shut down window after a minute if option says so
     set after_token [after 60000 [list ClosePopup $w "" $Option(MailAddr) $Option(AutoClose) "" $tag $body $time $qid]]
 
     wm protocol $w WM_DELETE_WINDOW [list ClosePopup $w $after_token "" 1 "" $tag $body $time $qid]
-    button $w.ok -text "OK" -command [list ClosePopup $w $after_token "" 1 "" $tag $body $time $qid]
+    button $w.ok -text "OK" -foreground $Option(LabelColor) -background $Option(WinBackground) -command [list ClosePopup $w $after_token "" 1 "" $tag $body $time $qid]
     set tktag [extract_tktag $tag]
     if {$tktag != "*"} {
-	button $w.kill -text "Delete this reminder completely" -command [list ClosePopup $w $after_token "" 1 "kill" $tag $body $time $qid]
+	button $w.kill -text "Delete this reminder completely" -foreground $Option(LabelColor) -background $Option(WinBackground) -command [list ClosePopup $w $after_token "" 1 "kill" $tag $body $time $qid]
     }
     if {$qid != "*"} {
-	button $w.nomore -text "Don't remind me again today" -command [list ClosePopup $w $after_token "" 1 "ignore" $tag $body $time $qid]
+	button $w.nomore -text "Don't remind me again today" -foreground $Option(LabelColor) -background $Option(WinBackground) -command [list ClosePopup $w $after_token "" 1 "ignore" $tag $body $time $qid]
     }
     pack $w.l -side top
     pack $w.msg -side top -expand 1 -fill both -anchor w
-    frame $w.f
+    frame $w.f -background $Option(WinBackground)
     pack $w.f -side top -expand 1 -fill both
     set row 0
     if {[dict exists $info location]} {
-        label $w.f.l1 -text "Location: "  -padx 1 -pady 1 -highlightthickness 0 -relief flat -bd 0 -font {-weight bold}
-        message $w.f.l2 -text [dict get $info location] -justify left -anchor w -aspect 2000 -padx 1 -pady 1 -highlightthickness 0 -relief flat -bd 0 -font {-weight normal}
+        label $w.f.l1 -text "Location: "  -foreground $Option(LabelColor) -background $Option(WinBackground) -padx 1 -pady 1 -highlightthickness 0 -relief flat -bd 0 -font {-weight bold}
+        message $w.f.l2 -text [dict get $info location] -foreground $Option(TextColor) -background $Option(WinBackground) -justify left -anchor w -aspect 2000 -padx 1 -pady 1 -highlightthickness 0 -relief flat -bd 0 -font {-weight normal}
         grid $w.f.l1 -row $row -column 0 -sticky nw
         grid $w.f.l2 -row $row -column 1 -sticky new
         incr row
     }
     if {[dict exists $info description]} {
-        label $w.f.m1 -text "Description: " -padx 1 -pady 1 -highlightthickness 0 -relief flat -bd 0 -font {-weight bold}
-        message $w.f.m2 -text [dict get $info description] -justify left -anchor w -aspect 2000 -padx 1 -pady 1 -highlightthickness 0 -relief flat -bd 0 -font {-weight normal}
+        label $w.f.m1 -text "Description: " -foreground $Option(LabelColor) -background $Option(WinBackground) -padx 1 -pady 1 -highlightthickness 0 -relief flat -bd 0 -font {-weight bold}
+        message $w.f.m2 -text [dict get $info description] -foreground $Option(TextColor) -background $Option(WinBackground) -justify left -anchor w -aspect 2000 -padx 1 -pady 1 -highlightthickness 0 -relief flat -bd 0 -font {-weight normal}
         grid $w.f.m1 -row $row -column 0 -sticky nw
         grid $w.f.m2 -row $row -column 1 -sticky new
         incr row
     }
     if {[dict exists $info url]} {
         set url [dict get $info url]
-        message $w.f.u -text $url  -justify left -anchor w -aspect 2000 -padx 1 -pady 1 -highlightthickness 0 -relief flat -bd 0 -font {-weight normal -underline 0} -fg #0000F0
+        message $w.f.u -text $url -foreground $Option(TextColor) -background $Option(WinBackground)  -justify left -anchor w -aspect 2000 -padx 1 -pady 1 -highlightthickness 0 -relief flat -bd 0 -font {-weight normal -underline 0}
         grid $w.f.u -row $row -column 0 -columnspan 2 -sticky new
         bind $w.f.u <Button-1> [list exec xdg-open "$url"]
         bind $w.f.u <Button-2> [list exec xdg-open "$url"]