From 8ddb956f9ad55c0a8d4a9a429a415a01475320ab Mon Sep 17 00:00:00 2001
From: Dianne Skoll <dianne@skoll.ca>
Date: Wed, 22 Oct 2025 23:36:58 -0400
Subject: [PATCH] Change cursor inside links

---
 scripts/tkremind.in | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/scripts/tkremind.in b/scripts/tkremind.in
index 9fecb30b..c6f840d6 100644
--- a/scripts/tkremind.in
+++ b/scripts/tkremind.in
@@ -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
 }