From 82ae568add485c4030ee4a6b6202191cd371ffce Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Mon, 27 Dec 2021 11:53:02 -0500
Subject: [PATCH] Make underline the same color as text in TkRemind.

---
 scripts/tkremind | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/scripts/tkremind b/scripts/tkremind
index 32a16733..336e847f 100755
--- a/scripts/tkremind
+++ b/scripts/tkremind
@@ -3156,7 +3156,18 @@ proc EditableEnter { w } {
 	return
     }
     set tag [lindex $tags $index]
-    $w tag configure $tag -underline 1
+
+    set c ""
+    set index [lsearch -glob $tags "clr*"]
+    if {$index >= 0} {
+        set ctag [lindex $tags $index]
+        set c [$w tag cget $ctag -foreground]
+    }
+    if {"$c" != ""} {
+        $w tag configure $tag -underline 1 -underlinefg $c
+    } else {
+        $w tag configure $tag -underline 1
+    }
 }
 proc EditableLeave { w } {
     set tags [$w tag names current]