felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-17 23:08:40 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Make underline the same color as text in TkRemind.

Browse Source
This commit is contained in:
Dianne Skoll
2021-12-27 11:53:02 -05:00
parent 2573003034
commit 82ae568add
1 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
scripts/tkremind
View File

@@ -3156,7 +3156,18 @@ proc EditableEnter { w } {
return return
} }
set tag [lindex $tags $index] 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 } { proc EditableLeave { w } {
set tags [$w tag names current] set tags [$w tag names current]