felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-16 06:18:47 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Change cursor inside links

Browse Source
This commit is contained in:
Dianne Skoll
2025-10-22 23:36:58 -04:00
parent 32421815cd
commit 8ddb956f9a
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
scripts/tkremind.in
View File

@@ -5029,11 +5029,13 @@ proc ManAddLine { t text tags } {
proc URLEnter { t } {
catch {
$t configure -cursor arrow
set r [$t tag prevrange url current]
$t tag add underline [lindex $r 0] [lindex $r 1]
}
}
proc URLLeave { t } {
$t configure -cursor xterm
$t tag remove underline 1.0 end
}
@@ -5051,9 +5053,11 @@ proc ManURL { t } {
}
proc ManEnter { t } {
$t configure -cursor arrow
$t tag add underline [list current wordstart] [list current wordend]
}
proc ManLeave { t } {
$t configure -cursor xterm
$t tag remove underline 1.0 end
}